findemp.pas

蛮好的系统大家一起使用看看!~呵呵!关于图书仓库管理系统的!

unit findemp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ExtCtrls, Grids, DBGrids, DBCtrls, ComCtrls;

type
  TForm3 = class(TForm)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label1: TLabel;
    Edit2: TEdit;
    Edit1: TEdit;
    SpeedButton2: TSpeedButton;
    SpeedButton1: TSpeedButton;
    Image1: TImage;
    Panel1: TPanel;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Label5: TLabel;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit12: TEdit;
    Edit14: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    SpeedButton9: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton10: TSpeedButton;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    GroupBox4: TGroupBox;
    DBGrid1: TDBGrid;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses data, pemp1, pemp2;

{$R *.dfm}

procedure TForm3.SpeedButton1Click(Sender: TObject);
Var
s1,s2,s3,s4,s5 :String;
begin
with dm.empQuery do
begin
close;
SQL.Clear;
SQL.Add('select * from employee');
SQL.Add('where employeeID Like :employeeID and Name Like :Name and sex Like :sex and grade Like :grade and type Like :type ');

if Edit1.Text<>''  then  s1:='%'+Edit1.Text+'%'   else  s1:='%';
Parameters.ParamByName('employeeID').Value:=s1;
if Edit2.Text<>''  then  s2:='%'+Edit2.Text+'%'   else  s2:='%';
Parameters.ParamByName('Name').Value:=s2;
if ComboBox3.Text<>''  then  s3:='%'+ComboBox3.Text+'%'   else  s3:='%';
Parameters.ParamByName('sex').Value:=s3;
if ComboBox6.Text<>''  then  s4:='%'+ComboBox6.Text+'%'   else  s4:='%';
Parameters.ParamByName('grade').Value:=s4;
if ComboBox4.Text<>''  then  s5:='%'+ComboBox4.Text+'%'   else  s5:='%';
Parameters.ParamByName('type').Value:=s5;
open;
if FieldValues['employeeID']=NULL
then  begin
Messagedlg('没有找到你所需要的记录！',mtInformation,[mbOK],0);
Edit1.Text:='';Edit2.Text:='';ComboBox3.Text:='';ComboBox6.Text:=''; ComboBox4.Text :='' ;
close;
SQL.Clear;
SQL.Add('select * from employee');
open;
end
else
   begin
   edit6.Text :=fieldvalues['employeeid'];
   edit7.Text :=fieldvalues['name'];
   ComboBox1.Text :=fieldvalues['sex'];
   DateTimePicker2.Date :=strtodate(fieldvalues['borndate']);
   ComboBox5.Text :=fieldvalues['grade'];
   DateTimePicker1.Date :=strtodate(fieldvalues['workdate']);
   edit12.Text :=fieldvalues['telephone'];
   ComboBox2.Text :=fieldvalues['type'];
   edit14.Text :=fieldvalues['address'];
   end;
end;
end;




procedure TForm3.SpeedButton2Click(Sender: TObject);
begin
edit1.Clear ;
edit2.Clear ;
combobox3.Text :='';
combobox6.Text :='';
combobox4.Text :='';
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
DBGrid1.DataSource:=dm.EmpSource;

end;

procedure TForm3.BitBtn4Click(Sender: TObject);
begin
if messagedlg('您真的要清除吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
edit6.Clear ;
edit7.Clear ;
combobox1.Text :='';
combobox2.Text :='';
combobox5.Text :='';
edit12.Clear ;edit14.Clear ;
end;
end;

procedure TForm3.SpeedButton5Click(Sender: TObject);
begin
close;
end;

procedure TForm3.BitBtn2Click(Sender: TObject);
begin
if messagedlg('您真的要修改吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
with dm.emptable do
begin
 try
{if not locate('employeeid',edit1.Text,[]) then
showmessage('请输入要修改记录的编号')
else }
begin
 edit;
 fieldByName('employeeid').asstring  :=edit6.Text ;
 fieldByName ('name').asstring :=edit7.Text ;
 fieldByName ('sex').asstring :=ComboBox1.Text ;
 fieldByName ('borndate').AsDateTime:=DateTimePicker2.date ;
 fieldByName ('grade').asstring :=ComboBox5.Text ;
 fieldByName('workdate').AsDateTime:=DateTimePicker1.date ;
 fieldByName('telephone').asstring :=edit12.Text ;
 fieldByName('type').asstring :=ComboBox2.Text ;
 fieldByName('address').asstring:=edit14.Text ;
 post;
 end;
 except
  cancel;
  end;
 end; 
end;

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
if messagedlg('您真的要增加吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
if dm.empTable.Locate('employeeid',edit6.Text ,[]) then
showmessage('员工信息已经存在,请重新输入!')
else
with dm.empTable do
begin
 try
 append;
 fieldByName('employeeid').asstring  :=edit6.Text ;
 fieldByName ('name').asstring :=edit7.Text ;
 fieldByName ('sex').asstring :=ComboBox1.Text ;
 fieldByName ('borndate').AsDateTime :=DateTimePicker2.date ;
 fieldByName ('grade').asstring :=ComboBox5.Text ;
 fieldByName('workdate').AsDateTime:=DateTimePicker1.date ;
 fieldByName('telephone').asstring :=edit12.Text ;
 fieldByName('type').asstring :=ComboBox2.Text ;
 fieldByName('address').asstring:=edit14.Text ;
 post;
 except
 cancel;
 end;
end;
end;
procedure TForm3.BitBtn3Click(Sender: TObject);
begin
if messagedlg('您真的要删除吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
with dm.emptable do
begin
 try
 {if not locate('employeeid',edit1.Text,[]) then
showmessage('请输入要删除记录的编号')
else }
begin
 delete;
 refresh;
 end;
 except
 showmessage('不能删除');
end;
edit6.Clear ;
edit7.Clear ;

edit12.Clear ;edit14.Clear ;
end;
end;
end;

procedure TForm3.SpeedButton3Click(Sender: TObject);
begin
with dm.empQuery do
begin
close;
SQL.Clear;
SQL.Add('select * from employee');
open;
end;
end;

procedure TForm3.SpeedButton4Click(Sender: TObject);
begin
form14.showmodal;
end;

procedure TForm3.SpeedButton6Click(Sender: TObject);
begin
with dm.emptable do
begin
open;
first;
edit6.Text :=fieldvalues['employeeid'];
   edit7.Text :=fieldvalues['name'];
   ComboBox1.Text :=fieldvalues['sex'];
   DateTimePicker2.Date:=strtodate(fieldvalues['borndate']);
   ComboBox5.Text :=fieldvalues['grade'];
   DateTimePicker1.Date :=strtodate(fieldvalues['workdate']);
   edit12.Text :=fieldvalues['telephone'];
   ComboBox2.Text :=fieldvalues['type'];
   edit14.Text :=fieldvalues['address'];
   end;
end;

procedure TForm3.SpeedButton7Click(Sender: TObject);
begin
with dm.emptable do
begin
open;
prior;
edit6.Text :=fieldvalues['employeeid'];
   edit7.Text :=fieldvalues['name'];
   ComboBox1.Text :=fieldvalues['sex'];
   DateTimePicker2.date:=strtodate(fieldvalues['borndate']);
   ComboBox5.Text :=fieldvalues['grade'];
   DateTimePicker1.date:=strtodate(fieldvalues['workdate']);
   edit12.Text :=fieldvalues['telephone'];
   ComboBox2.Text :=fieldvalues['type'];
   edit14.Text :=fieldvalues['address'];
   end;
end;

procedure TForm3.SpeedButton8Click(Sender: TObject);
begin
with dm.emptable do
begin
open;
next;
edit6.Text :=fieldvalues['employeeid'];
   edit7.Text :=fieldvalues['name'];
   ComboBox1.Text :=fieldvalues['sex'];
   DateTimePicker2.date :=strtodate(fieldvalues['borndate']);
   ComboBox5.Text :=fieldvalues['grade'];
   DateTimePicker1.date:=strtodate(fieldvalues['workdate']);
   edit12.Text :=fieldvalues['telephone'];
   ComboBox2.Text :=fieldvalues['type'];
   edit14.Text :=fieldvalues['address'];
   end;
end;

procedure TForm3.SpeedButton9Click(Sender: TObject);
begin
with dm.emptable do
begin
open;
last;
edit6.Text :=fieldvalues['employeeid'];
   edit7.Text :=fieldvalues['name'];
   ComboBox1.Text :=fieldvalues['sex'];
  DateTimePicker2.date :=strtodate(fieldvalues['borndate']);
   ComboBox5.Text :=fieldvalues['grade'];
   DateTimePicker1.date:=strtodate(fieldvalues['workdate']);
   edit12.Text :=fieldvalues['telephone'];
   ComboBox2.Text :=fieldvalues['type'];
   edit14.Text :=fieldvalues['address'];
   end;
end;

procedure TForm3.SpeedButton10Click(Sender: TObject);
var str:string;
begin
if edit1.Text <>'' then
with dm.emptable do
begin
filtered:=false;
str:='employeeid='+edit1.text;
filter:=str;
filtered:=true;
end;
form15.quickrep1.preview;

end;

procedure TForm3.DBGrid1TitleClick(Column: TColumn);
begin
with dm.empQuery do
begin
close;
sql.clear;
sql.Text:='select * from employee order by +'''+ column.FieldName+'''asc';
open;
end;
end;

procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char);
var numset:set of char;
begin
numset:=['0'..'9',#8];
if not (key in numset) then key:=#0;

end;

end.