?? frm_visitinfou.pas
字號:
unit frm_visitInfoU;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, frm_infoU, StdCtrls, DB, Grids, DBGrids, ComCtrls,
Control_visitU,classesU;
type
Tfrm_visitInfo = class(Tfrm_info)
Label1: TLabel;
edt_guest: TEdit;
edt_guestNum: TEdit;
Label2: TLabel;
edt_interviewee: TEdit;
Label3: TLabel;
edt_relation: TEdit;
Label4: TLabel;
edt_beginDate: TEdit;
Label5: TLabel;
Label6: TLabel;
edt_endDate: TEdit;
Label7: TLabel;
edt_matter: TEdit;
Label8: TLabel;
btn_over: TButton;
cbx_visite: TComboBox;
Label9: TLabel;
DTP_visit: TDateTimePicker;
btn_search: TButton;
Label10: TLabel;
edt_watch: TEdit;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
procedure FormShow(Sender: TObject);
procedure btn_addClick(Sender: TObject);
procedure btn_editClick(Sender: TObject);
procedure btn_delClick(Sender: TObject);
procedure DBGrid_infoCellClick(Column: TColumn);
procedure edt_guestNumKeyPress(Sender: TObject; var Key: Char);
procedure btn_overClick(Sender: TObject);
procedure cbx_visiteChange(Sender: TObject);
procedure btn_searchClick(Sender: TObject);
private
{ Private declarations }
public
watchID:string;//當前值班人員
//填充數據
procedure FillData;
end;
var
frm_visitInfo: Tfrm_visitInfo;
implementation
{$R *.dfm}
procedure Tfrm_visitInfo.FillData;
begin
DataSource_info.DataSet:=Control_visitU.GetvisitInfoArray;
self.DBGrid_info.Columns[0].Visible :=false;
end;
procedure Tfrm_visitInfo.FormShow(Sender: TObject);
begin
inherited;
FillData;
self.DTP_visit.Date:=now;
end;
procedure Tfrm_visitInfo.btn_addClick(Sender: TObject);
begin
inherited;
self.edt_guest.Tag:=0;
self.edt_guest.Text:='';
self.edt_guestNum.Text:='';
self.edt_interviewee.Text:='';
self.edt_relation.Text:='';
self.edt_matter.Text:='';
self.edt_beginDate.Text:='';
self.edt_endDate.Text:='';
self.edt_watch.Text:='';
self.edt_guest.SetFocus;
end;
procedure Tfrm_visitInfo.btn_editClick(Sender: TObject);
begin
if self.btn_edit.Caption='修改' then
begin
if edt_guest.Text ='' then
begin
MessageBox(Handle, '沒有可以修改的數據！', '信息', MB_ICONEXCLAMATION);
exit;
end
else
begin
self.edt_guest.SetFocus;
end;
end;
inherited;
end;
procedure Tfrm_visitInfo.btn_delClick(Sender: TObject);
var
visitInfo:TvisitInfo;
begin
if(self.btn_del.Caption='刪除') then
begin
if MessageBox(Handle, '您確定要刪除該訪問信息', '信息',
MB_ICONQUESTION or MB_OKCANCEL) = IDOK then
begin
Control_visitU.DelvisitInfo(self.edt_guest.Tag);
FillData;
if self.DBGrid_info.Fields[0].IsNull then
exit;
self.edt_guest.Tag:=self.DBGrid_info.Fields[0].Value;//保存id
self.edt_guest.Text:=self.DBGrid_info.Fields[1].Value;
self.edt_guestNum.Text:=inttostr(self.DBGrid_info.Fields[2].Value);
self.edt_interviewee.Text:=self.DBGrid_info.Fields[3].Value;
self.edt_relation.Text:=self.DBGrid_info.Fields[4].Value;
self.edt_matter.Text:=self.DBGrid_info.Fields[7].Value;;
self.edt_beginDate.Text:=self.DBGrid_info.Fields[5].Value;;
self.edt_endDate.Text:=self.DBGrid_info.Fields[6].Value;;
self.edt_watch.Text:=self.DBGrid_info.Fields[8].Value;
end;
end;
if(self.btn_del.Caption='保存') then
begin
if((edt_guest.Text='') or (edt_guestNum.Text='')
or (edt_interviewee.Text='') or (self.edt_relation.Text='')
or (self.edt_matter.Text='')) then
begin
MessageBox(Handle, '內容填寫不全！', '信息', MB_ICONEXCLAMATION);
exit;
end;
visitInfo:=TvisitInfo.Create;
visitInfo.id:=self.edt_guest.Tag;
visitInfo.guest:=trim(self.edt_guest.Text);
visitInfo.guestNum:=strtoint(self.edt_guestNum.Text);
visitInfo.interviewee:=self.edt_interviewee.Text;
visitInfo.relation:=self.edt_relation.Text;
visitInfo.beginDate:=self.edt_beginDate.Text;
visitInfo.endDate:=self.edt_endDate.Text;
visitInfo.matter:=self.edt_matter.Text;
visitInfo.watch:=self.edt_watch.Text;
if(Control_visitU.EditvisitInfo(visitInfo)) then
begin
MessageBox(Handle, '修改成功！', '信息', MB_ICONASTERISK);
//刷新內容
FillData;
end
else
begin
MessageBox(Handle, '修改失敗！', '信息', MB_ICONEXCLAMATION);
exit;
end;
end;
if(self.btn_del.Caption='確定') then
begin
if((edt_guest.Text='') or (edt_guestNum.Text='')
or (edt_interviewee.Text='') or (self.edt_relation.Text='')
or (self.edt_matter.Text='')) then
begin
MessageBox(Handle, '內容填寫不全！', '信息', MB_ICONEXCLAMATION);
exit;
end;
visitInfo:=TvisitInfo.Create;
visitInfo.id:=self.edt_guest.Tag;
visitInfo.guest:=trim(self.edt_guest.Text);
visitInfo.guestNum:=strtoint(self.edt_guestNum.Text);
visitInfo.interviewee:=self.edt_interviewee.Text;
visitInfo.relation:=self.edt_relation.Text;
visitInfo.beginDate:=DateTimeToStr(now);
//visitInfo.endDate:='';
visitInfo.matter:=self.edt_matter.Text;
visitInfo.watch:=watchID; //當前登錄人員
if(Control_visitU.AddvisitInfo(visitInfo)) then
begin
MessageBox(Handle, '添加成功！', '信息', MB_ICONASTERISK);
self.edt_guest.Tag:=0;
self.edt_guest.Text:='';
self.edt_guestNum.Text:='';
self.edt_interviewee.Text:='';
self.edt_relation.Text:='';
self.edt_matter.Text:='';
self.edt_beginDate.Text:='';
self.edt_endDate.Text:='';
self.edt_watch.Text:='';
self.edt_guest.SetFocus;
//刷新內容
FillData;
end
else
begin
MessageBox(Handle, '添加失敗！', '信息', MB_ICONEXCLAMATION);
exit;
end;
end;
inherited;
end;
procedure Tfrm_visitInfo.DBGrid_infoCellClick(Column: TColumn);
begin
inherited;
if self.DBGrid_info.Fields[0].IsNull then
exit;
self.edt_guest.Tag:=self.DBGrid_info.Fields[0].Value;//保存id
self.edt_guest.Text:=self.DBGrid_info.Fields[1].Value;
self.edt_guestNum.Text:=inttostr(self.DBGrid_info.Fields[2].Value);
self.edt_interviewee.Text:=self.DBGrid_info.Fields[3].Value;
self.edt_relation.Text:=self.DBGrid_info.Fields[4].Value;
self.edt_matter.Text:=self.DBGrid_info.Fields[7].Value;;
self.edt_beginDate.Text:=self.DBGrid_info.Fields[5].Value;
if self.DBGrid_info.Fields[6].IsNull then
begin
self.edt_endDate.Text:='';
self.btn_over.Visible:=true;
end
else
begin
self.edt_endDate.Text:=self.DBGrid_info.Fields[6].Value;
self.btn_over.Visible:=false;
end;
self.edt_watch.Text:=self.DBGrid_info.Fields[8].Value;
end;
procedure Tfrm_visitInfo.edt_guestNumKeyPress(Sender: TObject;
var Key: Char);
begin
inherited;
if not((key in ['0'..'9',#8,#13])) then
key:=#0;
end;
procedure Tfrm_visitInfo.btn_overClick(Sender: TObject);
begin
inherited;
if MessageBox(Handle, '您確定該訪問結束', '信息',
MB_ICONQUESTION or MB_OKCANCEL) = IDOK then
begin
Overvisit(self.edt_guest.Tag);
fillData;
end;
end;
procedure Tfrm_visitInfo.cbx_visiteChange(Sender: TObject);
begin
inherited;
self.DataSource_info.DataSet:= SearchDataBy(self.cbx_visite.Text ,DateToStr(self.DTP_visit.Date));
self.DBGrid_info.Columns[0].Visible :=false;
end;
procedure Tfrm_visitInfo.btn_searchClick(Sender: TObject);
begin
inherited;
self.DataSource_info.DataSet:= SearchDataBy(self.cbx_visite.Text ,DateToStr(self.DTP_visit.Date));
self.DBGrid_info.Columns[0].Visible :=false;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -