毕业设计论文-delphi60access设备保养管理系统含源程序

毕业设计论文-delphi60access设备保养管理系统含源程序内容摘要：

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: TObject)。 procedure tblrefClick(Sender: TObject)。 procedure tbltableClick(Sender: TObject)。 procedure tblprintClick(Sender: TObject)。 procedure tblcloseClick(Sender: TObject)。 procedure FormClose(Sender: TObject。 var Action: TCloseAction)。 procedure cbounitChange(Sender: TObject)。 procedure FormActivate(Sender: TObject)。 procedure dbgridDrawColumnCell(Sender: TObject。 const Rect: TRect。 DataCol: Integer。 Column: TColumn。 State: TGridDrawState)。 procedure cbounitClick(Sender: TObject)。 procedure cboorderbyChange(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 var frmmaintable: Tfrmmaintable。 myinifile:tinifile。 //声明 INI 文件 tablename :string。 //当前查询表格的名称 savesql:string。 //当前执行的 SQL 语句的内容 implementation uses Unit2, Unit3,unit5。 const ScreenWidth: LongInt = 800。 ScreenHeight: LongInt = 600。 {$R *.dfm} procedure (Sender: TObject)。 begin myinifile:=(extractfilepath(paramstr(0))+39。 39。 )。 (39。 username39。 ,([5].PickList))。 // 读取 INI 文件中的用户 (39。 username39。 ,([6].PickList))。 (39。 area39。 ,([1].PickList))。 :=300。 //初始窗体大小 :=500。 scaled := true。 //根据分辩率调整荧幕大小 if ( ScreenWidth) then begin height := longint(height) * longint() div ScreenHeight。 width := longint(width) * longint() div ScreenWidth。 scaleBy(, ScreenWidth)。 end。 :=。 //建立数据链接。 tablename:=39。 e_table39。 (39。 select * from 39。 +tablename)。 :=adoque。 :=adods。 savesql:=。 //保存当前查询语句的内容 [1].Text:=39。 共有39。 +inttostr()+39。 条信息 39。 end。 procedure (Sender: TObject)。 begin with adoque do begin if =39。 ALL39。 then begin close。 (39。 select * from 39。 +tablename)。 open。 savesql:=。 //保存当前查询语句的内容 [1].Text:=39。 共有39。 +inttostr()+39。 条信息 39。 end else begin close。 (39。 select * from e_table where 区域 = 39。 +39。 39。 ++39。 39。 )。 open。 savesql:=。 // 保 存 当前 查 询语 句 的内容 :=。 //保存当前查询语句的内容 [1].Text:=39。 共查询到39。 +inttostr()+39。 条信息 39。 end。 end。 end。 procedure (Sender: TObject)。 begin with adoque do begin close。 case strtoint() of 0:(39。 select * from e_table39。 )。 1:(39。 select * from e_table where 类别 =39。 +39。 139。 )。 2:(39。 select * from e_table where 类别 =39。 +39。 239。 )。 3:(39。 select * from e_table where 类别 =39。 +39。 339。 )。 4:(39。 select * from e_table where 类别 =39。 +39。 439。 )。 5:(39。 select * from e_table where 类别 =39。 +39。 539。 )。 7:(39。 select * from e_table where 类别 =39。 +39。 739。 )。 8:(39。 select * from e_table where 类别 =39。 +39。 839。 )。 end。 open。 savesql:=。 //保存当前查询语句的内容 [1].Text:=39。 共查询到39。 +inttostr()+39。 条信息 39。 end。 end。 procedure (Sender: TObject)。 begin。 end。 procedure (Sender: TObject)。 begin。 end。 procedure (Sender: TObject)。 begin。 end。 procedure (Sender: TObject)。 begin if not then begin。 end。 end。 procedure (Sender: TObject)。 begin if not then begin。