main_xfgl_jflrform.pas

校园综合管理系统

unit main_xfgl_jflrform;

interface

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

type
  Tmain_xfgl_jflr = class(TForm)
    Table1: TTable;
    Table1BDEDesigner: TStringField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TStringField;
    Table1BDEDesigner4: TStringField;
    Table1BDEDesigner5: TStringField;
    Table1XF: TCurrencyField;
    Table1ZF: TCurrencyField;
    Table1KBF: TCurrencyField;
    Table1ZSF: TCurrencyField;
    Table1BF: TCurrencyField;
    Table1KGF: TCurrencyField;
    Table1BXF: TCurrencyField;
    Table1SJF: TCurrencyField;
    Table1JDF: TCurrencyField;
    Table1QTF: TCurrencyField;
    Table1MJF: TCurrencyField;
    Table1BDEDesigner6: TDateField;
    Table1BDEDesigner7: TStringField;
    Table1BDEDesigner8: TMemoField;
    Table1ZFY: TCurrencyField;
    DataSource1: TDataSource;
    Table2: TTable;
    DataSource2: TDataSource;
    Table3: TTable;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    Table4: TTable;
    Panel2: TPanel;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    bh: TDBEdit;
    xm: TDBEdit;
    xx: TDBLookupComboBox;
    yj: TDBLookupComboBox;
    bj: TDBLookupComboBox;
    BitBtn7: TBitBtn;
    firstbutton: TButton;
    prebutton: TButton;
    nextbutton: TButton;
    lastbutton: TButton;
    BitBtn1: TBitBtn;
    GroupBox1: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    Label10: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label17: TLabel;
    Label20: TLabel;
    Label16: TLabel;
    Label12: TLabel;
    Label9: TLabel;
    Label19: TLabel;
    Label15: TLabel;
    Label11: TLabel;
    Label8: TLabel;
    Label18: TLabel;
    zf: TDBEdit;
    bf: TDBEdit;
    sjf: TDBEdit;
    jdf: TDBEdit;
    zfy: TDBEdit;
    mjf: TDBEdit;
    jsr: TDBEdit;
    zsf: TDBEdit;
    sxf: TDBEdit;
    jfrq: TDBEdit;
    kgf: TDBEdit;
    qtf: TDBEdit;
    kbf: TDBEdit;
    xf: TDBEdit;
    jfsm: TDBMemo;
    Panel3: TPanel;
    BitBtn2: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Bevel2: TBevel;
    Label21: TLabel;
    Label22: TLabel;
    Bevel3: TBevel;
    Button1: TButton;
    procedure Table1CalcFields(DataSet: TDataSet);
    procedure firstbuttonClick(Sender: TObject);
    procedure prebuttonClick(Sender: TObject);
    procedure nextbuttonClick(Sender: TObject);
    procedure lastbuttonClick(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure bhKeyPress(Sender: TObject; var Key: Char);
    procedure xmKeyPress(Sender: TObject; var Key: Char);
    procedure xxKeyPress(Sender: TObject; var Key: Char);
    procedure yjKeyPress(Sender: TObject; var Key: Char);
    procedure bjKeyPress(Sender: TObject; var Key: Char);
    procedure kbfKeyPress(Sender: TObject; var Key: Char);
    procedure zsfKeyPress(Sender: TObject; var Key: Char);
    procedure bfKeyPress(Sender: TObject; var Key: Char);
    procedure kgfKeyPress(Sender: TObject; var Key: Char);
    procedure sxfKeyPress(Sender: TObject; var Key: Char);
    procedure sjfKeyPress(Sender: TObject; var Key: Char);
    procedure jdfKeyPress(Sender: TObject; var Key: Char);
    procedure qtfKeyPress(Sender: TObject; var Key: Char);
    procedure mjfKeyPress(Sender: TObject; var Key: Char);
    procedure zfyKeyPress(Sender: TObject; var Key: Char);
    procedure jfrqKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2KeyPress(Sender: TObject; var Key: Char);
    procedure zfKeyPress(Sender: TObject; var Key: Char);
    procedure xfKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn5KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure jsrKeyPress(Sender: TObject; var Key: Char);
    procedure Table1PostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure jfsmKeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  const
    eKeyViol=9729;
    eRequiredFieldMissing=9732;
var
  main_xfgl_jflr: Tmain_xfgl_jflr;

implementation
      uses findrecord, printform;
      
{$R *.DFM}

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

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

procedure Tmain_xfgl_jflr.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_xfgl_jflr.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_xfgl_jflr.lastbuttonClick(Sender: TObject);
begin
    table1.Last;
  lastbutton.Enabled:=false;
  nextbutton.Enabled:=false;
  firstbutton.Enabled:=true;
  prebutton.Enabled:=true;
end;

procedure Tmain_xfgl_jflr.BitBtn7Click(Sender: TObject);
begin
  if findrecorddlg.ShowModal=mrok then
    begin
       if(findrecorddlg.RadioGroup1.Controls[0] as tradiobutton).checked then
        begin
           table1.Locate('学生编号',findrecorddlg.Edit1.Text,[]);
           firstbutton.Enabled:=true;
           prebutton.Enabled:=true;
       end

  else if (findrecorddlg.RadioGroup1.Controls[1] as tradiobutton).checked then
     begin
       table1.Locate('学生姓名',findrecorddlg.Edit2.Text,[]);
       firstbutton.Enabled:=true;
       prebutton.Enabled:=true;
     end;
     end;
end;
procedure Tmain_xfgl_jflr.BitBtn6Click(Sender: TObject);
begin
   table1.cancel;
    bitbtn5.Enabled:=false;
   bitbtn6.Enabled:=false;
 end;

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

procedure Tmain_xfgl_jflr.BitBtn2Click(Sender: TObject);
begin

   firstbutton.Enabled:=true;
   prebutton.Enabled:=true;
   table1.Append;
   bh.SetFocus;
   bitbtn5.Enabled:=true;
   bitbtn6.Enabled:=true;
end;

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

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

procedure Tmain_xfgl_jflr.bhKeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
     begin
      key:=#0;
      xm.SetFocus;
     end;
end;

procedure Tmain_xfgl_jflr.xmKeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
     begin
      key:=#0;
      bj.SetFocus;
     end;
end;

procedure Tmain_xfgl_jflr.xxKeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
   begin
    key:=#0;
    yj.SetFocus;
   end;
end;

procedure Tmain_xfgl_jflr.yjKeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
   begin
    key:=#0;
    xf.SetFocus;
   end;
end;

procedure Tmain_xfgl_jflr.bjKeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
   begin
    key:=#0;
    xx.SetFocus;
   end;
end;

procedure Tmain_xfgl_jflr.kbfKeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
   begin
    key:=#0;
    sjf.SetFocus;
   end;
end;

procedure Tmain_xfgl_jflr.zsfKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
   begin
    key:=#0;
    jdf.SetFocus;
   end;
end;

procedure Tmain_xfgl_jflr.bfKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
   begin
    key:=#0;
    zsf.SetFocus;
   end;
end;

procedure Tmain_xfgl_jflr.kgfKeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then
   begin
    key:=#0;
    sxf.SetFocus;
   end;
end;

procedure Tmain_xfgl_jflr.sxfKeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then
   begin
    key:=#0;
    bf.SetFocus;
   end;
end;

procedure Tmain_xfgl_jflr.sjfKeyPress(Sender: TObject; var Key: Char);
begin
      if key=#13 then
   begin
    key:=#0;
    zf.SetFocus;
   end;
end;

procedure Tmain_xfgl_jflr.jdfKeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then
   begin
    key:=#0;
    qtf.SetFocus;
   end;
end;

procedure Tmain_xfgl_jflr.qtfKeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then
   begin
    key:=#0;
    mjf.SetFocus;
   end;
end;

procedure Tmain_xfgl_jflr.mjfKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
   begin
    key:=#0;
    zfy.SetFocus;
   end;
end;

procedure Tmain_xfgl_jflr.zfyKeyPress(Sender: TObject; var Key: Char);
begin
      if key=#13 then
   begin
    key:=#0;
    jfrq.SetFocus;
   end;
end;

procedure Tmain_xfgl_jflr.jfrqKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
   begin
    key:=#0;
    jsr.SetFocus;
   end;
end;

procedure Tmain_xfgl_jflr.BitBtn2KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then bh.SetFocus
end;

procedure Tmain_xfgl_jflr.zfKeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then
      kgf.SetFocus;
end;

procedure Tmain_xfgl_jflr.xfKeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then
      kbf.SetFocus;
end;

procedure Tmain_xfgl_jflr.BitBtn5KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
   bitbtn2.SetFocus;
end;

procedure Tmain_xfgl_jflr.FormShow(Sender: TObject);
begin
 table1.open;
 bh.SetFocus;
end;

procedure Tmain_xfgl_jflr.jsrKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
     key:=#0;
     jfsm.SetFocus;
    end;
end;

procedure Tmain_xfgl_jflr.Table1PostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
var
  iDBError:integer;
 begin
  if (E is EDBEngineError) then
    begin
       iDBError:=(E as EDBEngineError).errors[0].ErrorCode;
       case iDBError of
         eRequiredFieldMissing:
            begin
              messagedlg('学生编号一定要录入!!',mtwarning,[mbok],0);
              abort;
            end;
         eKeyViol:
             begin
              messagedlg('学生编号重复，请重新录入!!',mtwarning,[mbok],0);
              abort;
            end;
         end;
       end;

end;

procedure Tmain_xfgl_jflr.jfsmKeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
    begin
     key:=#0;
     bh.SetFocus;
    end;
end;

procedure Tmain_xfgl_jflr.Button1Click(Sender: TObject);
begin
  table1.Filtered:=false;
  table1.filter:='学生姓名<>'+''''+'dog'+'''';
  table1.Filtered:=true;
  table1.First;
  firstbutton.Enabled:=false;
  prebutton.Enabled:=false;
  nextbutton.Enabled:=true;
  lastbutton.Enabled:=true;
end;

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

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

end.