ywgl_gjgl_tjform.pas

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

unit YWGL_GJGL_TJFORM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, Mask, DBCtrls, Db, ADODB, Grids, DBGrids,
  ComCtrls;

var     bjxxbh:string;

type
  TYWGL_GJGL_TJ = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label7: TLabel;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    DateTimePicker1: TDateTimePicker;
    Label8: TLabel;
    Label9: TLabel;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DateTimePicker1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YWGL_GJGL_TJ: TYWGL_GJGL_TJ;

implementation

uses   YWGL_GJGLFORM;

{$R *.DFM}

procedure TYWGL_GJGL_TJ.BitBtn3Click(Sender: TObject);
begin
   close;
end;

procedure TYWGL_GJGL_TJ.BitBtn1Click(Sender: TObject);
var stringgridi,stri:integer;
    astr:string;
begin
     if edit2.text='' then begin
         messagedlg('工具名称不能为空,请添加',mterror,[mbok],0);
         edit2.setfocus;
         exit;
     end;
     if edit3.text='' then begin
         messagedlg('工具型号不能为空,请添加',mterror,[mbok],0);
         edit3.setfocus;
         exit;
     end;
     if edit4.text='' then begin
         messagedlg('工具规格不能为空,请添加',mterror,[mbok],0);
         edit4.setfocus;
     end;
       YWGL_GJGL.ADOTABLE1.insert;
       if edit1.text<>'' then YWGL_GJGL.ADOTABLE1['编号']:=edit1.text;
       if edit2.text<>'' then YWGL_GJGL.ADOTABLE1['工具名称']:=edit2.text;
       if edit3.text<>'' then YWGL_GJGL.ADOTABLE1['工具型号']:=edit3.text;
       if edit4.text<>'' then YWGL_GJGL.ADOTABLE1['工具规格']:=edit4.text;
       if edit5.text<>'' then YWGL_GJGL.ADOTABLE1['使用状态']:=edit5.text;
       YWGL_GJGL.ADOTABLE1['购买日期']:=DateTimePicker1.Date;
       if edit6.text<>'' then YWGL_GJGL.ADOTABLE1['详细说明']:=edit6.text;
       YWGL_GJGL.ADOTABLE1.Post;
        edit2.text:='';
        edit3.text:='';
        edit4.text:='';
        edit5.text:='';
        edit6.text:='';
        edit2.SetFocus ;
        edit1.text:=inttostr(strtoint(edit1.text)+1);
        stringgridi:=3-length(edit1.text);
        for stri:=1 to stringgridi do begin
            edit1.text:='0'+edit1.text ;
        end;
end;

procedure TYWGL_GJGL_TJ.BitBtn2Click(Sender: TObject);
begin
      if edit2.text='' then begin
         messagedlg('工具名称不能为空,请添加',mterror,[mbok],0);
         edit2.setfocus;
         exit;
      end;
      if edit3.text='' then begin
         messagedlg('工具型号不能为空,请添加',mterror,[mbok],0);
         edit3.setfocus;
         exit;
      end;
      if edit4.text='' then begin
         messagedlg('工具规格不能为空,请添加',mterror,[mbok],0);
         edit4.setfocus;
         exit;
      end;
       YWGL_GJGL.ADOTABLE1.insert;
       if edit1.text<>'' then YWGL_GJGL.ADOTABLE1['工具编号']:=edit1.text;
       if edit2.text<>'' then YWGL_GJGL.ADOTABLE1['工具名称']:=edit2.text;
       if edit3.text<>'' then YWGL_GJGL.ADOTABLE1['工具型号']:=edit3.text;
       if edit4.text<>'' then YWGL_GJGL.ADOTABLE1['工具规格']:=edit4.text;
       if edit5.text<>'' then YWGL_GJGL.ADOTABLE1['购买人']:=edit5.text;
//       YWGL_GJGL.ADOTABLE1['购买日期']:=DateTimePicker1.text;
       if edit6.text<>'' then YWGL_GJGL.ADOTABLE1['详细情况']:=edit6.text;
       YWGL_GJGL.ADOTABLE1.Post;

     close;

end;

procedure TYWGL_GJGL_TJ.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
animatewindow(handle,300,AW_VER_NEGATIVE+AW_CENTER+AW_HIDE);

end;

procedure TYWGL_GJGL_TJ.FormShow(Sender: TObject);
begin
edit2.setfocus;
end;

procedure TYWGL_GJGL_TJ.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 begin
   if key=13 then   begin
      edit3.SetFocus ;
    end;
 end;

procedure TYWGL_GJGL_TJ.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 begin
   if key=13 then   begin
      edit4.SetFocus ;
    end;
    if key=38 then   begin
      edit2.SetFocus ;
    end;
 end;
procedure TYWGL_GJGL_TJ.Edit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 begin
   if key=13 then   begin
      DateTimePicker1.SetFocus ;
    end;
    if key=38 then   begin
      edit3.SetFocus ;
    end;
 end;
procedure TYWGL_GJGL_TJ.Edit5KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 begin
   if key=13 then   begin
      edit6.SetFocus ;
    end;
    if key=38 then   begin
      DateTimePicker1.SetFocus ;
    end;
 end;

procedure TYWGL_GJGL_TJ.DateTimePicker1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
    if key=13 then   begin
      EDIT5.SetFocus ;
    end;
    if key=38 then   begin
      edit4.SetFocus ;
    end;

end;




procedure TYWGL_GJGL_TJ.Edit6KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=13 then   begin
      bitbtn1.SetFocus ;
    end;
    if key=38 then   begin
      edit5.SetFocus ;
    end;
end;

end.