?? fmakextcs.pas
字號:
unit FMAKEXTCS;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Buttons, CheckLst,Spin, ComCtrls,inifiles;
type
TF_MAKEXTCS = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
Label1: TLabel;
Label4: TLabel;
Label6: TLabel;
Image1: TImage;
Panel7: TPanel;
Panel8: TPanel;
Image4: TImage;
Image5: TImage;
Label14: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
GBcs: TGroupBox;
Label12: TLabel;
Label15: TLabel;
Label30: TLabel;
SEzczx: TSpinEdit;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
ProgressBar1: TProgressBar;
ListBox1: TListBox;
Edit7: TEdit;
Label13: TLabel;
ComboBox1: TComboBox;
Label2: TLabel;
Edit1: TEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
PROCEDURE PAINTPAGE;
public
MINSTEP,MAXSTEP,THISSTEP:BYTE;
{ Public declarations }
end;
var
F_MAKEXTCS: TF_MAKEXTCS;
implementation
uses sys_dm, UDATASOURCE, sys_global;
{$R *.DFM}
PROCEDURE TF_MAKEXTCS.PAINTPAGE;
var
i:integer;
BEGIN
for i:=0 to ComponentCount-1 do begin
if Components[i].ClassType = Timage then
timage(Components[i]).visible:=timage(Components[i]).tag=thisstep;
if (Components[i].ClassType=Tpanel) and (Tpanel(Components[i]).tag<>0) then
Tpanel(Components[i]).visible:=Tpanel(Components[i]).tag=thisstep;
end;
bitbtn2.Enabled:=thisstep>minstep;
if thisstep=maxstep then
bitbtn3.Caption:=listbox1.items[0]
else
bitbtn3.Caption:=listbox1.items[1];
if thisstep=2 then
Edit7.SETFOCUS;
END;
procedure TF_MAKEXTCS.FormClose(Sender: TObject; var Action: TCloseAction);
begin
release;
end;
procedure TF_MAKEXTCS.BitBtn3Click(Sender: TObject);
var
EXECSTR:STRING;
CID:INTEGER;
begin
if thisstep=2 then begin
if TRIM(EDIT7.Text)='' then begin
BEEP;
MessageBox(handle,pchar(listbox1.items[5]),'提示',16);
EDIT7.SETFOCUS;
EXIT;
end;
if TRIM(EDIT1.Text)='' then begin
BEEP;
MessageBox(handle,pchar(listbox1.items[5]),'提示',16);
EDIT1.SETFOCUS;
EXIT;
end;
EDIT1.Text:=PADL(TRIM(EDIT1.Text),6);
TRY
STRTOINT('$'+TRIM(EDIT1.Text));
EXCEPT
BEEP;
MessageBox(handle,'IC卡初始密碼輸入錯誤!','提示',16);
EDIT1.SETFOCUS;
EXIT;
END;
end;
IF THISSTEP=MAXSTEP THEN BEGIN
{ beep;
if MessageBox(HANDLE,pchar(listbox1.items[6]+#13+#13+listbox1.items[7]),'提示',36)<>6 then
exit;}
progressbar1.Visible:=true;
progressbar1.Position:=1;
APPLICATION.ProcessMessages;
CID:=random(gettickcount()) mod 10000;
m_com:=COMBOBOX1.ITEMINDEX+1;
writecom(m_com);
progressbar1.Position:=2;
APPLICATION.ProcessMessages;
progressbar1.Position:=3;
APPLICATION.ProcessMessages;
progressbar1.Position:=4;
APPLICATION.ProcessMessages;
EXECSTR:='INSERT INTO XTCS (NETBARNAME,ID,RECDEL,ICPASS) VALUES ('''+
trim(EDIT7.TEXT)+''','+inttostr(cid)+','+INTTOSTR(SEZCZX.Value)+','''+TRIM(EDIT1.Text)+''')';
if not myexecsql(EXECSTR) then begin
beep;
messagebox(handle,PCHAR(LISTBOX1.ITEMS[8]),'提示',16);
modalresult:=mrcancel;
exit;
end;
progressbar1.Position:=5;
APPLICATION.ProcessMessages;
//PostPara(NCOM,pchar(xts));
BEEP;
messagebox(handle,PCHAR(LISTBOX1.ITEMS[9]),'提示',64);
modalresult:=mrok;
EXIT;
END;
THISSTEP:=THISSTEP+1;
PAINTPAGE;
end;
procedure TF_MAKEXTCS.BitBtn2Click(Sender: TObject);
begin
if thisstep=minstep then
exit;
thisstep:=thisstep-1;
paintpage;
end;
procedure TF_MAKEXTCS.FormShow(Sender: TObject);
begin
Randomize;
thisstep:=minstep;
paintpage;
end;
procedure TF_MAKEXTCS.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
selectnext(activecontrol,true,true);
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -