【delphi开源代码栏目提醒】：本文主要为网学会员提供main_xjgl_xjlrform.pas，希望对需要main_xjgl_xjlrform.pas网友有所帮助，学习一下!

    unit main_xjgl_xjlrform;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      ExtCtrls, Buttons, StdCtrls, DBCtrls, Mask, Db, DBTables, ExtDlgs;
    
    type
      Tmain_xjgl_xjlr = class(TForm)
        DataSource1: TDataSource;
        Table1: TTable;
        Table2: TTable;
        DataSource2: TDataSource;
        Table3: TTable;
        DataSource3: TDataSource;
        DataSource4: TDataSource;
        Table4: TTable;
        DataSource5: TDataSource;
        Table5: TTable;
        Table6: TTable;
        DataSource6: TDataSource;
        OpenPictureDialog1: TOpenPictureDialog;
        Panel4: TPanel;
        Label8: TLabel;
        DBLookupComboBox1: TDBLookupComboBox;
        DBLookupComboBox2: TDBLookupComboBox;
        DBLookupComboBox3: TDBLookupComboBox;
        DBLookupComboBox6: TDBLookupComboBox;
        DBComboBox2: TDBComboBox;
        Panel2: TPanel;
        Panel5: TPanel;
        Panel6: TPanel;
        Panel7: TPanel;
        Panel8: TPanel;
        Panel9: TPanel;
        DBEdit4: TDBEdit;
        DBLookupComboBox5: TDBLookupComboBox;
        DBComboBox1: TDBComboBox;
        Panel3: TPanel;
        DBImage1: TDBImage;
        DBEdit1: TDBEdit;
        DBEdit2: TDBEdit;
        Panel11: TPanel;
        Panel10: TPanel;
        Panel12: TPanel;
        Button10: TButton;
        Button11: TButton;
        Panel13: TPanel;
        Panel14: TPanel;
        DBEdit3: TDBEdit;
        DBMemo1: TDBMemo;
        Panel1: TPanel;
        Panel16: TPanel;
        SpeedButton1: TSpeedButton;
        SpeedButton2: TSpeedButton;
        SpeedButton3: TSpeedButton;
        SpeedButton4: TSpeedButton;
        SpeedButton5: TSpeedButton;
        SpeedButton6: TSpeedButton;
        SpeedButton7: TSpeedButton;
        SpeedButton8: TSpeedButton;
        SpeedButton9: TSpeedButton;
        SpeedButton10: TSpeedButton;
        Label1: TLabel;
        DBNavigator1: TDBNavigator;
        SpeedButton11: TSpeedButton;
        Bevel2: TBevel;
        procedure Button10Click(Sender: TObject);
        procedure Button11Click(Sender: TObject);
        procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
        procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
        procedure DBComboBox1KeyPress(Sender: TObject; var Key: Char);
        procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
        procedure DBLookupComboBox5KeyPress(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 DBLookupComboBox6KeyPress(Sender: TObject; var Key: Char);
        procedure DBComboBox2KeyPress(Sender: TObject; var Key: Char);
        procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
        procedure DBMemo1KeyPress(Sender: TObject; var Key: Char);
        procedure Table1PostError(DataSet: TDataSet; E: EDatabaseError;
          var Action: TDataAction);
        procedure SpeedButton1Click(Sender: TObject);
        procedure SpeedButton2Click(Sender: TObject);
        procedure SpeedButton4Click(Sender: TObject);
        procedure SpeedButton3Click(Sender: TObject);
        procedure SpeedButton5Click(Sender: TObject);
        procedure SpeedButton6Click(Sender: TObject);
        procedure SpeedButton7Click(Sender: TObject);
        procedure SpeedButton8Click(Sender: TObject);
        procedure SpeedButton10Click(Sender: TObject);
        procedure SpeedButton11Click(Sender: TObject);
        procedure FormShow(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
       const
        eKeyViol=9729;
        eRequiredFieldMissing=9732;
    var
      main_xjgl_xjlr: Tmain_xjgl_xjlr;
    
    implementation
         uses main_xfgl_xxll_jfxxform, findrecord;
    {$R *.DFM}
    
    procedure Tmain_xjgl_xjlr.Button10Click(Sender: TObject);
    begin
       table1.edit;
       if OpenPictureDialog1.Execute then
        begin
          dbimage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
        end;
    end;
    
    procedure Tmain_xjgl_xjlr.Button11Click(Sender: TObject);
    begin
     table1.edit;
     dbimage1.Picture:=nil;
    end;
    
    procedure Tmain_xjgl_xjlr.DBEdit1KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        begin
         key:=#0;
         dbedit2.SetFocus;
        end;
    end;
    
    procedure Tmain_xjgl_xjlr.DBEdit2KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        begin
         key:=#0;
         dbcombobox1.SetFocus;
        end;
    end;
    
    procedure Tmain_xjgl_xjlr.DBComboBox1KeyPress(Sender: TObject; var Key: Char);
    begin
      if key=#13 then
        begin
         key:=#0;
         dbedit4.SetFocus;
        end;
    end;
    
    procedure Tmain_xjgl_xjlr.DBEdit4KeyPress(Sender: TObject; var Key: Char);
    begin
       if key=#13 then
        begin
         key:=#0;
         dblookupcombobox5.SetFocus;
        end;
    en