|
3.3 设备保养主界面与代码设计实现 paper51.com 内容来自论文无忧网 www.paper51.com 代码设计: paper51.com unit Unit1; copyright paper51.com interface 内容来自www.paper51.com
uses 内容来自论文无忧网 www.paper51.com Windows,Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, paper51.com Dialogs,ExtCtrls, StdCtrls, Grids, DBGrids, DBCtrls, ADODB, DB, Buttons, http://www.paper51.com
ComCtrls,Menus, ImgList, ToolWin, XPMenu,inifiles; copyright paper51.com type 内容来自论文无忧网 www.paper51.com Tfrmmaintable = class(TForm) copyright paper51.com
adoque: TADOQuery; paper51.com adoqueDSDesigner: TWideStringField; copyright paper51.com
adoqueDSDesigner2: TWideStringField; 内容来自www.paper51.com
adoqueDSDesigner3: TWideStringField; copyright paper51.com adoqueDSDesigner4: TWideStringField; 内容来自论文无忧网 www.paper51.com adoqueDSDesigner5: TWideStringField; copyright paper51.com adoqueDSDesigner6: TWideStringField; copyright paper51.com
adoqueDSDesigner7: TWideStringField; 内容来自论文无忧网 www.paper51.com adods: TDataSource; copyright paper51.com Label3: TLabel; 内容来自论文无忧网 www.paper51.com ToolBar1: TToolBar; 内容来自论文无忧网 www.paper51.com ImageList1: TImageList; copyright paper51.com tblfirst: TToolButton; http://www.paper51.com tblpri: TToolButton; paper51.com tblnext: TToolButton; http://www.paper51.com tbllast: TToolButton; copyright paper51.com ToolButton2: TToolButton; 内容来自论文无忧网 www.paper51.com tbladd: TToolButton; http://www.paper51.com tbldel: TToolButton; paper51.com tbledt: TToolButton; 内容来自www.paper51.com tblok: TToolButton; http://www.paper51.com tblcancel: TToolButton; 内容来自论文无忧网 www.paper51.com tblref: TToolButton; 内容来自www.paper51.com
ToolButton1: TToolButton; 内容来自www.paper51.com
tblprint: TToolButton; 内容来自论文无忧网 www.paper51.com tblclose: TToolButton; paper51.com Panel1: TPanel; 内容来自论文无忧网 www.paper51.com
Label1: TLabel; paper51.com
Label2: TLabel; http://www.paper51.com cbotype: TComboBox; 内容来自www.paper51.com cboarea: TComboBox; http://www.paper51.com Label4: TLabel; 内容来自论文无忧网 www.paper51.com dbgrid: TDBGrid; 内容来自论文无忧网 www.paper51.com cbounit: TComboBox; 内容来自www.paper51.com
Label5: TLabel; http://www.paper51.com cboorderby: TComboBox; 内容来自www.paper51.com Shape1: TShape; 内容来自论文无忧网 www.paper51.com
adoqueDSDesigner10: TWideStringField; copyright paper51.com adoqueDSDesigner11: TWideStringField; http://www.paper51.com procedure FormCreate(Sender: TObject); paper51.com
procedure cboareaChange(Sender: TObject); 内容来自论文无忧网 www.paper51.com procedure cbotypeChange(Sender: TObject); 内容来自论文无忧网 www.paper51.com procedure mnudataClick(Sender: TObject); http://www.paper51.com
procedure mnufileprintpreClick(Sender:TObject); copyright paper51.com procedure tblfirstClick(Sender: TObject); http://www.paper51.com procedure tblpriClick(Sender: TObject); 内容来自www.paper51.com procedure tblnextClick(Sender: TObject); copyright paper51.com procedure tbllastClick(Sender: TObject); copyright paper51.com
procedure tbladdClick(Sender: TObject); paper51.com procedure tbldelClick(Sender: TObject); copyright paper51.com procedure tbledtClick(Sender: TObject); copyright paper51.com proceduretblokClick(Sender: TObject); copyright paper51.com
procedure tblcancelClick(Sender: TObject); 内容来自论文无忧网 www.paper51.com procedure tblrefClick(Sender: TObject); paper51.com
procedure tbltableClick(Sender: TObject); copyright paper51.com procedure tblprintClick(Sender: TObject); 内容来自论文无忧网 www.paper51.com procedure tblcloseClick(Sender: TObject); 内容来自论文无忧网 www.paper51.com procedure FormClose(Sender: TObject; varAction: TCloseAction); copyright paper51.com procedure cbounitChange(Sender: TObject); 内容来自论文无忧网 www.paper51.com
procedure FormActivate(Sender: TObject); 内容来自www.paper51.com procedure dbgridDrawColumnCell(Sender: TObject;const Rect: TRect; 内容来自论文无忧网 www.paper51.com
DataCol:Integer; Column: TColumn; State: TGridDrawState); http://www.paper51.com procedure cbounitClick(Sender: TObject); paper51.com procedure cboorderbyChange(Sender: TObject); 内容来自www.paper51.com private copyright paper51.com { Private declarations } http://www.paper51.com public paper51.com { Public declarations } http://www.paper51.com end; paper51.com
var 内容来自www.paper51.com
frmmaintable: Tfrmmaintable; copyright paper51.com myinifile:tinifile; //声明INI文件 paper51.com tablename:string; //当前查询表格的名称 paper51.com savesql:string;//当前执行的SQL语句的内容 copyright paper51.com
implementation 内容来自www.paper51.com uses Unit2, Unit3,unit5; paper51.com |