?? unit4.~pas
字號:
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, Grids, DBGrids, ToolWin, jpeg,
DBCtrls;
type
Tchuqing_people = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Label6: TLabel;
DateTimePicker1: TDateTimePicker;
Label5: TLabel;
ComboBox2: TComboBox;
Label7: TLabel;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ComboBox3: TComboBox;
Image1: TImage;
Label4: TLabel;
Label2: TLabel;
Label1: TLabel;
Edit1: TEdit;
Edit2: TEdit;
ComboBox1: TComboBox;
procedure ComboBox2Change(Sender: TObject);
procedure Show();
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
chuqing_people: Tchuqing_people;
pase:string;
implementation
uses Unit10, Unit3, Unit5, Unit8, Unit1;
{$R *.dfm}
procedure Tchuqing_people.ComboBox2Change(Sender: TObject);
begin
if ComboBox2.Text='基本信息' then base_people.ShowModal;
// if ComboBox17.Text='考勤信息' then chuqing_people.ShowModal;
if ComboBox2.Text='獎懲信息' then jiangfa_people.ShowModal;
if ComboBox2.Text='工資信息' then money_people.ShowModal;
end;
procedure Tchuqing_people.Show();
begin
combobox3.Text:='';
DateTimePicker1.DateTime:=now;
if dm.TJobMade.Fields[5].AsString='1' then
begin
Image1.Visible:=false;
ToolButton6.Enabled:=true;
end
else
begin
Image1.Visible:=true;
ToolButton6.Enabled:=false;
end;
edit1.Text:=dm.TJobMade.Fields[0].AsString;
edit2.Text:=dm.TJobMade.Fields[1].AsString;
ComboBox1.Text:=dm.TJobMade.Fields[2].AsString;
DateTimePicker1.DateTime:=dm.TJobMade.Fields[3].AsDateTime;
combobox3.Text:=dm.TJobMade.Fields[4].AsString;
ToolButton1.Enabled:=true;
ToolButton2.Enabled:=true;
ToolButton3.Enabled:=true;
ToolButton4.Enabled:=true;
ToolButton5.Enabled:=true;
ToolButton6.Enabled:=true;
ToolButton7.Enabled:=false;
ToolButton8.Enabled:=true;
DateTimePicker1.Enabled:=false;
// 屏蔽
edit1.Enabled:=false;
edit2.Enabled:=false;
ComboBox1.Enabled:=false;
DateTimePicker1.Enabled:=false;
ComboBox3.Enabled:=false;
ToolButton6.Enabled:=true;
if login_people.ComboBox1.ItemIndex=0 then
begin
ToolButton5.Enabled:=false;
ToolButton6.Enabled:=false;
ToolButton8.Enabled:=false;
end;
end;
procedure Tchuqing_people.ToolButton2Click(Sender: TObject);
begin
if not dm.TJobMade.Bof then
begin
dm.TJobMade.Prior;
Show;
end
else showmessage('已是首記錄');
end;
procedure Tchuqing_people.ToolButton1Click(Sender: TObject);
begin
if not dm.TJobMade.Bof then
begin
dm.TJobMade.First;
Show;
end
else showmessage('已是首記錄');
end;
procedure Tchuqing_people.ToolButton3Click(Sender: TObject);
begin
if not dm.TJobMade.Eof then
begin
dm.TJobMade.Next;
Show;
end
else showmessage('已是尾記錄');
end;
procedure Tchuqing_people.ToolButton4Click(Sender: TObject);
begin
if not dm.TJobMade.Eof then
begin
dm.TJobMade.Last;
Show;
end
else showmessage('已是尾記錄');
end;
procedure Tchuqing_people.ToolButton5Click(Sender: TObject);
begin
pase:='1';
DateTimePicker1.Date:=now;
combobox3.Text:='';
combobox1.Text:='';
ToolButton1.Enabled:=false;
ToolButton2.Enabled:=false;
ToolButton3.Enabled:=false;
ToolButton4.Enabled:=false;
ToolButton5.Enabled:=false;
ToolButton6.Enabled:=false;
ToolButton7.Enabled:=true;
ToolButton8.Enabled:=false;
DateTimePicker1.Enabled:=true;
edit1.Enabled:=true;
edit2.Enabled:=true;
ComboBox1.Enabled:=true;
DateTimePicker1.Enabled:=true;
ComboBox3.Enabled:=true;
end;
procedure Tchuqing_people.ToolButton9Click(Sender: TObject);
begin
close;
end;
procedure Tchuqing_people.ToolButton6Click(Sender: TObject);
begin
pase:='0';
ToolButton1.Enabled:=false;
ToolButton2.Enabled:=false;
ToolButton3.Enabled:=false;
ToolButton4.Enabled:=false;
ToolButton5.Enabled:=false;
ToolButton6.Enabled:=false;
DateTimePicker1.Enabled:=false;
ToolButton7.Enabled:=true;
ToolButton8.Enabled:=false;
edit1.Enabled:=true;
edit2.Enabled:=true;
ComboBox1.Enabled:=true;
DateTimePicker1.Enabled:=true;
ComboBox3.Enabled:=true;
end;
procedure Tchuqing_people.ToolButton7Click(Sender: TObject);
var date:string;
var a:string;
var b:string;
var c:string;
begin
if pase='1' then
begin
if (edit1.Text='') or (edit2.Text='') or ( ComboBox1.ItemIndex=-1)or(ComboBox3.ItemIndex=-1)
then
begin
showmessage('信息不完整');
exit;
end;
//判斷是否存在
with DM.QPerson do
begin
close;
sql.Clear;
sql.Add('select EMPID,EMPNAME,EMPDEPT from Person');
open;
end;
while not dm.QPerson.Eof do
begin
a:=dm.QPerson.Fields[0].AsString;
b:=dm.QPerson.Fields[1].AsString;
c:=dm.QPerson.Fields[2].AsString;
if (a=edit1.Text) and (b=edit2.Text)and (c=combobox1.Text)
then break;
dm.QPerson.Next;
end;
if dm.QPerson.Eof and (a<>edit1.Text) and (b<>edit2.Text)and (c<>combobox1.Text)
then
begin showmessage(' ');
exit;
end;
//檢查時間
with DM.QJobMade do
begin
close;
sql.Clear;
sql.Add('select JOBDDATE from JobMade');
sql.Add('where EMPID=:EMPID');
ParamByName('EMPID').AsString:=edit1.Text;
open;
end;
while not dm.QJobMade.Eof do
begin
date:=datetostr(dm.QJobMade.Fields[0].AsDateTime);
if date=datetostr(DateTimePicker1.Date) then
begin
showmessage('時間錯誤!');
exit;
end;
dm.QJobMade.Next;
end;
with DM.QJobMade do
begin
close;
sql.Clear;
sql.Add('insert JobMade values (:EMPID,:EMPNAME,:EMPDEPT,:JOBDDATE,:JOBMADE,:DELECT)');
ParamByName('EMPID').AsString:=edit1.Text;
ParamByName('EMPNAME').AsString:=Edit2.Text;
ParamByName('EMPDEPT').AsString:=ComboBox1.Text;
ParamByName('JOBDDATE').AsDateTime:=strtodate(datetostr(DateTimePicker1.Date));
ParamByName('JOBMADE').AsString:=COMBOBOX3.Text;
ParamByName('DELECT').AsString:='1';
prepare;
execsql;
end;
with DM.TJobMade do
begin
close;
open;
end;
end;
if pase='0' then
begin
if (edit1.Text='')or (edit2.Text='') or ( ComboBox1.ItemIndex=-1)or (ComboBox3.ItemIndex=-1)
then
begin
showmessage('信息不完整');
exit;
end;
with DM.QJobMade do
begin
close;
sql.Clear;
sql.Add('update JobMade set JOBMADE=:JOBMADE ');
sql.Add('where JOBDDATE=:JOBDDATE');
ParamByName('JOBDDATE').AsDate:=DateTimePicker1.Date;
ParamByName('JOBMADE').AsString:=ComboBox3.Text;
prepare;
execsql;
end;
with DM.TJobMade do
begin
close;
open;
end;
end;
close;
end;
procedure Tchuqing_people.ToolButton8Click(Sender: TObject);
begin
if messagebox (0,'請問是從數據庫中刪除（數據庫中將無此記錄，Yes），還是標記該記錄為刪除（數據庫中仍有該記錄,No）?','刪除提示!',mb_yesno)=mryes
then
begin
with DM.QJobMade do
begin
close;
sql.Clear;
sql.Add('delete from JobMade ');
sql.Add('where JOBDDATE=:JOBDDATE');
ParamByName('JOBDDATE').AsDateTime:=strtodate(datetostr(dm.TJobMade.Fields[3].AsDateTime));
prepare;
execsql;
end;
with DM.TJobMade do
begin
close;
open;
end;
showmessage('已將該記錄從數據庫中刪除!');
end
else
begin
with DM.QJobMade do
begin
close;
sql.Clear;
sql.Add('update JobMade set DELECT=:DELECT');
sql.Add('where JOBDDATE=:JOBDDATE');
ParamByName('JOBDDATE').AsDateTime:=strtodate(datetostr(dm.TJobMade.Fields[3].AsDateTime));
ParamByName('DELECT').AsString:='0';
prepare;
execsql;
end;
with DM.TJobMade do
begin
close;
open;
end;
showmessage('已將該記錄標記為刪除!');
end;
close;
end;
procedure Tchuqing_people.FormShow(Sender: TObject);
begin
show;
end;
procedure Tchuqing_people.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9',#8])then key:=#0;
end;
procedure Tchuqing_people.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if (key in[' '..'~'])then key:=#0;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -