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;
end;

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

procedure Tmain_xfgl_xxll_jfxx.SpeedButton5Click(Sender: TObject);
begin
  prints.Table1.Filtered:=false;
  prints.Table1.Filter:=table1.Filter;
  prints.table1.Filtered:=true;
  prints.ShowModal;
end;

end.