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

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