?? landunit.pas
字號:
unit LandUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ComCtrls, StdCtrls,
Buttons, ExtCtrls,MainUnit;
type
TLandForm = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
ComboBox1: TComboBox;
Bevel1: TBevel;
CancelButton: TSpeedButton;
YesButton: TSpeedButton;
procedure CancelButtonClick(Sender: TObject);
procedure YesButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
CloseFlag: Boolean;
{ Private declarations }
public
{ Public declarations }
end;
var
LandForm: TLandForm;
implementation
uses PublicUnit, DataUnit;
{$R *.dfm}
procedure TLandForm.CancelButtonClick(Sender: TObject);
begin
Application.Terminate;
end;
procedure TLandForm.YesButtonClick(Sender: TObject);
begin
if Trim(ComboBox1.Text) = '' then
begin
ShowMessage('請選擇登錄用戶。');
Exit;
end;
OpenSQL(DataForm.qryEdit,'Select * from UserInfo Where UserName = '+''''+Trim(ComboBox1.Text)+''' ');
if Trim(Edit1.text) = Trim(DataForm.qryEdit.FieldByName('Pwd').AsString) then
begin
MainForm.StatusBar1.Panels[1].Text := Trim(ComboBox1.Text);
CloseFlag := true;
close;
end else
begin
ShowMessage('用戶口令輸入錯誤,請重新輸入。');
Edit1.SelectAll;
Edit1.SetFocus;
end;
end;
procedure TLandForm.FormCreate(Sender: TObject);
begin
CloseFlag := False;
end;
procedure TLandForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DataForm.qryEdit.close;
if Not CloseFlag then
Application.Terminate;
end;
procedure TLandForm.FormShow(Sender: TObject);
var
I:Integer;
UserName:string;
begin
try
LoginFlag := True;
OpenSQL(DataForm.qryEdit,'Select Distinct * from userinfo');
ComboBox1.Items.clear;
DataForm.qryEdit.FindFirst;
For I := 0 To DataForm.qryEdit.RecordCount -1 do
begin
UserName := Trim(DataForm.qryEdit.fieldbyname('UserName').AsString);
ComboBox1.Items.Add(UserName);
DataForm.qryEdit.FindNext;
end;
except
ShowMessage('提取登錄用戶信息出錯。');
Exit;
end;
end;
procedure TLandForm.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 13 then YesButton.Click;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -