department_form.pas

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

unit department_form;

interface

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

type
  Tdepartment = class(TForm)
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Image1: TImage;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Label2: TLabel;
    Edit2: TEdit;
    Button2: TButton;
    Label3: TLabel;
    Panel5: TPanel;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    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 Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  department: Tdepartment;
  change    :bool;
   punum :string;
implementation
 uses data;
{$R *.dfm}

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

procedure Tdepartment.SpeedButton1Click(Sender: TObject);
begin

Edit3.Enabled:=True;
Edit4.Enabled:=True;
Edit5.Enabled:=True;
Edit6.Enabled:=True;
speedButton5.Enabled:=True;
speedButton6.Enabled:=True;
Speedbutton2.Enabled:=False;
Speedbutton3.Enabled:=False;


Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit2.SetFocus;
end;

procedure Tdepartment.SpeedButton2Click(Sender: TObject);
begin
if mydm.departmentquery.RecordCount=0 then
Exit;
speedbutton5.Enabled:=true;
speedbutton6.Enabled:=true;
change:=true;
Speedbutton1.Enabled:=false;
Speedbutton3.Enabled:=false;

Edit3.Enabled:=true;
Edit4.Enabled:=true;
Edit5.Enabled:=true;
Edit6.Enabled:=true;
Edit3.Text:=mydm.departmentsource.DataSet.Fields[0].AsString;
Edit4.Text:=mydm.departmentsource.DataSet.Fields[1].AsString;
Edit5.Text:=mydm.departmentsource.DataSet.Fields[2].AsString;
Edit6.Text:=mydm.departmentsource.DataSet.Fields[3].asstring;

end;


procedure Tdepartment.SpeedButton3Click(Sender: TObject);
begin

speedButton1.Enabled:=True;
speedButton2.Enabled:=True;
punum := mydm.departmentsource.DataSet.Fields[0].AsString;
if Application.MessageBox('是否删除?','提示',mb_yesno)=6 then//6为yes7为no
begin
with Mydm.personQuery do
begin
Close;
with SQL do
begin
Clear;
Add('UPDATE person SET department = null ');
Add('where department=:p2');
end;
Parameters[0].Value:=punum;
Prepared;
execsql;
end;
try
If mydm.departmentsource.DataSet.IsEmpty<>true then
begin
Mydm.departmentsource.DataSet.Delete;

end;
except
Application.MessageBox('无记录。','提示',mb_ok);
end;
end;
end;
procedure Tdepartment.SpeedButton5Click(Sender: TObject);
begin
if ((Edit3.text<>'') and (Edit4.Text<>'') and (Edit5.Text<>'')and (Edit6.Text<>'') ) then
begin
if Change=true then
begin
mydm.departmentsource.DataSet.Delete;
end;
with mydm.departmentquery do
begin
Close;
with SQL do
begin
Clear;
Add('insert into department values(:p0,:p1,:p2,:p3)');
end;
Parameters[0].value:=Trim(edit3.Text);
parameters[1].Value:=Trim(edit4.Text);
Parameters[2].Value:=Trim(edit5.Text);
Parameters[3].Value:=Trim(edit6.Text);

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

edit3.clear;
edit4.Clear;
edit5.clear;
edit6.Clear;


end;

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

edit3.clear;
edit4.Clear;
edit5.clear;
edit6.Clear;
edit3.SetFocus;
end;

procedure Tdepartment.Button1Click(Sender: TObject);
begin
with mydm.departmentquery do
begin
Close;
with SQL do
begin
Clear;
Add('select*from department where departmentname=:p0');
end;
Parameters[0].Value:=Trim(Edit1.Text);//Trim()为去空格函数
Prepared;
Open;
edit2.Clear;
end;
end;

procedure Tdepartment.Button2Click(Sender: TObject);
begin
with mydm.departmentquery do
begin
Close;
with SQL do
begin
Clear;
Add('select*from department where number=:p0');
end;
Parameters[0].Value:=Trim(Edit2.Text);//Trim()为去空格函数
Prepared;
Open;
edit1.Clear;
end;
end;
procedure Tdepartment.SpeedButton7Click(Sender: TObject);
begin
with mydm.departmentquery do
begin
Close;
with SQL do
begin
Clear;
Add('select*from department ');
end;
Prepared;
Open;
edit1.Clear;
edit2.Clear;
end;
end;

end.