delphi+access设备保养管理系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](四)

delphi+access设备保养管理系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](四) grid1.Columns[1].Width:=105;
dbgrid1.Columns[2].Visible:=false;
end
else
begin
adoqueuser.SQL.Add('select * from pass ');
end;
adoqueuser.Open;
end;

procedure Tfrmusermang.btnokClick(Sender: TObject);
begin
frmusermang.Release;
end;

end.

设备保养主界面与代码设计实现

代码设计:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Grids, DBGrids, DBCtrls, ADODB, DB, Buttons,
ComCtrls, Menus, ImgList, ToolWin, XPMenu,inifiles;

type
Tfrmmaintable = class(TForm)
    adoque: TADOQuery;
    adoqueDSDesigner: TWideStringField;
    adoqueDSDesigner2: TWideStringField;
    adoqueDSDesigner3: TWideStringField;
    adoqueDSDesigner4: TWideStringField;
    adoqueDSDesigner5: TWideStringField;
    adoqueDSDesigner6: TWideStringField;
    adoqueDSDesigner7: TWideStringField;
    adods: TDataSource;
    Label3: TLabel;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    tblfirst: TToolButton;
    tblpri: TToolButton;
    tblnext: TToolButton;
    tbllast: TToolButton;
    ToolButton2: TToolButton;
    tbladd: TToolButton;
    tbldel: TToolButton;
    tbledt: TToolButton;
    tblok: TToolButton;
    tblcancel: TToolButton;
    tblref: TToolButton;
    ToolButton1: TToolButton;
    tblprint: TToolButton;
    tblclose: TToolButton;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    cbotype: TComboBox;
    cboarea: TComboBox;
    Label4: TLabel;
    dbgrid: TDBGrid;
    cbounit: TComboBox;
    Label5: TLabel;
    cboorderby: TComboBox;
    Shape1: TShape;
    adoqueDSDesigner10: TWideStringField;
    adoqueDSDesigner11: TWideStringField;
    procedure FormCreate(Sender: TObject);
    procedure cboareaChange(Sender: TObject);
    procedure cbotypeChange(Sender: TObject);
    procedure mnudataClick(Sender: TObject);
    procedure mnufileprintpreClick(Sender: TObject);
    procedure tblfirstClick(Sender: TObject);
    procedure tblpriClick(Sender: TObject);
    procedure tblnextClick(Sender: TObject);
    procedure tbllastClick(Sender: TObject);
    procedure tbladdClick(Sender: TObject);
    procedure tbldelClick(Sender: TObject);
    procedure tbledtClick(Sender: TObject);
    procedure tblokClick(Sender: TObject);
    procedure tblcancelClick(Sender:

首页上一页 1 2 3 4 5 6 7 下一页尾页 4/10/10

delphi+access设备保养管理系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](四)由免费论文网（www.jaoyuw.com）会员上传。