1、 毕业设计毕业设计 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 Tfrmus
2、ermang = 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: TObjec
3、t); 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.
4、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, Message
