?? yggl_zyxx_tjform.pas
字號:
unit YGGL_ZYXX_TJFORM;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
var zyapp:boolean;
type
TYGGL_ZYXX_TJ = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Bevel1: TBevel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
DateTimePicker1: TDateTimePicker;
Label4: TLabel;
Edit1: TEdit;
ComboBox1: TComboBox;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn3Click(Sender: TObject);
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DateTimePicker1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit4KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit3KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit5KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit6KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit7KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit8KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure BitBtn1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
YGGL_ZYXX_TJ: TYGGL_ZYXX_TJ;
implementation
uses YGGL_ZYXXFORM, MR_WXFORM;
{$R *.DFM}
procedure TYGGL_ZYXX_TJ.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
animatewindow(handle,300,AW_VER_NEGATIVE+AW_CENTER+AW_HIDE);
end;
procedure TYGGL_ZYXX_TJ.BitBtn3Click(Sender: TObject);
begin
YGGL_ZYXX.ADOTable1.cancel;
close;
end;
procedure TYGGL_ZYXX_TJ.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then begin
ComBoBox1.SetFocus ;
end;
end;
procedure TYGGL_ZYXX_TJ.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then begin
DateTimePicker1.SetFocus ;
end;
end;
procedure TYGGL_ZYXX_TJ.DateTimePicker1KeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if key=13 then begin
edit2.SetFocus ;
end;
end;
procedure TYGGL_ZYXX_TJ.Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then begin
edit3.SetFocus ;
end;
end;
procedure TYGGL_ZYXX_TJ.Edit3KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then begin
edit4.SetFocus ;
end;
end;
procedure TYGGL_ZYXX_TJ.Edit4KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then begin
edit5.SetFocus ;
end;
end;
procedure TYGGL_ZYXX_TJ.Edit5KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then begin
edit6.SetFocus ;
end;
end;
procedure TYGGL_ZYXX_TJ.Edit6KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then begin
edit7.SetFocus ;
end;
end;
procedure TYGGL_ZYXX_TJ.Edit7KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then begin
edit8.SetFocus ;
end;
end;
procedure TYGGL_ZYXX_TJ.Edit8KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then begin
BitBtn1.SetFocus ;
end;
end;
procedure TYGGL_ZYXX_TJ.BitBtn1Click(Sender: TObject);
begin
begin
if edit1.text='' then begin
messagedlg('姓名不能為空,請添加',mterror,[mbok],0);
edit1.setfocus;
exit;
end;
if edit2.text='' then begin
messagedlg('部門不能為空,請添加',mterror,[mbok],0);
edit2.setfocus;
exit;
end;
YGGL_ZYXX.ADOTABLE1.insert;
if edit1.text<>'' then YGGL_ZYXX.ADOTABLE1['職員名稱']:=edit1.text;
if edit2.text<>'' then YGGL_ZYXX.ADOTABLE1['部門']:=edit2.text;
if edit3.text<>'' then YGGL_ZYXX.ADOTABLE1['職務']:=edit3.text;
if edit5.text<>'' then YGGL_ZYXX.ADOTABLE1['學歷']:=edit5.text;
If combobox1.text<>'' then YGGL_ZYXX.ADOTABLE1['性別']:=combobox1.text;
YGGL_ZYXX.ADOTABLE1['出生日期']:=DateTimePicker1.date ;
if edit4.text<>'' then YGGL_ZYXX.ADOTABLE1['聯系電話']:=edit4.text;
if edit7.text<>'' then YGGL_ZYXX.ADOTABLE1['家庭住址']:=edit7.text;
if edit8.text<>'' then YGGL_ZYXX.ADOTABLE1['現住址']:=edit8.text;
if edit6.text<>'' then YGGL_ZYXX.ADOTABLE1['畢業學校']:=edit6.text;
YGGL_ZYXX.ADOTABLE1.Post;
edit2.text:='';
edit3.text:='';
edit4.text:='';
edit5.text:='';
edit6.text:='';
edit7.text:='';
edit2.SetFocus ;
edit1.text:=inttostr(strtoint(edit1.text)+1);
end;
end;
procedure TYGGL_ZYXX_TJ.FormActivate(Sender: TObject);
begin
EDiT1.setfocus;
end;
procedure TYGGL_ZYXX_TJ.BitBtn2Click(Sender: TObject);
begin
begin
if edit1.text='' then begin
messagedlg('姓名不能為空,請添加',mterror,[mbok],0);
edit1.setfocus;
exit;
end;
if edit2.text='' then begin
messagedlg('部門不能為空,請添加',mterror,[mbok],0);
edit2.setfocus;
exit;
end;
YGGL_ZYXX.ADOTABLE1.insert;
if edit1.text<>'' then YGGL_ZYXX.ADOTABLE1['職員名稱']:=edit1.text;
if edit2.text<>'' then YGGL_ZYXX.ADOTABLE1['部門']:=edit2.text;
if edit3.text<>'' then YGGL_ZYXX.ADOTABLE1['職務']:=edit3.text;
if edit5.text<>'' then YGGL_ZYXX.ADOTABLE1['學歷']:=edit5.text;
If combobox1.text<>'' then YGGL_ZYXX.ADOTABLE1['性別']:=combobox1.text;
YGGL_ZYXX.ADOTABLE1['出生日期']:=DateTimePicker1.date ;
if edit4.text<>'' then YGGL_ZYXX.ADOTABLE1['聯系電話']:=edit4.text;
if edit7.text<>'' then YGGL_ZYXX.ADOTABLE1['家庭住址']:=edit7.text;
if edit8.text<>'' then YGGL_ZYXX.ADOTABLE1['現住址']:=edit8.text;
if edit6.text<>'' then YGGL_ZYXX.ADOTABLE1['畢業學校']:=edit6.text;
YGGL_ZYXX.ADOTABLE1.Post;
YGGL_ZYXX.ADOTable1.cancel;
close;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -