main_xjgl_xjlrform.pas

校园信息管理系统

unit main_xjgl_xjlrform;

interface

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

type
  Tmain_xjgl_xjlr = class(TForm)
    DataSource1: TDataSource;
    Table1: TTable;
    Table2: TTable;
    DataSource2: TDataSource;
    Table3: TTable;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    Table4: TTable;
    DataSource5: TDataSource;
    Table5: TTable;
    Table6: TTable;
    DataSource6: TDataSource;
    OpenPictureDialog1: TOpenPictureDialog;
    Panel4: TPanel;
    Label8: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox3: TDBLookupComboBox;
    DBLookupComboBox6: TDBLookupComboBox;
    DBComboBox2: TDBComboBox;
    Panel2: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    DBEdit4: TDBEdit;
    DBLookupComboBox5: TDBLookupComboBox;
    DBComboBox1: TDBComboBox;
    Panel3: TPanel;
    DBImage1: TDBImage;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Panel11: TPanel;
    Panel10: TPanel;
    Panel12: TPanel;
    Button10: TButton;
    Button11: TButton;
    Panel13: TPanel;
    Panel14: TPanel;
    DBEdit3: TDBEdit;
    DBMemo1: TDBMemo;
    Panel1: TPanel;
    Panel16: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    Label1: TLabel;
    DBNavigator1: TDBNavigator;
    SpeedButton11: TSpeedButton;
    Bevel2: TBevel;
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure DBLookupComboBox5KeyPress(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 DBLookupComboBox6KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure DBMemo1KeyPress(Sender: TObject; var Key: Char);
    procedure Table1PostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
   const
    eKeyViol=9729;
    eRequiredFieldMissing=9732;
var
  main_xjgl_xjlr: Tmain_xjgl_xjlr;

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

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

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

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

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

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

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

procedure Tmain_xjgl_xjlr.DBLookupComboBox5KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
     key:=#0;
     dblookupcombobox1.SetFocus;
    end;
end;

procedure Tmain_xjgl_xjlr.DBLookupComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
     key:=#0;
     dblookupcombobox2.SetFocus;
    end;
end;

procedure Tmain_xjgl_xjlr.DBLookupComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
     key:=#0;
     dblookupcombobox3.SetFocus;
    end;
end;

procedure Tmain_xjgl_xjlr.DBLookupComboBox3KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
     key:=#0;
     dblookupcombobox6.SetFocus;
    end;
end;

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

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

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

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

procedure Tmain_xjgl_xjlr.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_xjgl_xjlr.SpeedButton1Click(Sender: TObject);
begin
   table1.Append;
end;

procedure Tmain_xjgl_xjlr.SpeedButton2Click(Sender: TObject);
begin
   table1.Insert;
end;

procedure Tmain_xjgl_xjlr.SpeedButton4Click(Sender: TObject);
begin
     table1.edit;
end;

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

procedure Tmain_xjgl_xjlr.SpeedButton5Click(Sender: TObject);
begin
   table1.Post;
end;

procedure Tmain_xjgl_xjlr.SpeedButton6Click(Sender: TObject);
begin
   table1.cancel;

end;

procedure Tmain_xjgl_xjlr.SpeedButton7Click(Sender: TObject);
begin
   if findrecorddlg.ShowModal=mrok then
    begin
       if(findrecorddlg.RadioGroup1.Controls[0] as tradiobutton).checked then
            table1.filtered:=false;
            table1.filter:='学生编号='+''''+findrecorddlg.Edit1.Text+'''';
           table1.filtered:=true;
       end

  else if (findrecorddlg.RadioGroup1.Controls[1] as tradiobutton).checked then
        begin

              table1.filtered:=false;
                table1.filter:='学生姓名='+''''+findrecorddlg.Edit2.Text+'''';
                table1.filtered:=true;
         end;


end;

procedure Tmain_xjgl_xjlr.SpeedButton8Click(Sender: TObject);
begin
  close;
end;

procedure Tmain_xjgl_xjlr.SpeedButton10Click(Sender: TObject);
begin
  table1.Filtered:=false;
  table1.filter:='学生姓名<>'+''''+'dog'+'''';
  table1.Filtered:=true;
  table1.First;
end;

procedure Tmain_xjgl_xjlr.SpeedButton11Click(Sender: TObject);
begin
    main_xfgl_xxll_jfxx.Table1.open;
    main_xfgl_xxll_jfxx.table1.IndexFieldNames:='学生编号';
    main_xfgl_xxll_jfxx.table1.SetKey;
    main_xfgl_xxll_jfxx.table1.FieldByName('学生编号').value:=dbedit1.Text;
    main_xfgl_xxll_jfxx.table1.GotoKey;
    main_xfgl_xxll_jfxx.ShowModal;
end;

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

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

end.