unit18.~pas

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

unit Unit18;

interface

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

type
  Tlyxiugai = class(TForm)
    Label3: TLabel;
    Label2: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label9: TLabel;
    Label8: TLabel;
    Label7: TLabel;
    Label10: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    Label13: TLabel;
    ComboBox3: TComboBox;
    ComboBox2: TComboBox;
    Label12: TLabel;
    Label14: TLabel;
    ComboBox1: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    DBGrid1: TDBGrid;
    procedure Button5Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  lyxiugai: Tlyxiugai;

implementation

uses Unit1, Unit17, Unit2, Unit3;

{$R *.dfm}

procedure Tlyxiugai.Button5Click(Sender: TObject);
begin
 application.CreateForm(Trenshigl,renshigl);
renshigl.ShowModal;
renshigl.Free;
end;

procedure Tlyxiugai.Button3Click(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 Tlyxiugai.FormCreate(Sender: TObject);
var
i:integer;
begin
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;
dbedit1.DataField:='签约合同号';
dbedit2.DataField:='员工id';
dbedit3.DataField:='姓名';
dbedit4.DataField:='签约日期';
dbedit5.DataField:='受聘部门';
dbedit6.DataField:='备注';
ComboBox4.Text:=Fieldbyname('合同类型').AsString;
ComboBox5.Text:=Fieldbyname('聘用标志').AsString;
ComboBox1.Text:=copy(Fieldbyname('合同到期日期').AsString,1,4);
ComboBox2.Text:=copy(Fieldbyname('合同到期日期').AsString,6,8);
ComboBox3.Text:=copy(Fieldbyname('合同到期日期').AsString,10,2);
  end;
end;

procedure Tlyxiugai.DBGrid1CellClick(Column: TColumn);
begin
with dm.ADOQuery1 do
begin
  ComboBox4.Text:=Fieldbyname('合同类型').AsString;
ComboBox5.Text:=Fieldbyname('聘用标志').AsString;
ComboBox1.Text:=copy(Fieldbyname('合同到期日期').AsString,1,4);
ComboBox2.Text:=copy(Fieldbyname('合同到期日期').AsString,6,8);
ComboBox3.Text:=copy(Fieldbyname('合同到期日期').AsString,10,2);
 end;
end;

procedure Tlyxiugai.Button1Click(Sender: TObject);
begin
 with dm.ADOQuery1 do
begin
edit;
FieldByName('签约合同号').AsString:=dbedit1.Text;
FieldByName('员工id').AsString:=dbedit2.Text;
FieldByName('姓名').AsString:=dbedit3.Text;
FieldByName('签约日期').AsString:=dbedit4.Text;
FieldByName('合同到期日期').AsString:=ComboBox1.Text+'年'+ComboBox2.Text+'月'+ComboBox3.Text+'日';
FieldByName('合同类型').AsString:=combobox4.Text;
FieldByName('受聘部门').AsString:=dbedit5.Text;
FieldByName('聘用标志').AsString:=combobox5.Text;
FieldByName('备注').AsString:=dbedit6.Text;
post;
end;
application.MessageBox('修改成功!','提示',64);
end;

procedure Tlyxiugai.Button4Click(Sender: TObject);
begin
lyxiugai.Close;
end;

end.