main_sjwh_jfbzwhform.~pas

校园综合管理系统源码 校园综合管理系统源码

unit main_sjwh_jfbzwhform;

interface

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

type
  Tmain_sjwh_jfbzwh = class(TForm)
    Panel2: TPanel;
    Panel4: TPanel;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Label1: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    DBEdit1: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label15: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit15: TDBEdit;
    Panel3: TPanel;
    BitBtn2: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn1: TBitBtn;
    Table1: TTable;
    Table1Xf: TCurrencyField;
    Table1Zf: TCurrencyField;
    Table1Bf: TCurrencyField;
    Table1Kbf: TCurrencyField;
    Table1Jdf: TCurrencyField;
    Table1Kgf: TCurrencyField;
    Table1Sjf: TCurrencyField;
    Table1Bkf: TCurrencyField;
    Table1Jsf: TCurrencyField;
    Table1Qtf: TCurrencyField;
    Table1Mjf: TCurrencyField;
    Table1zfy: TCurrencyField;
    DataSource1: TDataSource;
    Table2: TTable;
    Table2Xm: TStringField;
    Table2Bj: TStringField;
    Table2Yj: TStringField;
    GroupBox2: TGroupBox;
    firstbutton: TButton;
    prebutton: TButton;
    nextbutton: TButton;
    lastbutton: TButton;
    BitBtn7: TBitBtn;
    Table1Bj: TStringField;
    Table1xm: TStringField;
    Table1yj: TStringField;
    Label16: TLabel;
    procedure Table1CalcFields(DataSet: TDataSet);
    procedure BitBtn2Click(Sender: TObject);
    procedure firstbuttonClick(Sender: TObject);
    procedure prebuttonClick(Sender: TObject);
    procedure nextbuttonClick(Sender: TObject);
    procedure lastbuttonClick(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit12KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit15KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main_sjwh_jfbzwh: Tmain_sjwh_jfbzwh;

implementation
      uses jfbzfindform, main_sjwh_jfbzwh_czform;
{$R *.DFM}

procedure Tmain_sjwh_jfbzwh.Table1CalcFields(DataSet: TDataSet);
begin
     table1zfy.Value:=table1XF.Value+table1zf.Value+table1kbf.Value
        +table1jsf.Value+table1bf.Value+table1kgf.Value+table1bkf.Value
        +table1sjf.value +table1jdf.Value+table1qtf.Value-table1mjf.Value;
end;

procedure Tmain_sjwh_jfbzwh.BitBtn2Click(Sender: TObject);
begin
    table1.Append;
   firstbutton.Enabled:=true;
   prebutton.Enabled:=true;
   bitbtn5.Enabled:=true;
   bitbtn6.Enabled:=true;
end;

procedure Tmain_sjwh_jfbzwh.firstbuttonClick(Sender: TObject);
begin
   table1.First;
  firstbutton.Enabled:=false;
  prebutton.Enabled:=false;
  nextbutton.Enabled:=true;
  lastbutton.Enabled:=true;
end;

procedure Tmain_sjwh_jfbzwh.prebuttonClick(Sender: TObject);
begin
   table1.Prior;
  if table1.Bof then
    begin
    prebutton.Enabled:=false;
    firstbutton.Enabled:=false;
    end
   else
       begin
       nextbutton.Enabled:=true;
       lastbutton.Enabled:=true;
     end;  
end;

procedure Tmain_sjwh_jfbzwh.nextbuttonClick(Sender: TObject);
begin
     table1.Next;
  if table1.Eof then
    begin
     nextbutton.Enabled:=false;
     lastbutton.Enabled:=false;
     end
    else
    begin
      prebutton.Enabled:=true;
      firstbutton.Enabled:=true
    end;
end;

procedure Tmain_sjwh_jfbzwh.lastbuttonClick(Sender: TObject);
begin
     table1.Last;
  lastbutton.Enabled:=false;
  nextbutton.Enabled:=false;
  firstbutton.Enabled:=true;
  prebutton.Enabled:=true;
end;

procedure Tmain_sjwh_jfbzwh.BitBtn4Click(Sender: TObject);
begin
 if messagebox(main_sjwh_jfbzwh.Handle,'确定要删除本条记录吗？','请确认',mb_okcancel)=idok then
    begin
      table1.delete;
    end;
end;

procedure Tmain_sjwh_jfbzwh.BitBtn3Click(Sender: TObject);
begin
  bitbtn5.Enabled:=true;
  bitbtn6.Enabled:=true;
  table1.Edit;
end;

procedure Tmain_sjwh_jfbzwh.BitBtn5Click(Sender: TObject);
begin
    table1.Post;
    bitbtn5.Enabled:=false;
    bitbtn6.Enabled:=false;
     bitbtn2.SetFocus;
end;

procedure Tmain_sjwh_jfbzwh.BitBtn6Click(Sender: TObject);
begin
    bitbtn5.Enabled:=false;
    bitbtn6.Enabled:=false;
    table1.cancel;
end;

procedure Tmain_sjwh_jfbzwh.BitBtn7Click(Sender: TObject);
begin
  if main_sjwh_jfbzwh_cz.ShowModal=idok then
       table1.Filtered:=false;
       table1.IndexFieldNames:='bj';
       table1.SetKey;
       table1.FieldByName('bj').value:=main_sjwh_jfbzwh_cz.Edit1.Text;
       firstbutton.Enabled:=true;
       prebutton.Enabled:=true;
       if not table1.GotoKey then
       begin
         messagebox(main_sjwh_jfbzwh.Handle,'没有所要找的记录！','信息',mb_ok);
       end;
  end;

procedure Tmain_sjwh_jfbzwh.BitBtn1Click(Sender: TObject);
begin
  close;
end;

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

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

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

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

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

procedure Tmain_sjwh_jfbzwh.DBEdit7KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
    begin
     key:=#0;
     dbedit5.SetFocus;
    end;
end;

procedure Tmain_sjwh_jfbzwh.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
    begin
     key:=#0;
     dbedit4.SetFocus;
    end;
end;

procedure Tmain_sjwh_jfbzwh.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
    begin
     key:=#0;
     dbedit8.SetFocus;
    end;
end;

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

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

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

procedure Tmain_sjwh_jfbzwh.DBEdit12KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
    begin
     key:=#0;
     dbedit15.SetFocus;
    end;
end;

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

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

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

end.