【delphi开源代码栏目提醒】：网学会员在delphi开源代码频道为大家收集整理了khxxgl.pas提供大家参考，希望对大家有所帮助!

    unit khxxgl;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Mask, StdCtrls, Buttons, ExtCtrls, DB, Grids, DBGrids;
    
    type
      TForm9 = class(TForm)
        Panel2: TPanel;
        BitBtn1: TBitBtn;
        BitBtn2: TBitBtn;
        BitBtn3: TBitBtn;
        BitBtn4: TBitBtn;
        BitBtn5: TBitBtn;
        BitBtn6: TBitBtn;
        BitBtn7: TBitBtn;
        BitBtn8: TBitBtn;
        Panel1: TPanel;
        Panel3: TPanel;
        Label1: TLabel;
        Label3: TLabel;
        Label6: TLabel;
        Label9: TLabel;
        Label14: TLabel;
        Label12: TLabel;
        Edit13: TEdit;
        Edit14: TEdit;
        Label11: TLabel;
        Edit9: TEdit;
        Edit8: TEdit;
        Label10: TLabel;
        Edit7: TEdit;
        MaskEdit1: TMaskEdit;
        Label7: TLabel;
        Edit11: TEdit;
        Label8: TLabel;
        Edit12: TEdit;
        Edit10: TEdit;
        Label13: TLabel;
        Edit5: TEdit;
        Edit3: TEdit;
        Label4: TLabel;
        Edit4: TEdit;
        Edit2: TEdit;
        Label2: TLabel;
        Edit1: TEdit;
        Label15: TLabel;
        Label16: TLabel;
        Edit15: TEdit;
        Label17: TLabel;
        Edit16: TEdit;
        DataSource1: TDataSource;
        Label5: TLabel;
        ComboBox1: TComboBox;
        Label18: TLabel;
        ComboBox2: TComboBox;
        DBGrid1: TDBGrid;
        procedure BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
          Shift: TShiftState; X, Y: Integer);
        procedure BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
          Shift: TShiftState; X, Y: Integer);
        procedure Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
          Y: Integer);
        procedure BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
          Y: Integer);
        procedure BitBtn3Click(Sender: TObject);
        procedure BitBtn4Click(Sender: TObject);
        procedure BitBtn7Click(Sender: TObject);
        procedure Edit1Change(Sender: TObject);
        procedure Edit10KeyPress(Sender: TObject; var Key: Char);
        procedure FormShow(Sender: TObject);
        Procedure EditValue;
        procedure BitBtn1Click(Sender: TObject);
        procedure BitBtn2Click(Sender: TObject);
        procedure BitBtn6Click(Sender: TObject);
        procedure BitBtn5Click(Sender: TObject);
        procedure Edit1KeyDown(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 Edit4KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure Edit5KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure Edit10KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure MaskEdit1KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure Edit11KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure Edit12KeyDown(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 Edit14KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure Edit9KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure Edit13KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState); //为编辑框赋值
        procedure ShowDate;
        Procedure DisableComboBox;
        procedure DBGrid1DblClick(Sender: TObject);
        procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure ComboBox2KeyDown(Sender: TObject; var Key: Word;
          Shift: TShiftState);
        procedure ComboBox1Change(Sender: TObject);
        
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form9: TForm9;
      aa: Boolean = False; //保存按钮是否可用
      qydm: String; //保存区域代码
    implementation
      uses data2;
    {$R *.dfm}
    procedure TForm9.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
      TBitBtn(Sender).Font.Color := clRed;
    end;
    
    procedure TForm9.BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
      TBitBtn(Sender).Font.Color := clBlue;
    end;
    
    procedure TForm9.Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    begin
      Screen.Cursor := -2;
    end;
    
    procedure TForm9.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    begin
      Screen.Cursor := -21;
    end;
    
    procedure TForm9.BitBtn3Click(Sender: TObject);
    var
      s,m: String;
      i: integer;
    begin
      s:= 'K'+ FormatDateTime('yyyymmdd',Now());
      With datam.ADOQuery1 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('select max(