yggl_zyxx_tjform.~pas

明日腾龙编修管理系统,对于做相关软件的朋友是一个非常好的参考

unit YGGL_ZYXX_TJFORM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, Buttons, ExtCtrls, ComCtrls, Db, ADODB;
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.