📄 ser510_02.pas.svn-base
字号:
qrySer510H150_002.DisplayLabel:=GetDBString('SER51002048'); //员工编号
qrySer510H150_003.DisplayLabel:=GetDBString('SER51002049'); //员工姓名
qrySer510O150_002.DisplayLabel:=GetDBString('SER51002050'); //客戶编号
qrySer510O150_003.DisplayLabel:=GetDBString('SER51002051'); //客戶名称
qrySer510O150_005.DisplayLabel:=GetDBString('SER51002052'); //电话号码
qrySer510O150_006.DisplayLabel:=GetDBString('SER51002053'); //传真号码
qrySer510O150_012.DisplayLabel:=GetDBString('SER51002054'); //客戶地址
qrySer510I150_002.DisplayLabel:=GetDBString('SER51002055'); //产品编号
qrySer510I150_003.DisplayLabel:=GetDBString('SER51002056'); //产品名称
qrySer510S500_019.DisplayLabel:=GetDBString('SER51002057'); //机身编号
qrySer510S500_011.DisplayLabel:=GetDBString('SER51002058'); //来电人员
qrySer510S500_012.DisplayLabel:=GetDBString('SER51002059'); //部门名称
qrySer510S500_013.DisplayLabel:=GetDBString('SER51002060'); //职务名称
qrySer510S500_014.DisplayLabel:=GetDBString('SER51002061'); //联系电话
qrySer510S500_033.DisplayLabel:=GetDBString('SER51002062'); //来电内容
qrySer510S510_010.DisplayLabel:=GetDBString('SER51002063'); //制单日期
qrySer510S510_011.DisplayLabel:=GetDBString('SER51002064'); //制单人员
qrySer510S510_012.DisplayLabel:=GetDBString('SER51002065'); //修改日期
qrySer510S510_013.DisplayLabel:=GetDBString('SER51002066'); //修改人员
qrySer510S510_009.DisplayLabel:=GetDBString('SER51002025'); //调查内容
edtCode.Enabled:=not GetAutoCoding('SER510');
if edtCode.Enabled then edtCode.Color:=AEnableColor else edtCode.Color:=ADisableColor;
end;
procedure TSer510_02Form.OpenData(ACode:string);
begin
qrySer510.DisableControls;
qrySer510.Close;
qrySer510.SQL.Clear;
qrySer510.SQL.Add('select A.*,');
qrySer510.SQL.Add(' B.S500_002,B.S500_007,B.S500_011,B.S500_012,B.S500_013,B.S500_014,B.S500_016,B.S500_017,B.S500_018,B.S500_019,B.S500_033,');
qrySer510.SQL.Add(' C.H150_002,C.H150_003,');
qrySer510.SQL.Add(' D.O150_001,D.O150_002,D.O150_003,D.O150_005,D.O150_006,D.O150_012');
qrySer510.SQL.Add('from SER510 A, SER500 B, HRM150 C, ORD150 D');
qrySer510.SQL.Add('where A.S510_002=B.S500_001 and A.S510_004=C.H150_001 and');
qrySer510.SQL.Add(' B.S500_017=D.O150_001');
qrySer510.SQL.Add('order by S500_001');
qrySer510.Open;
qrySer510.Locate('S510_001',ACode,[]);
qrySer510.EnableControls;
qrySer510AfterScroll(qrySer510);
end;
procedure TSer510_02Form.FormCreate(Sender: TObject);
begin
inherited;
SetInterface;
qryHrm150.Open;
qryInv150.Open;
qrySer500.Open;
SetButtonState(False);
end;
procedure TSer510_02Form.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
inherited;
if ActSave.Enabled then
begin
if ShowDialog('UMS10000007')=IDNO then //数据尚未保存,现在保存吗?
ActCancel.Execute
else
ActSave.Execute;
end;
qryHrm150.Close;
qryInv150.Close;
qrySer500.Close;
end;
procedure TSer510_02Form.ActFirstExecute(Sender: TObject);
begin
inherited;
//最前
if qrySer510.IsEmpty then Exit;
qrySer510.First;
ActFirst.Enabled:=False;
ActPrior.Enabled:=False;
ActNext.Enabled:=True;
ActLast.Enabled:=True;
end;
procedure TSer510_02Form.ActPriorExecute(Sender: TObject);
begin
inherited;
//上移
if qrySer510.IsEmpty then Exit;
qrySer510.Prior;
ActNext.Enabled:=not qrySer510.Eof;
ActLast.Enabled:=not qrySer510.Eof;
ActFirst.Enabled:=not qrySer510.Bof;
ActPrior.Enabled:=not qrySer510.Bof;
end;
procedure TSer510_02Form.ActNextExecute(Sender: TObject);
begin
inherited;
//下移
if qrySer510.IsEmpty then Exit;
qrySer510.Next;
ActNext.Enabled:=not qrySer510.Eof;
ActLast.Enabled:=not qrySer510.Eof;
ActFirst.Enabled:=not qrySer510.Bof;
ActPrior.Enabled:=not qrySer510.Bof;
end;
procedure TSer510_02Form.ActLastExecute(Sender: TObject);
begin
inherited;
//最后
if qrySer510.IsEmpty then Exit;
qrySer510.Last;
ActNext.Enabled:=False;
ActLast.Enabled:=False;
ActFirst.Enabled:=True;
ActPrior.Enabled:=True;
end;
procedure TSer510_02Form.ActInsertExecute(Sender: TObject);
var
ADate:TDateTime;
begin
inherited;
//新增
Screen.Cursor:=crHourGlass;
AMode:='ADD';
edtCode.Text:='';
edtCallCode.Text:='';
AOldCallCode:='';
edtCallName.Text:='';
edtDate.Text:='';
edtBillNo.Text:='';
edtCust.Text:='';
edtCustName.Text:='';
edtItem.Text:='';
edtItemName.Text:='';
edtMacNo.Text:='';
edtCallPerson.Text:='';
edtDept.Text:='';
edtPost.Text:='';
edtTelNo.Text:='';
memDetails.Text:='';
edtPhone.Text:='';
edtFax.Text:='';
edtAddress.Text:='';
memDetails.Clear;
ADate:=GetServerDate;
edtRepDate.Date:=ADate;
edtPerson.Text:='';
edtDeptName.Text:='';
edtPosit.Text:='';
edtContact.Text:='';
memReport.Clear;
edtCreateDate.Text:=FormatDateTime('yyyy-mm-dd hh:mm:ss',ADate);
edtCreateBy.Text:=AUserName;
edtUpdateDate.Text:=FormatDateTime('yyyy-mm-dd hh:mm:ss',ADate);
edtUpdateBy.Text:=AUserName;
SetButtonState(True);
if Visible then
if edtCode.Enabled then edtCode.SetFocus else edtCallCode.SetFocus;
Screen.Cursor:=crDefault;
end;
procedure TSer510_02Form.ActUpdateExecute(Sender: TObject);
begin
inherited;
//修改
if qrySer510.IsEmpty then
begin
ShowMsg('UMS10000002'); //表记录为空，操作无效
Abort;
end;
{ if qrySer510S510_009.AsString<>'' then
begin
ShowMsg('UMS10000369'); //不允许修改已汇报的调查记录
Abort;
end; }
Screen.Cursor:=crHourGlass;
AMode:='UPD';
SetButtonState(True);
if Visible then
if edtCode.Enabled then edtCode.SetFocus else edtCallCode.SetFocus;
Screen.Cursor:=crDefault;
end;
procedure TSer510_02Form.ActDeleteExecute(Sender: TObject);
var
ACode,ACallCode:string;
begin
inherited;
//删除
if qrySer510.IsEmpty then
begin
ShowMsg('UMS10000002'); //表记录为空，操作无效
Abort;
end;
//仅未汇报的调查记录可删除
if qrySer510S510_009.AsString<>'' then
begin
ShowMsg('UMS10000370'); //不允许删除已汇报的调查记录
Abort;
end;
if ShowDialog('UMS10000008')=IDNO then Abort; //确定要删除此记录吗?
ACode:=qrySer510S510_001.AsString;
ACallCode:=qrySer510S510_002.AsString;
DeleteTableRecord(qrySer510,'SER510','S510_001='+''''+ACode+'''');
//更新来电记录信息(来电状态)
UpdateSolution(ACallCode);
end;
procedure TSer510_02Form.ActSaveExecute(Sender: TObject);
begin
inherited;
//保存
try
Screen.Cursor:=crHourGlass;
SaveData;
finally
Screen.Cursor:=crDefault;
end;
end;
procedure TSer510_02Form.ActCancelExecute(Sender: TObject);
begin
inherited;
//取消
SetButtonState(False);
qrySer510AfterScroll(qrySer510);
end;
procedure TSer510_02Form.ActRefreshExecute(Sender: TObject);
var
ACode:string;
begin
inherited;
//刷新
ACode:=qrySer510.FieldByName('S510_001').AsString;
qrySer510.DisableControls;
qrySer510.Close;
qrySer510.Open;
qrySer510.Locate('S510_001',ACode,[]);
qrySer510.EnableControls;
end;
procedure TSer510_02Form.ActLocateExecute(Sender: TObject);
begin
inherited;
//查找
if qrySer510.IsEmpty then
begin
ShowMsg('UMS10000002'); //表记录为空，操作无效
Abort;
end;
LocateDialog(dsSer510);
end;
procedure TSer510_02Form.ActSearchExecute(Sender: TObject);
begin
inherited;
//查询
FilterDialog(dsSer510);
end;
procedure TSer510_02Form.ActPrintExecute(Sender: TObject);
begin
inherited;
//打印
SelectReport(qrySer510,AProgramID,AReportName,ReportGetValue);
ActRefresh.Execute;
end;
procedure TSer510_02Form.ReportGetValue(const ParName: String; var ParValue: Variant);
begin
if ParName='USENM' then ParValue:=AUserName
else if ParName='PRNDT' then ParValue:=GetDBString('COM00006006') //列印日期
else if ParName='PRNNM' then ParValue:=GetDBString('COM00006007') //列印人員
else if ParName='REPNM' then ParValue:=AReportTitle
{ else if ParName='AType' then ParValue:=lblClass.Caption //类别
else if ParName='ATypeValue' then ParValue:=cbClass.Text //
else if ParName='ADate' then ParValue:=lblDate.Caption //日期
else if ParName='AFromDate' then ParValue:=edtFromDate.Text //
else if ParName='AToDate' then ParValue:=edtToDate.Text //
}
else if ParName='S500_001' then ParValue:=qrySer500S500_001.DisplayLabel //来电编号
else if ParName='S500_002' then ParValue:=qrySer500S500_002.DisplayLabel //来电名称
else if ParName='I150_002' then ParValue:=qrySer500I150_002.DisplayLabel //产品编号
else if ParName='I150_003' then ParValue:=qrySer500I150_003.DisplayLabel //产品名称
else if ParName='O150_002' then ParValue:=qrySer500O150_002.DisplayLabel //客戶编号
else if ParName='O150_003' then ParValue:=qrySer500O150_003.DisplayLabel //客戶名称
else if ParName='S500_011' then ParValue:=qrySer500S500_011.DisplayLabel //来电人员
else if ParName='S500_012' then ParValue:=qrySer500S500_012.DisplayLabel //部门名称
else if ParName='S500_013' then ParValue:=qrySer500S500_013.DisplayLabel //职务名称
else if ParName='S500_014' then ParValue:=qrySer500S500_014.DisplayLabel //联系电话
else if ParName='S500_016' then ParValue:=qrySer500S500_016.DisplayLabel //单据编号
else if ParName='S510_001' then ParValue:=qrySer510S510_001.DisplayLabel //调查单号
else if ParName='S510_002' then ParValue:=qrySer510S510_002.DisplayLabel //来电编号
else if ParName='S500_002' then ParValue:=qrySer510S500_002.DisplayLabel //来电名称
else if ParName='S500_007' then ParValue:=qrySer510S500_007.DisplayLabel //来电日期
else if ParName='S500_016' then ParValue:=qrySer510S500_016.DisplayLabel //单据编号
else if ParName='H150_002' then ParValue:=qrySer510H150_002.DisplayLabel //员工编号
else if ParName='H150_003' then ParValue:=qrySer510H150_003.DisplayLabel //员工姓名
else if ParName='O150_002' then ParValue:=qrySer510O150_002.DisplayLabel //客戶编号
else if ParName='O150_003' then ParValue:=qrySer510O150_003.DisplayLabel //客戶名称
else if ParName='O150_005' then ParValue:=qrySer510O150_005.DisplayLabel //电话号码
else if ParName='O150_006' then ParValue:=qrySer510O150_006.DisplayLabel //传真号码
else if ParName='O150_012' then ParValue:=qrySer510O150_012.DisplayLabel //客戶地址
else if ParName='I150_002' then ParValue:=qrySer510I150_002.DisplayLabel //产品编号
else if ParName='I150_003' then ParValue:=qrySer510I150_003.DisplayLabel //产品名称
else if ParName='S500_019' then ParValue:=qrySer510S500_019.DisplayLabel //机身编号
else if ParName='S500_011' then ParValue:=qrySer510S500_011.DisplayLabel //来电人员
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -