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

    unit main_xfgl_xxll_jfxxform;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      DBCtrls, StdCtrls, Mask, ExtCtrls, Buttons, Db, DBTables;
    
    type
      Tmain_xfgl_xxll_jfxx = class(TForm)
        Table1: TTable;
        DataSource1: TDataSource;
        Table2: TTable;
        DataSource2: TDataSource;
        Table3: TTable;
        DataSource3: TDataSource;
        Table4: TTable;
        DataSource4: TDataSource;
        Label1: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        Label4: TLabel;
        Label5: TLabel;
        Label6: TLabel;
        DBEdit1: TDBEdit;
        DBEdit2: TDBEdit;
        DBLookupComboBox1: TDBLookupComboBox;
        DBLookupComboBox2: TDBLookupComboBox;
        DBLookupComboBox3: TDBLookupComboBox;
        Label7: TLabel;
        Label8: TLabel;
        Label9: TLabel;
        Label10: TLabel;
        Label11: TLabel;
        Label12: TLabel;
        Label13: TLabel;
        Label14: TLabel;
        Label15: TLabel;
        Label16: TLabel;
        Label17: TLabel;
        Label18: TLabel;
        DBEdit3: TDBEdit;
        DBEdit4: TDBEdit;
        DBEdit11: TDBEdit;
        DBEdit5: TDBEdit;
        DBEdit8: TDBEdit;
        DBEdit7: TDBEdit;
        DBEdit10: TDBEdit;
        DBEdit14: TDBEdit;
        DBEdit9: TDBEdit;
        DBEdit15: TDBEdit;
        DBEdit16: TDBEdit;
        DBEdit17: TDBEdit;
        Label19: TLabel;
        DBEdit13: TDBEdit;
        DBEdit12: TDBEdit;
        Label20: TLabel;
        DBMemo1: TDBMemo;
        Panel1: TPanel;
        SpeedButton1: TSpeedButton;
        SpeedButton2: TSpeedButton;
        SpeedButton3: TSpeedButton;
        SpeedButton4: TSpeedButton;
        Bevel1: TBevel;
        Bevel2: TBevel;
        SpeedButton5: TSpeedButton;
        procedure FormShow(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
        procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
        procedure DBLookupComboBox1KeyPress(Sender: TObject; var Key: Char);
        procedure DBLookupComboBox2KeyPress(Sender: TObject; var Key: Char);
        procedure DBLookupComboBox3KeyPress(Sender: TObject; var Key: Char);
        procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
        procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
        procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
        procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
        procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
        procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
        procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);
        procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
        procedure DBEdit14KeyPress(Sender: TObject; var Key: Char);
        procedure DBEdit15KeyPress(Sender: TObject; var Key: Char);
        procedure DBEdit16KeyPress(Sender: TObject; var Key: Char);
        procedure DBEdit17KeyPress(Sender: TObject; var Key: Char);
        procedure DBEdit13KeyPress(Sender: TObject; var Key: Char);
        procedure DBEdit12KeyPress(Sender: TObject; var Key: Char);
        procedure SpeedButton1Click(Sender: TObject);
        procedure SpeedButton2Click(Sender: TObject);
        procedure SpeedButton3Click(Sender: TObject);
        procedure SpeedButton4Click(Sender: TObject);
        procedure SpeedButton5Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      main_xfgl_xxll_jfxx: Tmain_xfgl_xxll_jfxx;
    
    implementation
    
    uses printform;
    
    {$R *.DFM}
    
    procedure Tmain_xfgl_xxll_jfxx.FormShow(Sender: TObject);
    begin
      table1.open;
      table2.open;
      table3.open;
      table4.open;
    end;
    
    procedure Tmain_xfgl_xxll_jfxx.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
      table1.close;
      table2.close;
      table3.close;
      table4.close;
    end;
    
    procedure Tmain_xfgl_xxll_jfxx.DBEdit1KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        begin
         key:=#0;
         dbedit2.SetFocus;
        end;
    end;
    
    procedure Tmain_xfgl_xxll_jfxx.DBEdit2KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        begin
         key:=#0;
         dblookupcombobox1.SetFocus;
        end;
    end;
    
    procedure Tmain_xfgl_xxll_jfxx.DBLookupComboBox1KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        begin
         key:=#0;
         dblookupcombobox2.SetFocus;
        end;
    end;
    
    procedure Tmain_xfgl_xxll_jfxx.DBLookupComboBox2KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        begin
         key:=#0;
         dblookupcombobox3.SetFocus;
        end;
    end;
    
    procedure Tmain_xfgl_xxll_jfxx.DBLookupComboBox3KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        begin
         key:=#0;
         dbedit3.SetFocus;
        end;
    end;
    
    procedure Tmain_xfgl_xxll_jfxx.DBEdit3KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        begin
         key:=#0;
         dbedit4.SetFocus;
        end;
    end;
    
    procedure Tmain_xfgl_xxll_jfxx.DBEdit4KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        begin
         key:=#0;
         dbedit5.SetFocus;
        end;
    end;
    
    procedure Tmain_xfgl_xxll_jfxx.DBEdit5KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        begin
         key:=#0;
         dbedit7.SetFocus;
        end;
    end;
    
    procedure Tmain_xfgl_xxll_jfxx.DBEdit7KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        begin
         key:=#0;
         dbedit8.SetFocus;
        end;
    end;
    
    procedure Tmain_xfgl_xxll_jfxx.DBEdit8KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        begin
         key:=#0;
         dbedit9.SetFocus;
        end;
    end;
    
    procedure Tmain_xfgl_xxll_jfxx.DBEdit9KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        begin
         key:=#0;
         dbedit10.SetFocus;
        end;
    end;
    
    procedure Tmain_xfgl_xxll_jfxx.DBEdit10KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        begin
         key:=#0;
         dbedit11.SetFocus;
        end;
    end;
    
    procedure Tmain_xfgl_xxll_jfxx.DBEdit11KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        begin
         key:=#0;
         dbedit14.SetFocus;
        end;
    end;
    
    procedure Tmain_xfgl_xxll_jfxx.DBEdit14KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        begin
         key:=#0;
         dbedit15.SetFocus;
        end;
    end;
    
    procedure Tmain_xfgl_xxll_jfxx.DBEdit15KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        begin
         key:=#0;
         dbedit16.SetFocus;
        end;
    end;
    
    procedure Tmain_xfgl_xxll_jfxx.DBEdit16KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        begin
         key:=#0;
         dbedit17.SetFocus;
        end;
    end;
    
    procedure Tmain_xfgl_xxll_jfxx.DBEdit17KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        begin
         key:=#0;
         dbedit13.SetFocus;
        end;
    end;
    
    procedure Tmain_xfgl_xxll_jfxx.DBEdit13KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        begin
         key:=#0;
         dbedit12.SetFocus;
        end;
    end;
    
    procedure Tmain_xfgl_xxll_jfxx.DBEdit12KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        begin
         key:=#0;
         dbedit1.SetFocus;
        end;
    end;
    
    procedure Tmain_xfgl_xxll_jfxx.SpeedButton1Click(Sender: TObject);
    begin
      table1.edit;
    end;
    
    procedure Tmain_xfgl_xxll_jfxx.SpeedButton2Click(Sender: TObject);
    begin
      table1.Post;
    end;
    
    procedure Tmain_xfgl_xxll_jfxx.SpeedButton3Click(Sender: TObject);
    begin
      table1.cancel;

上一篇：main_xfgl_xxllform.pas
下一篇：哈弗F7 VS名爵HS，谁更懂得年轻人的心？