?? mryhdl.pas
字號(hào):
unit MRYHDL;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, inifiles, jpeg, ExtCtrls;
type
TFRM_YHDL = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
ComboBox1: TComboBox;
Image1: TImage;
procedure BitBtn2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FRM_YHDL: TFRM_YHDL;
dl,p : integer;
yhmc,ppl : string;
a : array[1..31] of string;
implementation
uses MRCSH, MRCRM_ZJM, DATA;
{$R *.dfm}
procedure TFRM_YHDL.BitBtn2Click(Sender: TObject);
begin
if jj = 1 then
FRM_YHDL.Hide
ELSE
Application.Terminate;
end;
procedure TFRM_YHDL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if jj = 1 then
FRM_YHDL.Hide;
//ELSE
// FRM_CSH.Close;
end;
procedure TFRM_YHDL.BitBtn1Click(Sender: TObject);
var
P:INTEGER;
begin
with database.ADO_user do
begin
close;
sql.Clear;
sql.Add('select * from tb_user where user_name=:a and user_mm=:b and user_yhjs=:c');
Parameters.ParamByName('a').Value := Trim(Edit1.Text);
Parameters.ParamByName('b').Value := Trim(Edit2.Text);
Parameters.ParamByName('c').Value := Trim(Combobox1.Text);
open;
end;
if database.ADO_user.RecordCount>0 then
begin
yhmc := database.ADO_user.fieldbyname('user_name').AsString;
for p := 1 to 31 do
begin
ppl := inttostr(p);
a[p] := booltostr(database.ADO_user.fieldbyname(ppl).AsVariant,True);
end;
if jj = 1 then
begin
FRM_YHDL.Visible := FALSE;
self.Close;
//FRM_CRM.Show;
FRM_CRM.StatusBar1.Panels.Items[1].Text := '操作員名稱: '+yhmc;
end
else
begin
FRM_YHDL.Visible := FALSE;
SElf.Close;
//FRM_CRM.Show;
end;
end
else
begin
showmessage('操作員名稱、密碼或操作員級(jí)別不正確'+#13+'請(qǐng)重新輸入。');
edit1.Clear;
edit2.Clear;
combobox1.Text := '';
dl := dl+1;
end;
if jj <> 1 then
begin
if dl = 4 then
begin
FRM_CSH.Close;
end;
end;
end;
procedure TFRM_YHDL.FormShow(Sender: TObject);
var
ini : Tinifile;
ssp : string;
begin
if jj = 1 then
begin
ssp := '重新登錄';
FRM_YHDL.Caption := '重新登錄';
end
else
begin
dl := 0;
ssp := '登錄';
FRM_YHDL.Caption := '登錄';
end;
ini:=Tinifile.Create('c:\cc.ini');
ini.WriteString('one',datetimetostr(now),ssp);
ini.Free;
EDIT1.Clear;
edit2.Clear;
combobox1.Text := '';
edit1.SetFocus;
end;
procedure TFRM_YHDL.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_return then
edit2.SetFocus;
end;
procedure TFRM_YHDL.Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_return then
combobox1.SetFocus;
end;
procedure TFRM_YHDL.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_return then
bitbtn1.SetFocus;
end;
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -