編譯時，出現這個窗口，不知道怎樣修改，大家幫我看看吧？謝謝，代碼如下：

[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]

編輯記錄

圖片還沒貼上來，等等~