person.pas

这是一个用Delphi写的工资管理系统

unit person;

interface

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

type
  Tperson_form = class(TForm)
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label6: TLabel;
    Panel3: TPanel;
    Label5: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Panel4: TPanel;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Panel5: TPanel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Edit14: TEdit;
    Edit15: TEdit;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    DBGrid1: TDBGrid;
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject); 
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  person_form: Tperson_form;
  change     :bool;
  add1       :string;
  add2       :integer;
  add3       :integer;
  add4       :integer;
  add5       :integer;
  sub1       :integer;
  sub2       :integer;
  sub3       :integer;
  sub4       :integer;
implementation
 uses data;
{$R *.dfm}

procedure Tperson_form.SpeedButton4Click(Sender: TObject);
begin
close;
end;

procedure Tperson_form.SpeedButton1Click(Sender: TObject);
begin
Edit1.Enabled:=True;
Edit2.Enabled:=True;
Edit3.Enabled:=True;
Edit4.Enabled:=True;
Edit5.Enabled:=True;
Edit6.Enabled:=True;
Edit7.Enabled:=True;
Edit8.Enabled:=True;
Edit9.Enabled:=True;
Edit10.Enabled:=True;
Edit11.Enabled:=True;
Edit12.Enabled:=True;
speedButton5.Enabled:=True;
speedButton6.Enabled:=True;
Speedbutton2.Enabled:=False;
Speedbutton3.Enabled:=False;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
Edit8.Clear;
Edit9.Clear;
Edit10.Clear;
Edit11.Clear;
Edit12.Clear;
Edit1.SetFocus;
end;
procedure Tperson_form.SpeedButton2Click(Sender: TObject);
begin
if mydm.personquery.RecordCount=0 then
Exit;
speedbutton5.Enabled:=true;
speedbutton6.Enabled:=true;
change:=true;
Speedbutton1.Enabled:=false;
Speedbutton3.Enabled:=false;

Edit1.Enabled:=True;
Edit2.Enabled:=True;
Edit3.Enabled:=True;
Edit4.Enabled:=True;
Edit5.Enabled:=True;
Edit6.Enabled:=True;
Edit7.Enabled:=True;
Edit8.Enabled:=True;
Edit9.Enabled:=True;
Edit10.Enabled:=True;
Edit11.Enabled:=True;
Edit12.Enabled:=True;
Edit1.Text:=mydm.personsource.DataSet.Fields[0].AsString;
Edit2.Text:=mydm.personsource.DataSet.Fields[1].AsString;
Edit3.Text:=mydm.personsource.DataSet.Fields[2].AsString;

Edit4.Text:=mydm.personsource.DataSet.Fields[3].AsString;
Edit5.Text:=mydm.personsource.DataSet.Fields[4].AsString;
Edit6.Text:=mydm.personsource.DataSet.Fields[5].asstring;
Edit7.Text:=mydm.personsource.DataSet.Fields[6].AsString;
Edit8.Text:=mydm.personsource.DataSet.Fields[7].AsString;
Edit9.Text:=mydm.personsource.DataSet.Fields[8].AsString;
Edit10.Text:=mydm.personsource.DataSet.Fields[9].AsString;
Edit11.Text:=mydm.personsource.DataSet.Fields[10].AsString;
Edit12.Text:=mydm.personsource.DataSet.Fields[11].AsString;

end;

procedure Tperson_form.SpeedButton3Click(Sender: TObject);
begin
speedButton1.Enabled:=True;
speedButton2.Enabled:=True;

if Application.MessageBox('是否删除?','提示',mb_yesno)=6 then//6为yes7为no
begin
try
If mydm.personsource.DataSet.IsEmpty<>true then
begin
Mydm.personsource.DataSet.Delete;
end;
except
Application.MessageBox('无记录。','提示',mb_ok);
end;
end;
end;

procedure Tperson_form.SpeedButton5Click(Sender: TObject);
begin
if ((Edit1.text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'') ) then
begin
if Change=true then
begin
mydm.personsource.DataSet.Delete;
end;
with mydm.personquery do
begin
Close;
with SQL do
begin
Clear;
Add('insert into person values(:p0,:p1,:p2,:p3,:p4,:p5,:p6,:p7,:p8,:p9,:p10,:p11)');
end;
Parameters[0].value:=Trim(edit1.Text);
parameters[1].Value:=Trim(edit2.Text);
Parameters[2].Value:=Trim(edit3.Text);
Parameters[3].Value:=Trim(edit4.Text);
Parameters[4].value:=Trim(edit5.Text);
parameters[5].Value:=Trim(edit6.Text);
Parameters[6].Value:=Trim(edit7.Text);
Parameters[7].Value:=Trim(edit8.Text);
Parameters[8].value:=Trim(edit9.Text);
parameters[9].Value:=Trim(edit10.Text);
Parameters[10].Value:=Trim(edit11.Text);
Parameters[11].Value:=Trim(edit12.Text);

Execsql;
end;
with mydm.personquery do
begin
Close;
with SQL do
begin
Clear;
Add('select*from person');
end;
Open;
Change:=false;
end;
end
else
begin
Application.MessageBox('输入必要信息。','提示',64);
edit1.SetFocus;
exit;
end;
Speedbutton1.Enabled:=true;
Speedbutton2.Enabled:=true;
Speedbutton3.Enabled:=true;

Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
Edit8.Clear;
Edit9.Clear;
Edit10.Clear;
Edit11.Clear;
Edit12.Clear;

end;
procedure Tperson_form.SpeedButton6Click(Sender: TObject);
begin
Speedbutton1.Enabled:=true;
Speedbutton2.Enabled:=true;
Speedbutton3.Enabled:=true;

Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
Edit8.Clear;
Edit9.Clear;
Edit10.Clear;
Edit11.Clear;
Edit12.Clear;

edit1.SetFocus;
end;

procedure Tperson_form.SpeedButton7Click(Sender: TObject);
begin
with mydm.personquery do
begin
Close;
with SQL do
begin
Clear;
Add('select*from person where personno=:p0');
end;
Parameters[0].Value:=Trim(Edit14.Text);//Trim()为去空格函数
Prepared;
Open;
add1:= mydm.personsource.DataSet.Fields[3].AsString;
//add2 := strtoint(add1);
//add2:= strtoint(mydm.personsource.DataSet.Fields[4].AsString);
//add3:= strtoint(mydm.personsource.DataSet.Fields[5].AsString);
//add4:= strtoint(mydm.personsource.DataSet.Fields[6].AsString);
//add5:= strtoint(mydm.personsource.DataSet.Fields[7].AsString);
//sub1:= strtoint(mydm.personsource.DataSet.Fields[8].AsString);
//sub2:= strtoint(mydm.personsource.DataSet.Fields[9].AsString);
//sub3:= strtoint(mydm.personsource.DataSet.Fields[10].AsString);
//sub4:= strtoint(mydm.personsource.DataSet.Fields[11].AsString);
edit15.Clear;
end;
end;

procedure Tperson_form.SpeedButton8Click(Sender: TObject);
begin
with mydm.personquery do
begin
Close;
with SQL do
begin
Clear;
Add('select*from person where name=:p0');
end;
Parameters[0].Value:=Trim(Edit15.Text);//Trim()为去空格函数
Prepared;
Open;
edit14.Clear;
end;
end;

procedure Tperson_form.SpeedButton9Click(Sender: TObject);
begin
with mydm.personquery do
begin
Close;
with SQL do
begin
Clear;
Add('select*from person');
end;
Prepared;
Open;
end;
end;


end.