編譯時,出現這個窗口,不知道怎樣修改,大家幫我看看吧? |
缺席
|
feike
一般會員 發表:1 回覆:1 積分:0 註冊:2008-04-22 發送簡訊給我 |
編譯時,出現這個窗口,不知道怎樣修改,大家幫我看看吧?謝謝,代碼如下:
[code delphi] unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, XPMan, DB, ADODB, jpeg, ExtCtrls; type TYHDL = class(TForm) Edit1: TEdit; ComboBox1: TComboBox; Button1: TButton; Button2: TButton; Image1: TImage; XPManifest1: TXPManifest; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); procedure FormShow(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var YHDL: TYHDL; implementation uses Unit1,Unit3,Unit4; {$R *.dfm} var DL_ADOQ:TADOQuery; procedure TYHDL.Button2Click(Sender: TObject); begin close; end; procedure TYHDL.Button1Click(Sender: TObject); //登录系统 var Query : TADOQuery; begin //如果验证输入的口令正确,则进入主操作界面 try //检查操作人员表中是否有匹配记录 Query := TADOQuery.Create(nil); Query.Connection :=SJSC_DM.SJSC_ADOC; Query.SQL.Add('select * from Operator where UserName=:UserName and Password=:Password'); Query.Parameters.ParamByName('UserName').Value :=ComboBox1.Text ; Query.Parameters.ParamByName('Password').Value :=Edit1.Text ; Query.Open; if Query.RecordCount = 0 then begin MessageDlg('请输入正确的用户名和密码',mtError,[mbok],0); Exit; end; //根据不同的操作员级别,允许进行不同的功能操作 if Query.FieldByName('QXID').AsInteger =0 then begin //超级用户拥有全部权限 Main.N5.Enabled :=true; //题库录入 Main.N6.Enabled :=true; //题库录入 Main.N7.Enabled :=true; //生成试卷 Main.N4.Enabled :=true; //权限管理 end; if Query.FieldByName('QXID').AsInteger =1 then begin //一般用户没有权限管理功能 Main.N5.Enabled :=true; //题库录入 Main.N6.Enabled :=true; //题库录入 Main.N7.Enabled :=true; //生成试卷 Main.N4.Enabled :=false; //权限管理 end; Edit1.Text :=''; //密码信息要清空 Query.Close; Query.Free; Main.Show; YHDL.close; except MessageDlg('连接数据库出错!',mtError,[mbok],0); end; end; procedure TYHDL.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=VK_RETURN then begin Button1.SetFocus; Button1.Click; end; end; procedure TYHDL.FormShow(Sender: TObject); begin DL_ADOQ:=TADOQuery.Create(nil); DL_ADOQ.Connection:=SJSC_DM.SJSC_ADOC; DL_ADOQ.SQL.Add('Select UserName From Operator'); DL_ADOQ.Open; if DL_ADOQ.RecordCount>0 then while not DL_ADOQ.Eof do begin ComboBox1.Items.Add(DL_ADOQ.FieldValues['UserName']); DL_ADOQ.Next; end; ComboBox1.ItemIndex:=-1; DL_ADOQ.Close; end; procedure TYHDL.FormCreate(Sender: TObject); var Query : TADOQuery; begin ComboBox1.Clear ; try Query := TADOQuery.Create(nil); Query.Connection :=SJSC_DM.SJSC_ADOC; Query.SQL.Add('select UserName from Operator '); Query.Open; if Query.RecordCount = 0 then begin MessageDlg('没有可以登陆的用户名',mtError,[mbok],0); Exit; end else begin Query.First ; while Query.Eof =false do begin ComboBox1.items.add(Query.FieldByName('Username').asstring ); Query.next; end end; Query.Close; Query.Free; ComboBox1.ItemIndex :=0 ; except MessageDlg('连接数据库出错!',mtError,[mbok],0); end; end; end. [/code] |
feike
一般會員 發表:1 回覆:1 積分:0 註冊:2008-04-22 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |