zgkpbform.pas

校园综合管理系统

unit zgkpbform;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtDlgs, Db, DBTables, StdCtrls, Buttons, DBCtrls, Mask, ExtCtrls;

type
  Tzgkpb = class(TForm)
    Panel4: TPanel;
    DBEdit3: TDBEdit;
    panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    Panel10: TPanel;
    Panel11: TPanel;
    Panel12: TPanel;
    Panel13: TPanel;
    Panel14: TPanel;
    Panel15: TPanel;
    Panel16: TPanel;
    Panel17: TPanel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBMemo1: TDBMemo;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    DBComboBox4: TDBComboBox;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel20: TPanel;
    DBImage1: TDBImage;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    DataSource1: TDataSource;
    Table1: TTable;
    Table2: TTable;
    OpenPictureDialog1: TOpenPictureDialog;
    Panel3: TPanel;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Bevel1: TBevel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox4KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
    procedure DBMemo1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zgkpb: Tzgkpb;

implementation

uses main_yggl_zhgl_zgkpform;

{$R *.DFM}

procedure Tzgkpb.BitBtn1Click(Sender: TObject);
begin
   table1.Post;
    close;
  end;

procedure Tzgkpb.BitBtn2Click(Sender: TObject);
begin
  table1.cancel;
  close;
end;

procedure Tzgkpb.FormShow(Sender: TObject);
begin
  table1.open;
end;

procedure Tzgkpb.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  table1.Close;
end;

procedure Tzgkpb.BitBtn3Click(Sender: TObject);
begin
   table1.edit;
   if OpenPictureDialog1.Execute then
    begin
      dbimage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    end;
end;

procedure Tzgkpb.BitBtn4Click(Sender: TObject);
begin
  table1.edit;
  dbimage1.Picture:=nil;
end;

procedure Tzgkpb.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
      key:=#0;
      dbcombobox2.SetFocus;
    end;
end;

procedure Tzgkpb.DBComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
      key:=#0;
      dbedit2.SetFocus;
    end;
end;

procedure Tzgkpb.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
      key:=#0;
      dbcombobox3.SetFocus;
    end;
end;

procedure Tzgkpb.DBComboBox4KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
      key:=#0;
      dbcombobox1.SetFocus;
    end;
end;

procedure Tzgkpb.DBComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
      key:=#0;
      dbedit10.SetFocus;
    end;
end;

procedure Tzgkpb.DBEdit10KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
      key:=#0;
      dbedit6.SetFocus;
    end;
end;

procedure Tzgkpb.DBEdit6KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
      key:=#0;
      dbedit11.SetFocus;
    end;
end;

procedure Tzgkpb.DBEdit11KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
      key:=#0;
      dbedit9.SetFocus;
    end;
end;

procedure Tzgkpb.DBEdit9KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
      key:=#0;
      dbmemo1.SetFocus;
    end;
end;

procedure Tzgkpb.DBMemo1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
      key:=#0;
      bitbtn1.SetFocus;
    end;
end;

end.