jbxishowall.pas

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

unit jbxishowall;

interface

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

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

var
  ygshowall: Tygshowall;

implementation
uses ry,bm,lb,card,login;

{$R *.dfm}

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

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

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

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

procedure Tygshowall.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;

end;

procedure Tygshowall.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
append;
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 Tygshowall.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 Tygshowall.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 Tygshowall.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 Tygshowall.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 Tygshowall.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.