📄 zgxi_in.pas
字号:
unit Zgxi_In;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB, ADODB, Grids, DBGrids, Mask;
type
TZgxxlr_Form = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
ADOTable1: TADOTable;
GroupBox1: TGroupBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label1: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
MaskEdit1: TMaskEdit;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
MaskEdit2: TMaskEdit;
MaskEdit4: TMaskEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Label2: TLabel;
ComboBox1: TComboBox;
ADOConnection1: TADOConnection;
Edit11: TEdit;
ADOTable2: TADOTable;
ADOQuery1: TADOQuery;
ADOTable3: TADOTable;
procedure FormActivate(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Edit1Exit(Sender: TObject);
procedure ADOTable2AfterScroll(DataSet: TDataSet);
private
{ Private declarations }
procedure initdbgrid();
procedure initform();
procedure loadfromtable();
public
{ Public declarations }
end;
var
Zgxxlr_Form: TZgxxlr_Form;
implementation
uses Main;
{$R *.dfm}
procedure TZgxxlr_Form.initdbgrid();
begin
dbgrid1.Columns[0].Width:=100;
dbgrid1.Columns[1].Width:=90;
dbgrid1.Columns[2].Width:=60;
dbgrid1.Columns[3].Width:=80;
dbgrid1.Columns[4].Width:=100;
dbgrid1.Columns[5].Width:=100;
dbgrid1.Columns[6].Width:=100;
dbgrid1.Columns[7].Width:=100;
dbgrid1.Columns[8].Width:=100;
dbgrid1.Columns[9].Width:=100;
dbgrid1.Columns[10].Width:=80;
dbgrid1.Columns[11].Width:=80;
dbgrid1.Columns[12].Width:=80;
dbgrid1.Columns[13].Width:=80;
dbgrid1.Columns[14].Width:=80;
end;
{
adotable1.AppendRecord([edit1.Text,//职工编号
edit11.Text,//职工姓名
combobox1.Text,//职工性别
strtodate(maskedit1.Text),//出生年月
edit10.Text, //身份证号
edit2.Text, //通信地址
edit6.Text, //联系电话
edit3.Text, //工作部门
strtocurr(edit7.Text),//基本工资
strtodate(maskedit2.Text),//参加工作时间
edit8.Text,//职务
edit3.Text,//专业
edit9.Text,//备注
username,//操作员
date() //最后操作时间
]);
}
procedure TZgxxlr_Form.loadfromtable();
begin
edit1.Text:=adotable2.Fieldbyname('职工编号').AsString;
edit11.Text:=adotable2.Fieldbyname('职工姓名').AsString;
combobox1.Text:=adotable2.Fieldbyname('性别').AsString;
maskedit1.Text:=datetostr(adotable2.Fieldbyname('出生年月').AsDateTime);
edit10.Text:=adotable2.Fieldbyname('身份证号').AsString;
edit2.Text:=adotable2.Fieldbyname('通信地址').AsString;
edit6.Text:=adotable2.Fieldbyname('联系电话').AsString;
edit3.Text:=adotable2.Fieldbyname('工作部门').AsString;
edit7.Text:=currtostr(adotable2.Fieldbyname('基本工资').AsCurrency);
maskedit2.Text:=datetostr(adotable2.Fieldbyname('参加工作时间').AsDateTime);
edit8.Text:=adotable2.Fieldbyname('职务').AsString;
edit4.Text:=adotable2.Fieldbyname('专业').AsString;
edit9.Text:=adotable2.Fieldbyname('备注').AsString;
edit5.Text:=adotable2.Fieldbyname('操作人').AsString;
maskedit4.Text:=datetostr(adotable2.Fieldbyname('最后操作时间').AsDateTime);
end;
procedure TZgxxlr_Form.initform();
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:=username;
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
edit9.Text:='';
edit10.Text:='';
edit11.Text:='';
maskedit1.Text:=datetostr(date());
maskedit2.Text:=datetostr(date());
maskedit4.Text:=datetostr(date());
combobox1.Text:='';
end;
procedure TZgxxlr_Form.FormActivate(Sender: TObject);
begin
dbgrid1.ReadOnly:=true;
ADOConnection1:=MAIN_FORM.ADOConnection1;
dbgrid1.DataSource:=DataSource1;
DataSource1.DataSet:=adotable2;
adotable2.Close;
adotable2.Connection:=ADOConnection1;
adotable2.TableName:='职工信息表';
adotable2.Active:=true;
adotable1.Connection:=ADOConnection1;
adotable1.Active:=false;
adotable3.Connection:=ADOConnection1;
adotable3.TableName:='职工工资信息表';
adotable3.Active:=false;
adoquery1.Close;
adoquery1.Connection:=ADOConnection1;
combobox1.Items.Add('男');
combobox1.Items.Add('女');
initdbgrid ;
initform;
if adotable2.Recordset.RecordCount>=1 then
loadfromtable;
end;
procedure TZgxxlr_Form.BitBtn2Click(Sender: TObject);
begin
close;
end;
procedure TZgxxlr_Form.BitBtn1Click(Sender: TObject);
begin
//---------------添加职工信息记录----------------
if edit1.Text<>'' then
begin
//-----------------------------------------------------------------------------
// 添加信息到职工信息表
//-----------------------------------------------------------------------------
adotable1.Close;
adotable1.TableName:='职工信息表';
adotable1.Open;
adotable1.AppendRecord([edit1.Text,//职工编号
edit11.Text,//职工姓名
combobox1.Text,//职工性别
strtodate(maskedit1.Text),//出生年月
edit10.Text, //身份证号
edit2.Text, //通信地址
edit6.Text, //联系电话
edit3.Text, //工作部门
strtocurr(edit7.Text),//基本工资
strtodate(maskedit2.Text),//参加工作时间
edit8.Text,//职务
edit3.Text,//专业
edit9.Text,//备注
username,//操作员
date() //最后操作时间
]);
adotable1.Close;
//-----------------------------------------------------------------------------
// 添加信息到职工工资信息表
//-----------------------------------------------------------------------------
adotable3.Close;
adotable3.TableName:='职工工资信息表';
adotable3.Open;
adotable3.AppendRecord([
edit11.Text,//职工姓名
strtoint(edit1.Text),//职工编号
username,//操作员
strtocurr(edit7.Text), //基本工资
0, //浮动工资
0, //津贴
0, //公龄工资
0,//奖金
0,//补贴
0,//其它
0,//保险费
0,//房租费
0,//补扣
0, //工资总额
0,//实发工资
0,//所得税
edit9.Text,//说明
false//冻结标志
//工资编号
]);
adotable3.Close;
//-----------------------------------------------------------------------------
// 刷新 Dbgrid 的显示
//-----------------------------------------------------------------------------
adotable2.Active:=FALSE;
adotable2.Active:=TRUE;
initdbgrid ;
EDIT1.Text:='';
EDIT11.Text:='';
EDIT10.Text:='';
COMBOBOX1.Text:='';
loadfromtable;
end
else
application.MessageBox('您输入的信息不完整！','警告',48);
end;
procedure TZgxxlr_Form.Edit1Exit(Sender: TObject);
begin
if edit1.Text<>'' then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from 职工信息表 where 职工编号=:zgnumber');
adoquery1.Parameters.Clear;
adoquery1.Parameters.AddParameter;
adoquery1.Parameters[0].Name:='zgnumber';
adoquery1.Parameters[0].DataType:=ftstring;
adoquery1.Parameters[0].Direction:=pdinput;
adoquery1.Parameters[0].Value:=edit1.Text;
adoquery1.Active:=true;
if adoquery1.Recordset.RecordCount >=1 then
begin
application.MessageBox('职工编号重复！','警告',48);
edit1.SetFocus;
end
else
begin
end;
adoquery1.Close;
end
else
begin
application.MessageBox('您输入的信息不完整！','警告',48);
edit1.SetFocus;
end;
end;
procedure TZgxxlr_Form.ADOTable2AfterScroll(DataSet: TDataSet);
begin
if adotable2.Recordset.RecordCount>=1 then
loadfromtable;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -