main_yggl_zhgl_zgkpform.pas

校园综合管理系统、包括学生学籍管理、教籍管理、资产管理等

unit main_yggl_zhgl_zgkpform;

interface

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

type
  Tmain_yggl_zhgl_zgkp = 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;
    DataSource1: TDataSource;
    Table1: TTable;
    Table2: TTable;
    OpenPictureDialog1: TOpenPictureDialog;
    Panel1: TPanel;
    Panel2: TPanel;
    DBImage1: TDBImage;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Panel18: TPanel;
    SpeedButton4: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton5: TSpeedButton;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox3KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox4KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit10KeyPress(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);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main_yggl_zhgl_zgkp: Tmain_yggl_zhgl_zgkp;

implementation

uses printform;

{$R *.DFM}

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

procedure Tmain_yggl_zhgl_zgkp.BitBtn4Click(Sender: TObject);
begin
  dbimage1.Picture:=nil;
end;

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

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

procedure Tmain_yggl_zhgl_zgkp.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
     key:=#0;
     dbcombobox4.SetFocus;
    end;
end;

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

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

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

procedure Tmain_yggl_zhgl_zgkp.DBComboBox3KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
     key:=#0;
    dbedit3.SetFocus;
    end;
end;

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

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

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

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

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

procedure Tmain_yggl_zhgl_zgkp.SpeedButton4Click(Sender: TObject);
begin
  close;
end;

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

procedure Tmain_yggl_zhgl_zgkp.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  table1.close;
end;

procedure Tmain_yggl_zhgl_zgkp.SpeedButton5Click(Sender: TObject);
begin
   prints.Table3.Filtered:=false;
  prints.Table3.Filter:='职工编号='+''''+dbedit1.Text+'''';
  prints.table3.Filtered:=true;
  prints.ShowModal;
end;

procedure Tmain_yggl_zhgl_zgkp.SpeedButton1Click(Sender: TObject);
begin
  table1.edit;
end;

procedure Tmain_yggl_zhgl_zgkp.SpeedButton2Click(Sender: TObject);
begin
  table1.Post;
end;

procedure Tmain_yggl_zhgl_zgkp.SpeedButton3Click(Sender: TObject);
begin
  table1.cancel;
end;

end.