ygxxedit.pas

这个工资管理系统是我今年的毕业设计

unit ygxxedit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Mask, SkinBoxCtrls, StdCtrls, Buttons, ExtCtrls, ComCtrls, DB,
  ADODB;

type
  TForm38 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    Bevel1: TBevel;
    Label9: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    ComboBox7: TComboBox;
    Edit6: TEdit;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    TabSheet2: TTabSheet;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Edit7: TEdit;
    ComboBox8: TComboBox;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    spSkinDateEdit1: TspSkinDateEdit;
    spSkinDateEdit2: TspSkinDateEdit;
    spSkinDateEdit3: TspSkinDateEdit;
    spSkinDateEdit4: TspSkinDateEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    ComboBox9: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure spSkinDateEdit3Change(Sender: TObject);
    procedure spSkinDateEdit4Change(Sender: TObject);
    procedure spSkinDateEdit3DateChange(Sender: TObject);
    procedure spSkinDateEdit4DateChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form38: TForm38;

implementation
uses ry,login,bm,lb,card;
{$R *.dfm}

procedure TForm38.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TForm38.FormShow(Sender: TObject);
begin
combobox5.Items.Clear;
combobox6.Items.Clear;
combobox7.Items.Clear;

adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from bumen where 状态="正常"');
adoquery1.Open;
while not adoquery1.Eof do
begin
combobox5.Items.Add(adoquery1.FieldValues['部门名称']);
adoquery1.Next;
end;

adoquery2.SQL.Clear;
adoquery2.SQL.Add('select * from leib');
adoquery2.Open;
while not adoquery2.Eof do
begin
combobox6.Items.Add(adoquery2.FieldValues['类别名称']);
adoquery2.Next;
end;

adoquery3.SQL.Clear;
adoquery3.SQL.Add('select * from yinh');
adoquery3.Open;
while not adoquery3.Eof do
begin
combobox7.Items.Add(adoquery3.FieldValues['银行名称']);
adoquery3.Next;
end;

with form5.ADOQuery1 do
begin
edit1.Text:=fieldbyname('员工代码').AsString;
edit2.Text:=fieldbyname('姓名').AsString;
combobox1.ItemIndex:=combobox1.Items.IndexOf(fieldbyname('性别').AsString);
combobox2.ItemIndex:=combobox2.Items.indexof(fieldbyname('民族').AsString);
edit3.Text:=fieldbyname('出生日期').AsString;
combobox3.ItemIndex:=combobox3.items.IndexOf(fieldbyname('婚姻状况').AsString);
edit4.Text:=fieldbyname('年龄').AsString;
combobox4.ItemIndex:=combobox4.items.IndexOf(fieldbyname('政治面貌').AsString);
edit5.Text:=fieldbyname('身份证号').AsString;
combobox5.ItemIndex:=combobox5.Items.indexof(fieldbyname('所在部门').AsString);
combobox6.ItemIndex:=combobox6.items.IndexOf(fieldbyname('所属类别').AsString);
combobox7.ItemIndex:=combobox7.items.IndexOf(fieldbyname('工资代发银行').AsString);
edit6.Text:=fieldbyname('个人帐号').AsString;
edit7.Text:=fieldbyname('员工档案号').AsString;
combobox8.ItemIndex:=combobox8.items.IndexOf(fieldbyname('合同类别').AsString);
spskindateedit1.Date:=fieldbyname('合同期始').AsDateTime;
spskindateedit2.Date:=fieldbyname('合同期止').AsDateTime;
spskindateedit3.Date:=fieldbyname('参加工作时间').AsDateTime;
spskindateedit4.Date:=fieldbyname('入单位时间').AsDateTime;
edit8.Text:=fieldbyname('工龄').AsString;
edit9.text:=fieldbyname('在本单位工龄').AsString;
edit10.Text:=fieldbyname('职务').asstring;
edit11.Text:=fieldbyname('职称').AsString;
edit14.Text:=fieldbyname('专业').AsString;
combobox9.ItemIndex:=combobox9.items.IndexOf(fieldbyname('文化程度').AsString);
edit15.Text:=fieldbyname('毕业院校').AsString;
edit12.Text:=fieldbyname('电话').AsString;
edit13.Text:=fieldbyname('家庭住址').AsString;
if fieldbyname('工资发放状态').AsString='停发' then checkbox1.Checked:=true;
if fieldbyname('外方人员').AsString='是' then checkbox2.Checked:=true;
end;
end;

procedure TForm38.BitBtn1Click(Sender: TObject);
var
sex,mz,hy,mm,bm,lb,yh,ht,s,ss:string;
begin
sex:=combobox1.Text;
mz:=combobox2.Text;
hy:=combobox3.Text;
mm:=combobox4.Text;
bm:=combobox5.Text;
lb:=combobox6.Text;
yh:=combobox7.Text;
ht:=combobox8.Text;
if checkbox1.Checked then s:='停发' else s:='正常';
if checkbox2.Checked then ss:='是' else ss:='否';
with form5.ADOQuery1 do
begin
try
edit;
fieldbyname('员工代码').AsInteger:=strtoint(edit1.Text);
fieldbyname('姓名').AsString:=edit2.Text;
fieldbyname('性别').AsString:=sex;
fieldbyname('民族').AsString:=mz;
fieldbyname('出生日期').AsDateTime:=strtodate(edit3.Text);
fieldbyname('婚姻状况').AsString:=hy;
fieldbyname('年龄').AsString:=edit4.Text;
fieldbyname('政治面貌').AsString:=mm;
fieldbyname('身份证号').AsString:=edit5.Text;
fieldbyname('所在部门').AsString:=bm;
fieldbyname('所属类别').AsString:=lb;
fieldbyname('工资代发银行').AsString:=yh;
fieldbyname('个人帐号').AsString:=edit6.Text;
fieldbyname('工资发放状态').AsString:=s;
fieldbyname('外方人员').AsString:=ss;
fieldbyname('员工档案号').AsString:=edit7.Text;
fieldbyname('合同类别').AsString:=ht;
fieldbyname('合同期始').AsDateTime:=spskindateedit1.Date;
fieldbyname('合同期止').AsDateTime:=spskindateedit2.Date;
fieldbyname('参加工作时间').AsDateTime:=spskindateedit3.Date;
fieldbyname('入单位时间').AsDateTime:=spskindateedit4.Date;
fieldbyname('工龄').AsString:=edit8.Text;
fieldbyname('在本单位工龄').AsString:=edit9.Text;
fieldbyname('职务').AsString:=edit10.Text;
fieldbyname('职称').AsString:=edit11.Text;
fieldbyname('专业').AsString:=edit14.Text;
fieldbyname('文化程度').AsString:=combobox9.Text;
fieldbyname('毕业院校').AsString:=edit15.Text;
fieldbyname('电话').AsString:=edit12.Text;
fieldbyname('家庭住址').AsString:=edit13.Text;
post;
showmessage('员工数据信息修改成功！！');
except
cancel;
showmessage('员工数据修改失败！！');
end;
end;
form5.DBGridEh1.Refresh;
close;
end;

procedure TForm38.SpeedButton1Click(Sender: TObject);
begin
form6:=tform6.Create(application);
form6.ShowModal;
end;

procedure TForm38.SpeedButton3Click(Sender: TObject);
begin
form7:=tform7.Create(application);
form7.ShowModal;
end;

procedure TForm38.SpeedButton2Click(Sender: TObject);
begin
form9:=tform9.Create(application);
form9.ShowModal;
end;

procedure TForm38.Edit3Change(Sender: TObject);
var
da1:tdatetime;
y,m,d: Word;
y1,m1,d1:word;
begin
da1:=strtodate(edit3.Text);
decodedate(da1,y,m,d);
decodedate(date,y1,m1,d1);
edit4.Text:=inttostr(y1-y);
edit4.Refresh;
end;

procedure TForm38.spSkinDateEdit3Change(Sender: TObject);
var
y,m,d: Word;
y1,m1,d1:word;
begin
decodedate(spskindateedit3.Date,y,m,d);
decodedate(date,y1,m1,d1);
edit8.Text:=inttostr(y1-y);
edit8.Refresh;
end;

procedure TForm38.spSkinDateEdit4Change(Sender: TObject);
var
y,m,d: Word;
y1,m1,d1:word;
begin
decodedate(spskindateedit4.Date,y,m,d);
decodedate(date,y1,m1,d1);
edit9.Text:=inttostr(y1-y);
edit9.Refresh;
end;

procedure TForm38.spSkinDateEdit3DateChange(Sender: TObject);
var
y,m,d: Word;
y1,m1,d1:word;
begin
decodedate(spskindateedit3.Date,y,m,d);
decodedate(date,y1,m1,d1);
edit8.Text:=inttostr(y1-y);
edit8.Refresh;
end;

procedure TForm38.spSkinDateEdit4DateChange(Sender: TObject);
var
y,m,d: Word;
y1,m1,d1:word;
begin
decodedate(spskindateedit4.Date,y,m,d);
decodedate(date,y1,m1,d1);
edit9.Text:=inttostr(y1-y);
edit9.Refresh;
end;

end.