unit17.~pas

一个完整的工资管理系统 主要走查询 添加 删除 管理等功能

unit Unit17;

interface

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

type
  Trenshigl = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    Edit5: TEdit;
    ComboBox5: TComboBox;
    Edit6: TEdit;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    DBGrid1: TDBGrid;
    Button6: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  renshigl: Trenshigl;

implementation

uses Unit1, Unit2, Unit3, Unit18, Unit19;

{$R *.dfm}

procedure Trenshigl.FormCreate(Sender: TObject);
var
i:integer;
begin
edit4.Text:=DateTimeToStr(now);
Button2.Enabled:=false;
edit1.Enabled:=false;
edit2.Enabled:=false;
edit3.Enabled:=false;
edit4.Enabled:=false;
edit5.Enabled:=false;
edit6.Enabled:=false;
combobox1.Enabled:=false;
combobox2.Enabled:=false;
combobox3.Enabled:=false;
combobox4.Enabled:=false;
combobox5.Enabled:=false;
ComboBox4.Items.Add('劳动合同');
ComboBox4.Items.Add('劳务合同');
ComboBox5.Items.Add('录用');
ComboBox5.Items.Add('续聘');
ComboBox5.Items.Add('解聘');
for i:=2008 to 2099 do
  ComboBox1.Items.Add(inttostr(i));
  for i:=1 to 12 do
  ComboBox2.Items.Add(inttostr(i));
  for i:=1 to 31 do
  ComboBox3.Items.Add(inttostr(i));
  with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from ygluyong '  );
Open;
 dbgrid1.Columns[0].FieldName:='签约合同号';
 dbgrid1.Columns[1].FieldName:='员工id';
 dbgrid1.Columns[2].FieldName:='姓名';
 dbgrid1.Columns[3].FieldName:='签约日期';
 dbgrid1.Columns[4].FieldName:='合同到期日期';
 dbgrid1.Columns[5].FieldName:='合同类型';
 dbgrid1.Columns[6].FieldName:='受聘部门';
 dbgrid1.Columns[7].FieldName:='聘用标志';
 dbgrid1.Columns[8].FieldName:='备注';
 for i:=0 to 8 do
  dbgrid1.Columns[i].Width:=72;
  end;
end;

procedure Trenshigl.Button5Click(Sender: TObject);
begin
renshigl.Close;
end;

procedure Trenshigl.Button1Click(Sender: TObject);
begin
Button2.Enabled:=true;
edit1.Enabled:=true;
edit2.Enabled:=true;
edit3.Enabled:=true;
edit4.Enabled:=true;
edit5.Enabled:=true;
edit6.Enabled:=true;
combobox1.Enabled:=true;
combobox2.Enabled:=true;
combobox3.Enabled:=true;
combobox4.Enabled:=true;
combobox5.Enabled:=true;

end;

procedure Trenshigl.Button2Click(Sender: TObject);
begin
 if edit1.Text<>'' then
 begin
 if  edit2.Text<>'' then
 begin
 if edit3.Text<>'' then
 begin
 if edit5.Text<>'' then
 begin
 with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from ygluyong where 签约合同号='''+edit1.Text+''''  );
Open;
if  dm.ADOQuery1.Eof then
begin
Append;
FieldByName('签约合同号').AsString:=edit1.Text;
FieldByName('员工id').AsString:=edit2.Text;
FieldByName('姓名').AsString:=edit3.Text;
FieldByName('签约日期').AsString:=edit4.Text;
FieldByName('合同到期日期').AsString:=ComboBox1.Text+'年'+ComboBox2.Text+'月'+ComboBox3.Text+'日';
FieldByName('合同类型').AsString:=combobox4.Text;
FieldByName('受聘部门').AsString:=edit5.Text;
FieldByName('聘用标志').AsString:=combobox5.Text;
FieldByName('备注').AsString:=edit6.Text;
post;
sql.Clear;
sql.Add('select *  from ygluyong '  );
Open;
application.MessageBox('添加成功!','提示',64);
   edit1.SetFocus;
end
else
begin
application.MessageBox('已存在的合同号，请重新输入合同号！！','木鱼工作室',mb_iconhand+mb_yesno);
   edit1.Text:='';
   edit1.SetFocus;
sql.Clear;
sql.Add('select *  from ygluyong '  );
Open;
end

end
 end
 else
 begin
   application.MessageBox('请输入受聘部门！！','木鱼工作室',mb_iconhand+mb_yesno);
   edit5.Text:='';
   edit5.SetFocus;
 end

 end
 else
 begin
  application.MessageBox('请输入员工姓名！！','木鱼工作室',mb_iconhand+mb_yesno);
   edit3.Text:='';
   edit3.SetFocus;
 end
 end
 else
 begin
  application.MessageBox('请输入员工编号！！','木鱼工作室',mb_iconhand+mb_yesno);
   edit2.Text:='';
   edit2.SetFocus;
 end
 end
 else
 begin
  application.MessageBox('请输入合同号！！','木鱼工作室',mb_iconhand+mb_yesno);
   edit1.Text:='';
   edit1.SetFocus;
 end;
end;

procedure Trenshigl.Button4Click(Sender: TObject);
begin
 if application.MessageBox('确实要删除当前数据吗?','提示',mb_iconquestion+mb_yesno)=id_yes then
begin
try
 dm.ADOQuery1.Delete;
 dm.ADOQuery1.Refresh;

 application.MessageBox('删除成功!','提示',64);

 except
 application.MessageBox('系统出错!','提示',64);
 end;
 end;
end;

procedure Trenshigl.Button3Click(Sender: TObject);
begin
application.CreateForm(Tlyxiugai,lyxiugai);
lyxiugai.ShowModal;
lyxiugai.Free;

end;

procedure Trenshigl.Button6Click(Sender: TObject);
begin
application.CreateForm(Tlychaxun,lychaxun);
lychaxun.ShowModal;
lychaxun.Free;
end;

end.