gzb1.pas

职工信息管理系统的源代码

button5.Enabled:=true;
button4.Enabled:=false;
combobox1.Enabled:=false;
edit2.ReadOnly:=false;
edit3.ReadOnly:=false;
edit4.ReadOnly:=false;
edit6.ReadOnly:=false;
edit2.SetFocus;
speed1.Enabled:=false;
end;

procedure Tgzb.Button4Click(Sender: TObject);
var find:string;
begin
if application.MessageBox('该职工的职工信息也将被删除，确实要删除吗？','删除',mb_okcancel+mb_iconquestion)=idok then
begin
if gzb.RecordCount=0 then
begin
button7.Enabled:=false;
button2.Enabled:=false;
button4.Enabled:=false;
application.MessageBox('数据已清空！','信息',mb_ok+mb_iconinformation)
end
else
if gzb.Eof then
gzb.First
else
begin
gzb.Active:=true;
find:=gzb.fieldbyname('职工编号').AsString;
if zgb.FindKey([find]) then
zgb.Delete;
gzb.Delete;
combobox1.Visible:=false;
label1.Caption:='姓名';
label6.Visible:=true;
label6.Caption:=qu.cf(  zgb.fieldbyname('姓名').asstring);
edit2.Text:=qu.cf( gzb.fieldbyname('旷工').asstring);
edit3.Text:=qu.cf( gzb.fieldbyname('迟到').asstring);
edit4.Text:=qu.cf( gzb.fieldbyname('事假').asstring);
edit6.Text:=qu.cf( gzb.fieldbyname('奖金').asstring);
end;
end;
end;

procedure Tgzb.Button3Click(Sender: TObject);
begin
speed1.Enabled:=true;
DBNavigator1.Enabled:=true;
gzb.Next;
if gzb.Eof then
gzb.First;
combobox1.Visible:=false;
label1.Caption:='姓名';
label6.Visible:=true;
label6.Caption:=qu.cf(  zgb.fieldbyname('姓名').asstring);
edit2.Text:=qu.cf( gzb.fieldbyname('旷工').asstring);
edit3.Text:=qu.cf( gzb.fieldbyname('迟到').asstring);
edit4.Text:=qu.cf( gzb.fieldbyname('事假').asstring);
edit6.Text:=qu.cf( gzb.fieldbyname('奖金').asstring);
button1.Enabled:=true;
button2.Enabled:=true;
button5.Enabled:=false;
button3.Enabled:=false;
button4.Enabled:=true;
combobox1.Enabled:=false;
edit2.ReadOnly:=true;
edit3.ReadOnly:=true;
edit4.ReadOnly:=true;
edit6.ReadOnly:=true;
if gzb.RecordCount=0 then
begin
button7.Enabled:=false;
button2.Enabled:=false;
button4.Enabled:=false;
end;
end;

procedure Tgzb.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if flag=0 then
begin
combobox1.Enabled:=false;
edit2.ReadOnly:=true;
edit3.ReadOnly:=true;
edit4.ReadOnly:=true;
edit6.ReadOnly:=true;
button6.Click;
end;
gzb.Active:=false;
action:=cafree;
end;

procedure Tgzb.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit2.SetFocus;
end;

procedure Tgzb.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit3.SetFocus;
end;

procedure Tgzb.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit4.SetFocus;
end;

procedure Tgzb.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
edit6.SetFocus;
end;
end;

procedure Tgzb.FormShow(Sender: TObject);
begin
ky:='';
flag:=0;
gzb.Active:=false;
gzb.DatabaseName:=s;
gzb.TableName:='gzb.db';
gzb.Active:=true;
zgb.Active:=false;
zgb.DatabaseName:=s;
zgb.TableName:='zgb.db';
zgb.Active:=true;
bmb.Active:=false;
bmb.DatabaseName:=s;
bmb.TableName:='bmb.db';
bmb.Active:=true;
zcb.Active:=false;
zcb.DatabaseName:=s;
zcb.TableName:='zc.db';
zcb.Active:=true;
edit2.ReadOnly:=true;
edit3.ReadOnly:=true;
edit4.ReadOnly:=true;
edit6.ReadOnly:=true;
combobox1.Visible:=false;
label1.Caption:='姓名';
label6.Caption:=qu.cf(  zgb.fieldbyname('姓名').asstring);
edit2.Text:=qu.cf( gzb.fieldbyname('旷工').asstring);
edit3.Text:=qu.cf( gzb.fieldbyname('迟到').asstring);
edit4.Text:=qu.cf( gzb.fieldbyname('事假').asstring);
edit6.Text:=qu.cf( gzb.fieldbyname('奖金').asstring);
button3.Enabled:=false;
button5.Enabled:=false;
button1.Enabled:=true;
if gzb.RecordCount=0 then
begin
button7.Enabled:=false;
button2.Enabled:=false;
button4.Enabled:=false;
end
else
begin
button7.Enabled:=true;
button2.Enabled:=true;
button4.Enabled:=true;
end;
DBNavigator1.Enabled:=true;
combobox1.Clear;
end;

procedure Tgzb.Button7Click(Sender: TObject);
var str:string;
begin
str:=qu.cf( inputbox('定位操作！请输入编号','',''));
if not gzb.FindKey([str])  then
application.MessageBox('查找失败！','信息',mb_ok+mb_iconinformation);
combobox1.Text:=qu.cf( gzb.fieldbyname('职工编号').asstring);
edit2.Text:=qu.cf( gzb.fieldbyname('旷工').asstring);
edit3.Text:=qu.cf( gzb.fieldbyname('迟到').asstring);
edit4.Text:=qu.cf( gzb.fieldbyname('事假').asstring);
edit6.Text:=qu.cf( gzb.fieldbyname('奖金').asstring);
end;


procedure Tgzb.BitBtn1Click(Sender: TObject);
begin
shellexecute(application.Handle,'open',pchar(s+'\help\gong_zi.htm'),'','',SW_SHOW);
end;

procedure Tgzb.FormPaint(Sender: TObject);
var a,b:real;
i:integer;
begin
a:=clientheight/256;
b:=0;
for i:=255 downto 0 do
begin
canvas.Brush.Color:=$000000000+i*$10000;
canvas.FillRect(rect(0,round(b),clientwidth,round(a+b)));
b:=b+a;
end;
end;
procedure Tgzb.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
ky:=edit2.text;
if edit2.ReadOnly=false then
 if (key <>48)and (key <>8) and(key <>49)and (key <>50)and (key <>51)and (key <>52)and (key <>53)and (key <>54)and (key <>55)and (key <>56)and (key <>57)and (key <>13)and ((key<97) OR (key>105))and (key <>144)then
begin
application.MessageBox('此处应输入数字','错误',mb_ok);
edit2.Text:=ky;
edit2.SelStart:=length(ky);
end
else
ky:=edit2.Text;
end;

procedure Tgzb.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
ky:=edit3.text;
if edit3.ReadOnly=false then
 if (key <>48)and  (key <>8)and ((key<97) OR (key>105))and (key <>144) and (key <>49)and (key <>50)and (key <>51)and (key <>52)and (key <>53)and (key <>54)and (key <>55)and (key <>56)and (key <>57)and (key <>13)then
begin
application.MessageBox('此处应输入数字','错误',mb_ok);
edit3.Text:=ky;
edit3.SelStart:=length(ky);
end
else
ky:=edit3.Text;
end;

procedure Tgzb.Edit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
ky:=edit4.text;
if edit4.ReadOnly=false then
if (key <>48)and ((key<97) OR (key>105))and (key <>144) and (key <>8)and (key <>49)and (key <>50)and (key <>51)and (key <>52)and (key <>53)and (key <>54)and (key <>55)and (key <>56)and (key <>57)and (key <>13)then
begin
application.MessageBox('此处应输入数字','错误',mb_ok);
edit4.Text:=ky;
edit4.SelStart:=length(ky);
end
else
ky:=edit4.Text;
end;

procedure Tgzb.Edit6KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
ky:=edit6.text;
if edit6.ReadOnly=false then
if (key <>48)and ((key<97) OR (key>105))and (key <>144) and (key <>49)and (key <>50)and (key <>51)and (key <>52)and (key <>53)and (key <>54)and (key <>55)and (key <>56)and (key <>57)and (key <>13)and (key <>8)then
begin
application.MessageBox('此处应输入数字','错误',mb_ok);
edit6.Text:=ky;
edit6.SelStart:=length(ky);
end
else
ky:=edit6.Text;
end;

procedure Tgzb.hint_buttonClick(Sender: TObject);
begin
 hint_form.ShowModal;
end;

procedure Tgzb.Label7MouseEnter(Sender: TObject);
begin
hint_form.Show;
end;

procedure Tgzb.Label7MouseLeave(Sender: TObject);
begin
hint_form.Close;
end;

procedure Tgzb.Speed1Click(Sender: TObject);
begin
ky:='';
flag:=0;
gzb.Active:=false;
gzb.DatabaseName:=s;
gzb.TableName:='gzb.db';
gzb.Active:=true;
zgb.Active:=false;
zgb.DatabaseName:=s;
zgb.TableName:='zgb.db';
zgb.Active:=true;
bmb.Active:=false;
bmb.DatabaseName:=s;
bmb.TableName:='bmb.db';
bmb.Active:=true;
zcb.Active:=false;
zcb.DatabaseName:=s;
zcb.TableName:='zc.db';
zcb.Active:=true;
edit2.ReadOnly:=true;
edit3.ReadOnly:=true;
edit4.ReadOnly:=true;
edit6.ReadOnly:=true;
combobox1.Visible:=false;
label1.Caption:='姓名';
label6.Caption:=qu.cf(  zgb.fieldbyname('姓名').asstring);
edit2.Text:=qu.cf( gzb.fieldbyname('旷工').asstring);
edit3.Text:=qu.cf( gzb.fieldbyname('迟到').asstring);
edit4.Text:=qu.cf( gzb.fieldbyname('事假').asstring);
edit6.Text:=qu.cf( gzb.fieldbyname('奖金').asstring);
button3.Enabled:=false;
button5.Enabled:=false;
button1.Enabled:=true;
if gzb.RecordCount=0 then
begin
button7.Enabled:=false;
button2.Enabled:=false;
button4.Enabled:=false;
end
else
begin
button7.Enabled:=true;
button2.Enabled:=true;
button4.Enabled:=true;
end;
DBNavigator1.Enabled:=true;
combobox1.Clear;
end;

end.