评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

delphi+access设备保养管理系统[开题报告＋论文＋源(4)

2013-06-07 01:23 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;

（科教范文网 Lw.nsEAc.com编辑整理）

    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: