【delphi开源代码栏目提醒】：网学会员,鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“JBXX_GYS_TJFORM.pas”一文，供大家参考学习!

    unit JBXX_GYS_TJFORM;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      StdCtrls, Buttons, ExtCtrls, Mask, DBCtrls, Db, ADODB, Grids, DBGrids;
    
    type
      TJBXX_GYS_TJ = class(TForm)
        Label1: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        Label4: TLabel;
        Label5: TLabel;
        Label6: TLabel;
        Label7: TLabel;
        Bevel1: TBevel;
        BitBtn1: TBitBtn;
        BitBtn2: TBitBtn;
        BitBtn3: TBitBtn;
        Edit1: TEdit;
        Edit2: TEdit;
        Edit3: TEdit;
        Edit4: TEdit;
        Edit5: TEdit;
        Edit6: TEdit;
        Edit7: TEdit;
        Label8: TLabel;
        Edit8: TEdit;
        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 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);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      JBXX_GYS_TJ: TJBXX_GYS_TJ;
    
    implementation
    
    uses JBXX_GYSFORM;
    
    {$R *.DFM}
    
    procedure TJBXX_GYS_TJ.BitBtn3Click(Sender: TObject);
    begin
       close;
    end;
    
    procedure TJBXX_GYS_TJ.BitBtn1Click(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;
           JBXX_GYS.ADOQuery1.insert;
           if edit1.text<>'' then JBXX_GYS.ADOQUERY1['商家编号']:=edit1.text;
           if edit2.text<>'' then JBXX_GYS.ADOQUERY1['商家名称']:=edit2.text;
           if edit3.text<>'' then JBXX_GYS.ADOQUERY1['联系电话']:=edit3.text;
           if edit4.text<>'' then JBXX_GYS.ADOQUERY1['传真']:=edit4.text ;
           if edit5.text<>'' then JBXX_GYS.ADOQUERY1['地址']:=edit5.text ;
           if edit6.text<>'' then JBXX_GYS.ADOQUERY1['邮编']:=edit6.text ;
           if edit7.text<>'' then JBXX_GYS.ADOQUERY1['联系人']:=edit7.text ;
           if edit8.text<>'' then JBXX_GYS.ADOQUERY1['联系人电话']:=edit8.text;
            JBXX_GYS.ADOQUERY1.Post;
            edit2.text:='';
            edit3.text:='';
            edit4.text:='';
            edit5.text:='';
            edit6.text:='';
            edit7.text:='';
            edit8.text:='';
            Edit1.Text:= formatfloat('000000',STRTOINT(EDIT1.TEXT)+1);
            edit2.SetFocus ;
    end;
    procedure TJBXX_GYS_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;
           JBXX_GYS.ADOQuery1.insert;
           if edit1.text<>'' then JBXX_GYS.ADOQUERY1['商家编号']:=edit1.text;
           if edit2.text<>'' then JBXX_GYS.ADOQUERY1['商家名称']:=edit2.text;
           if edit3.text<>'' then JBXX_GYS.ADOQUERY1['联系电话']:=edit3.text;
           if edit4.text<>'' then JBXX_GYS.ADOQUERY1['传真']:=edit4.text ;
           if edit5.text<>'' then JBXX_GYS.ADOQUERY1['地址']:=edit5.text ;
           if edit6.text<>'' then JBXX_GYS.ADOQUERY1['邮编']:=edit6.text ;
           if edit7.text<>'' then JBXX_GYS.ADOQUERY1['联系人']:=edit7.text ;
           if edit8.text<>'' then JBXX_GYS.ADOQUERY1['联系人电话']:=edit8.text;
            JBXX_GYS.ADOQUERY1.Post;
            edit1.text:='';
            edit2.text:='';
            edit3.text:='';
            edit4.text:='';
            edit5.text:='';
            edit6.text:='';
            edit7.text:='';
            edit8.text:='';
    
         close;
    
    end;
    
    procedure TJBXX_GYS_TJ.FormClose(Sender: TObject;
      var Action: TCloseAction);
    begin
    animatewindow(handle,300,AW_VER_NEGATIVE+AW_CENTER+AW_HIDE);
    
    end;
    
    procedure TJBXX_GYS_TJ.FormShow(Sender: TObject);
    begin
    edit2.setfocus;
    end;
    
    procedure TJBXX_GYS_TJ.Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
     begin
       if key=13 then   begin
          edit