unit3.pas

企业人事管理系统：包括人事信息档案考勤管理培训管理

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Buttons, DBCtrls, Mask, Grids, DBGrids,
  FR_DSet, FR_DBSet, FR_Class, DB, ADODB, DBActns, ActnList;

type
  Tform3 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    RadioButton2: TRadioButton;
    RadioButton1: TRadioButton;
    DBEdit15: TDBEdit;
    Label2: TLabel;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DBEdit3: TDBEdit;
    Label3: TLabel;
    DBEdit4: TDBEdit;
    Label15: TLabel;
    DBEdit5: TDBEdit;
    Label5: TLabel;
    DBComboBox2: TDBComboBox;
    Label4: TLabel;
    DBEdit6: TDBEdit;
    Label6: TLabel;
    DBEdit7: TDBEdit;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    DBEdit11: TDBEdit;
    Label11: TLabel;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    DBEdit9: TDBEdit;
    Label9: TLabel;
    Label19: TLabel;
    DBEdit2: TDBEdit;
    DBEdit12: TDBEdit;
    Label12: TLabel;
    Label13: TLabel;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    BitBtn4: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    DBGrid3: TDBGrid;
    stb: TStatusBar;
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    Label16: TLabel;
    Label17: TLabel;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    BitBtn9: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn1: TBitBtn;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    frReport1: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    ADOQuery1DSDesigner: TWideStringField;
    ADOQuery1DSDesigner2: TWideStringField;
    ADOQuery1DSDesigner3: TWideStringField;
    ADOQuery1DSDesigner4: TWideStringField;
    ADOQuery1DSDesigner5: TDateTimeField;
    ADOQuery1DSDesigner6: TDateTimeField;
    ADOQuery1DSDesigner7: TWideStringField;
    ADOQuery1DSDesigner8: TWideStringField;
    ADOQuery1DSDesigner9: TDateTimeField;
    ADOQuery1DSDesigner10: TWideStringField;
    ADOQuery1DSDesigner11: TWideStringField;
    ADOQuery1DSDesigner12: TDateTimeField;
    ADOQuery1DSDesigner13: TWideStringField;
    ADOQuery1DSDesigner14: TDateTimeField;
    ADOQuery1DSDesigner15: TDateTimeField;
    ADOQuery1DSDesigner16: TWideStringField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure qSearch();
    procedure selectDB(_strsql:string;_Query: TADOQuery;select:boolean);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure DataSource1StateChange(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);

  private
    { Private declarations }
     bystr:string;
  public
    { Public declarations }

  end;

var
  form3: Tform3;

implementation

{$R *.dfm}

procedure tform3.qSearch();
var
strsql:string;
strzd,strtj,strval:string;
begin
if edit1.Text ='' then exit;
if combobox1.ItemIndex =3  then
strval:='#'+edit1.Text+'#'
else
strval:=''''+edit1.Text+'''';
strzd:=combobox1.Text ;
strtj:=combobox2.Text;
strsql:='select * from tbk where '+
      strzd+' '+strtj+' '+strval ;

    strsql:=strsql+' order by '+bystr;

    selectdb(strsql,adoquery1,true);
 showmessage('共找到'+inttostr(adoquery1.RecordCount)+'条记录');
 end;
 procedure tform3.selectDB(_strsql:string;_Query: TADOQuery;select:boolean);
begin
    _query.Close;
    _query.SQL.Text:=_strsql;
    if select then  _query.Open
    else
     _query.ExecSQL;
end;
procedure Tform3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  datasource1.DataSet.Close;
 Action := caFree ;
end;

procedure Tform3.BitBtn1Click(Sender: TObject);
var
strsql:string;
begin
strsql:='select * from tbk  order by '+bystr;
 selectdb(strsql,adoquery1,true);
end;
procedure Tform3.RadioButton1Click(Sender: TObject);
begin
if  RadioButton1.Checked then
bystr:='档案号'
else
bystr:='入库时间' ;

end;

procedure Tform3.RadioButton2Click(Sender: TObject);
begin
if  RadioButton1.Checked then
bystr:='档案号'
else
bystr:='入库时间' ;
end;
procedure Tform3.BitBtn11Click(Sender: TObject);
begin
  if MessageDlg('确认删除档案号['+dbedit1.Text+']'+dbedit3.Text+'的记录吗?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
adoquery1.Delete;
end;
procedure Tform3.BitBtn7Click(Sender: TObject);
begin
  qsearch();
end;

procedure Tform3.DataSource1DataChange(Sender: TObject; Field: TField);
begin
 stb.Panels.Items[2].Text:='当前记录：'+IntToStr(adoquery1.RecNo  );
  stb.Panels.Items[1].Text:='记录总数：'+IntToStr(DataSource1.DataSet.RecordCount);
end;

procedure Tform3.DataSource1StateChange(Sender: TObject);
begin
  case DataSource1.State of
  dsBrowse :stb.Panels.Items[0].Text:='[浏览模式]';
  dsEdit:stb.Panels.Items[0].Text:='[编辑模式]';
  dsInsert:stb.Panels.Items[0].Text:='[插入模式]';
  else stb.Panels.Items[0].Text:='[其他模式]';
  end;
end;

procedure Tform3.BitBtn2Click(Sender: TObject);
begin
adoquery1.First;
end;

procedure Tform3.BitBtn3Click(Sender: TObject);
begin
adoquery1.Prior;
end;

procedure Tform3.BitBtn4Click(Sender: TObject);
begin
adoquery1.Next;
end;

procedure Tform3.BitBtn10Click(Sender: TObject);
begin
adoquery1.Append;
end;

procedure Tform3.BitBtn12Click(Sender: TObject);
begin

adoquery1.Post;
end;

procedure Tform3.FormCreate(Sender: TObject);
begin
bystr:='档案号';
end;

procedure Tform3.BitBtn6Click(Sender: TObject);
begin
frReport1.ShowReport ;
end;

procedure Tform3.BitBtn9Click(Sender: TObject);
begin
self.Close;
end;

procedure Tform3.BitBtn5Click(Sender: TObject);
begin
adoquery1.Last ;
end;

end.