main_yggl_yglrform.pas

校园综合管理系统

unit main_yggl_yglrform;

interface

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

type
  Tmain_yggl_yglr = class(TForm)
    Panel4: TPanel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBMemo1: TDBMemo;
    DataSource1: TDataSource;
    Table1: TTable;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    Table2: TTable;
    DBComboBox3: TDBComboBox;
    DBComboBox4: TDBComboBox;
    OpenPictureDialog1: TOpenPictureDialog;
    Panel1: TPanel;
    Label1: TLabel;
    DBImage1: TDBImage;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Label2: TLabel;
    DBNavigator1: TDBNavigator;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Bevel1: TBevel;
    procedure FormShow(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(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 DBComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox3KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox4KeyPress(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 DBMemo1KeyPress(Sender: TObject; var Key: Char);
    procedure Table1PostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }

  end;
    const
    eKeyViol=9729;
    eRequiredFieldMissing=9732;
var
  main_yggl_yglr: Tmain_yggl_yglr;

implementation

uses findrecord, printform;

{$R *.DFM}

procedure Tmain_yggl_yglr.FormShow(Sender: TObject);
var
  i:integer;
begin
   table2.close;
   table2.TableName:='gzbm';
    table2.open;
    table2.First;
    for i:=1 to table2.RecordCount do
     begin
       dbcombobox2.Items.Add(table2.Fields[0].value);
       table2.Next;
     end;

      table2.close;
   table2.TableName:='xzzw';
    table2.open;
    table2.First;
    for i:=1 to table2.RecordCount do
     begin
       dbcombobox3.Items.Add(table2.Fields[0].value);
       table2.Next;
     end;

      table2.close;
   table2.TableName:='jszc';
    table2.open;
    table2.First;
    for i:=1 to table2.RecordCount do
     begin
       dbcombobox4.Items.Add(table2.Fields[0].value);
       table2.Next;
     end;
     table1.open;
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

procedure Tmain_yggl_yglr.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_yggl_yglr.SpeedButton4Click(Sender: TObject);
begin
  close;
end;

procedure Tmain_yggl_yglr.SpeedButton1Click(Sender: TObject);
begin
   findrecorddlg.RG2.visible:=true;
 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_yggl_yglr.SpeedButton2Click(Sender: TObject);
begin
   table1.Filtered:=false;
  table1.filter:='职工姓名<>'+''''+'dog'+'''';
  table1.Filtered:=true;
  table1.First;
end;

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

end.