(精品)毕业精品设备保养管理系统(2013年优秀毕业设计)

毕业设计毕业设计 0 then begin okbtn.Enabled:=true; end else begin okbtn.Enabled:=false; end end; end. 3.2用户管理界面与代码设计实现用户管理界面与代码设计实现 代码设计: unit Unit9; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons; type Tfrmusermang = class(TForm) DBGrid1: TDBGrid; adodsuser: TDataSource; adoqueuser: TADOQuery; adoqueuseruser: TWideStringField; adoqueuserpassword: TWideStringField; adoqueuserpower: TWideStringField; Label1: TLabel; btnok: TBitBtn; procedure FormCreate(Sender: TObject); procedure btnokClick(Sender: TObject); private Private declarations public Public declarations end; var frmusermang: Tfrmusermang; implementation uses unit5,unit6; $R *.dfm procedure Tfrmusermang.FormCreate(Sender: TObject); var username:string; begin username:=copy(frmmain.StatusBar1.Panels2.Text,11,7); adoqueuser.Close; adoqueuser.SQL.Clear; if frmmain.StatusBar1.Panels3.Text管理用户 then begin adoqueuser.SQL.Add(select* from pass where user=+“+username+“); dbgrid1.Columns0.Width:=105; dbgrid1.Columns1.Width:=105; dbgrid1.Columns2.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. 3.3设备保养主界面与代码设计实现设备保养主界面与代码设计实现 代码设计: 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: 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 Tfrmmaintable.FormCreate(Sender: TObject); begin myinifile:=tinifile.Create(extractfilepath(paramstr(0)+data.ini); myinifile.ReadSection(username,(dbgrid.Columns.Items5.PickLis t);/ 读取 INI 文件中的用户 myinifile.ReadSection(username,(dbgrid.Columns.Items6.PickLis t); myinifile.ReadSection(area,(dbgrid.Columns.Items1.PickList); frmmaintable.Height:=300; /初始窗体大小 frmmaintable.Width:=500; scaled := true; /根据分辩率调整荧幕大小 if (screen.width ScreenWidth) then begin height := longint(height) * longint(screen.height) div ScreenHeight; width := longint(width) * longint(screen.width) div ScreenWidth; scaleBy(screen.width, ScreenWidth); end; adoque.Connection:=frmmain.adocon; /建立数据链接 adoque.SQL.Clear; tablename:=e_table; adoque.SQL.Add(select * from +tablename); adoque.Open; adods.DataSet:=adoque; dbgrid.DataSource:=adods; savesql:=adoque.SQL.Text; /保存当前查询语句的内容 frmmain.statusbar1.Panels1.Text:=共有 +inttostr(adoque.RecordCount)+条信息 ; end; procedure Tfrmmaintable.cboareaChange(Sender: TObject); begin with adoque do begin if cboarea.Text=ALL then begin close; sql.clear; sql.Add(select * from +tablename); open; savesql:=adoque.SQL.Text; /保存当前查询语句的内容 frmmain.statusbar1.Panels1.Text:=共有 +inttostr(adoque.RecordCount)+条信息 end else begin close; sql.clear; sql.Add(select * from e_table where 区域 = +“+cboarea.Text+“ ); open; savesql:=adoque.SQL.Text; /保存当前查询语句的内容: =adoque.SQL.Text; /保存当前查询语句的内容 frmmain.statusbar1.Panels1.Text:=共查询到 +inttostr(adoque.RecordCount)+条信息 end; end; end; procedure Tfrmmaintable.cbotypeChange(Sender: TObject); begin with adoque do begin close; sql.clear; case strtoint(cbotype.Text) of 0:sql.Add(select * from e_table); 1:sql.Add(select * from e_table where 类别=+“1“ ); 2:sql.Add(select * from e_table where 类别=+“2“ ); 3:sql.Add(select * from e_table where 类别=+“3“ ); 4:sql.Add(select * from e_table where 类别=+“4“ ); 5:sql.Add(select * from e_table where 类别=+“5“ ); 7:sql.Add(select * from e_table where 类别=+“7“ ); 8:sql.Add(select * from e_table where 类别=+“8“ ); end; open; savesql:=adoque.SQL.Text; /保存当前查询语句的内容 frmmain.statusbar1.Panels1.Text:=共查询到 +inttostr(adoque.RecordCount)+条信息 end; end; procedure Tfrmmaintable.mnudataClick(Sender: TObject); begin form2.Show; end; procedure Tfrmmaintable.mnufileprintpreClick(Sender: TObject); begin tblprint.Click; end; procedure Tfrmmaintable.tblfirstClick(Sender: TObject); begin adoque.First; end; procedure Tfrmmaintable.tblpriClick(Sender: TObject); begin if not adoque.Bof then begin adoque.Prior; end; end; procedure Tfrmmaintable.tblnextClick(Sender: TObject); begin if not adoque.Eof then begin adoque.Next; end end; procedure Tfrmmaintable.tbllastClick(Sender: TObject); begin adoque.Last; end; procedure Tfrmmaintable.tbladdClick(Sender: TObject); begin tblok.Enabled:=true; tblcancel.Enabled:=true; adoque.Append; end; procedure Tfrmmaintable.tbldelClick(Sender: TObject); var bldelete :integer; begin bldelete:=messagedlg(是否确定要删除这条信息 ,mtconfirmation,mbokcancel,0); if bldelete=1 then adoque.Delete else end; procedure Tfrmmaintable.tbledtClick(Sender: TObject); begin tblok.Enabled:=true; tblcancel.Enabled:=true; adoque.Edit; end; procedure Tfrmmaintable.tblokClick(Sender: TObject); begin adoque.UpdateRecord; end; procedure Tfrmmaintable.tblcancelClick(Sender: TObject); begin adoque.Cancel; end; procedure Tfrmmaintable.tblrefClick(Sender: TObject); begin adoque.Refresh; tblok.Enabled:=false; tblcancel.Enabled:=false; end; procedure Tfrmmaintable.tbltableClick(Sender: TObject); begin application.CreateForm(Tform2, form2); form2.show; end; procedure Tfrmmaintable.tblprintClick(Sender: TObject); begin application.CreateForm(Tfrmprint, frmprint); frmprint.Close; frmprint.QuickRep1.DataSet:=adoque; frmprint.QRDBText1.DataSet:=adoque; frmprint.QRDBText2.DataSet:=adoque; frmprint.QRDBText3.DataSet:=adoque; frmprint.QRDBText4.DataSet:=adoque; frmprint.QRDBText5.DataSet:=adoque; frmprint.QRDBText6.DataSet:=adoque; frmprint.QRDBText7.DataSet:=adoque; frmprint.QRDBText8.DataSet:=adoque; frmprint.QRDBText9.DataSet:=adoque; frmprint.QRDBText1.DataField:=单位; frmprint.QRDBText2.DataField:=区域; frmprint.QRDBText3.DataField:=类别; frmprint.QRDBText4.DataField:=项目; frmprint.QRDBText5.DataField:=工具; frmprint.QRDBText6.DataField:=保养人; frmprint.QRDBText7.DataField:=确认人; frmprint.QRDBText8.DataField:=完成日; frmprint.QRDBText9.DataField:=; frmprint.quickrep1.preview; end; procedure Tfrmmaintable.tblcloseClick(Sender: TObject); begin close; end; procedure Tfrmmaintable.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; /半闭子窗体 frmmain.mnuprint.Enabled:=false; /打印菜单无效 end; procedure Tfrmmaintable.FormActivate(Sender: TObject); var username :string; begin username:=frmmain.StatusBar1.Panels3.Text; if (username普通用户) and (username)then begin frmmaintable.tbladd.Enabled:=true; frmmaintable.tbladd.Enabled:=true; frmmaintable.tbldel.Enabled:=true; frmmaintable.tbledt.Enabled:=true; frmmaintable.tblref.Enabled:=true; frmmaintable.dbgrid.ReadOnly:=false; frmmaintable.dbgrid.Enabled:=true; end end; procedure Tfrmmaintable.dbgridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var i:integer; begin for i:=1 to (adoque.RecordCount -1) do if adoque.Recordset.Fields重要性.Value=yes then dbgrid.Canvas.Brush.Color:=clred; end; procedure Tfrmmaintable.cbounitChange(Sender: TObject); begin /区域列表内容变更 with adoque do if cbounit.Text=ALL then begin close; sql.clear; sql.Add(select * from +tablename); open; savesql:=adoque.SQL.Text; /保存当前查询语句的内容 frmmain.statusbar1.Panels1.Text:=共有 +inttostr(adoque.RecordCount)+条信息 end else begin close; sql.clear; sql.Add(select * from e_table where 单位 = +“+cbounit.Text+“ ); open; savesql:=adoque.SQL.Text; /保存当前查询语句的内容 frmmain.statusbar1.Panels1.Text:=共查询到 +inttostr(adoque.RecordCount)+条信息; end end; procedure Tfrmmaintable.cbounitClick(Sender: TObject); begin with cboarea do if cbounit.Text =PM then begin items.Clear; items.Add(ALL); Items.Add(洗净机); Items.Add(退火炉); Items.Add(黑化炉); Items.Add(自动化); Items.Add(PRESS); Items.Add(CF 机台); Items.Add(MF 机台); Items.Add(STABI); Items.Add(ROBOT); Items.Add(MF 点焊机); Items.Add(CF 点焊机); Items.Add(回归系统); end else begin if cbounit.Text =BC then begin items.Clear; items.Add(ALL); Items.Add(DAG); Items.Add(EXP); Items.Add(MW); Items.Add(PW); Items.Add(RES); Items.Add(MW); end else begin items.Clear; items.Add(ALL); Items.Add(GREEN); Items.Add(BLUE); Items.Add(RED); Items.Add(FILM); Items.Add(AL); end end; end; procedure Tfrmmaintable.cboorderbyChange(Sender: TObject); begin adoque.Close; adoque.SQL.Clear; adoque.SQL.Add(savesql+ order by +cboorderby.Text); adoque.Open; end; end. 3.4资料管理界面与代码设计资料管理界面与代码设计 代码设计: unit Unit4; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type Tfrmshalp = class(TForm) Image1: TImage; Label2: TLabel; Label1: TLabel; private Private declarations public Public declarations end; var frmshalp: Tfrmshalp; implementation $R *.dfm begin Application.Initialize; 程序初始化 Frmshalp := TFrmshalp.Create(Application); 建立徽标 Form FFrmshalp.Show; 显示徽标 Form FFrmshalp.Update; 重画徽标 Form，确保其中的图片被显示 出来 Application.CreateForm(Tfrmmain, frmmain); 建立主 Form Frmshalp.Hide; 隐藏徽标 Form，使主 Form 显示出来 Frmshalp.Free; 释放徽标 Form 占用的资源 Application.Run; 程序运行 end. 3.5数据库配置界面设计与代码设计数据库配置界面设计与代码设计 代码设计: unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, QRCtrls, QuickRpt, ExtCtrls; type Tfrmprint = class(TForm) QuickRep1: TQuickRep; TitleBand1: TQRBand; QRLabel1: TQRLabel; QRExpr1: TQRExpr; ColumnHeaderBand1: TQRBand; QRLabel2: TQRLabel; QRLabel3: TQRLabel; QRLabel4: TQRLabel; QRLabel5: TQRLabel; QRLabel6: TQRLabel; QRLabel7: TQRLabel; QRLabel8: TQRLabel; QRLabel9: TQRLabel; QRLabel10: TQRLabel; QRBand1: TQRBand; QRDBText1: TQRDBText; QRDBText2: TQRDBText; QRDBText3: TQRDBText; QRDBText4: TQRDBText; QRDBText5: TQRDBText; QRDBText6: TQRDBText; QRDBText7: TQRDBText; QRDBText8: TQRDBText; QRDBText9: TQRDBText; QRShape1: TQRShape; QRShape2: TQRShape; PageFooterBand1: TQRBand; QRSysData1: TQRSysData; QRSysData2: TQRSysData; QRSysData3: TQRSysData; QRShape3: TQRShape; QRShape4: TQRShape; QRShape5: TQRShape; QRShape6: TQRShape; QRShape7: TQRShape; QRShape8: TQRShape; QRShape9: TQRShape; QRShape10: TQRShape; QRShape11: TQRShape; QRShape12: TQRShape; QRShape13: TQRShape; QRShape14: TQRShape; QRShape15: TQRShape; QRShape16: TQRShape; QRShape18: TQRShape; QRShape19: TQRShape; QRShape20: TQRShape; QRShape21: TQRShape; QRShape22: TQRShape; QRShape23: TQRShape; QRShape24: TQRShape; private Private declarations public Public declarations end; var frmprint: Tfrmprint; implementation $R *.dfm end. 3.6程序主界面与代码设计程序主界面与代码设计 代码设计: unit Unit5; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ComCtrls, DB, ADODB, XPMenu,ADOConEd; type Tfrmmain = class(TForm) MainMenu: TMainMenu; mnufile: TMenuItem; mnudata: TMenuItem; mnuexit: TMenuItem; mnuabout: TMenuItem; mnumain: TMenuItem; mnuuser: TMenuItem; mnuuserlongin: TMenuItem; mnuusermang: TMenuItem; StatusBar1: TStatusBar; adocon: TADOConnection; mnufileline: TMenuItem; mnuset: TMenuItem; mnudataset: TMenuItem; mnuprint: TMenuItem; mnuusernologin: TMenuItem; mnuuserline: TMenuItem; XPMenu1: TXPMenu; procedure mnudataClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure mnumainClick(Sender: TObject); procedure mnuexitClick(Sender: TObject); procedure mnuuserlonginClick(Sender: TObject); procedure mnuaboutClick(Sender: TObject); procedure mnudatasetClick(Sender: TObject); procedure mnuusermangClick(Sender: TObject); procedure mnuprintClick(Sender: TObject); procedure mnuusernologinClick(Sender: TObject); private Private declarations procedure IntINI; public Public declarations SL:TStringList; end; var frmmain: Tfrmmain; FileName:String; implementation uses Unit2, Unit1, Unit7, Unit8, Unit9, Unit3, Unit6; const ScreenWidth: LongInt = 800; ScreenHeight: LongInt = 600; $R *.dfm procedure Tfrmmain.mnudataClick(Sender: TObject); begin /if frmmain.MDIChildCount 2 then if frmmain.ActiveMDIChild.Caption资料管理 then begin application.CreateForm(Tform2, form2); /form2:=tform2.Create(nil); form2.Show; end else begin messagedlg(SORRY!,资料管理窗口已打开，不能重复打开同一 个窗口,mterror,mbok,0); end end; procedure Tfrmmain.FormCreate(Sender: TObject); var Con:String; begin fileName:=ExtractFilePath(ParamStr(0)+datalink.ini; if FileExists(FileName) then begin SL:=TStringList.Create; SL.LoadFromFile(FileName); Con:=SL.Text; try frmmain.ADOCon.Connected:=false; frmmain.ADOCon.ConnectionString:=Con; frmmain.ADOCon.Connected:=true; / RunTimeInfo; except showmessage(数据库初始化错误，无法找到数据库 +#13+Con); end; end; scaled := true; if (screen.width ScreenWidth) then begin height := longint(height) * longint(screen.height) div ScreenHeight; width := longint(width) * longint(screen.width) div ScreenWidth; scaleBy(screen.width, ScreenWidth); end; frmmain.statusbar1.Panels1.Text:=欢迎使用！请选择你要进行 的操作！ ; frmmain.StatusBar1.Panels2.Text:=当前用户：; end; procedure Tfrmmain.mnumainClick(Sender: TObject); begin if frmmain.ActiveMDIChild.Caption主数据表 then /if frmmain.MDIChildCount 2 then begin application.CreateForm(Tfrmmaintable, frmmaintable); /frmmaintable:=tfrmmaintable.Create(nil); frmmaintable.Show; frmmain.mnuprint.Enabled:=true; end else begin messagedlg(SORRY!,主数据表窗口已打开，不能重复打开同一 个窗口,mterror,mbok,0); end end; procedure Tfrmmain.mnuexitClick(Sender: TObject); begin close; end; procedure Tfrmmain.mnuuserlonginClick(Sender: TObject); begin application.CreateForm(TPasswordDlg, PasswordDlg); PasswordDlg.show; end; procedure Tfrmmain.mnuaboutClick(Sender: TObject); begin application.CreateForm(Tfrmabout, frmabout); frmabout.show; end; procedure Tfrmmain.mnudatasetClic