📄 ser520_02.pas.svn-base
字号:
ActPrint.Hint:=GetDBString('COM00005013',2); //将数据打印出来
ActExit.Hint:=GetDBString('COM00005015',2); //关闭当前窗口
gbInfo.Caption:=GetDBString('SER52002002'); //基本信息
gbSolution.Caption:=GetDBString('SER52002003'); //解决方案
gbSend.Caption:=GetDBString('SER52002004'); //派工记录
gbPunish.Caption:=GetDBString('SER52002005'); //处罚记录
gbPayfor.Caption:=GetDBString('SER52002006'); //赔偿记录
gbReturn.Caption:=GetDBString('SER52002007'); //退货记录
tsSolution.Caption:=gbSolution.Caption; //解决方案
tsSend.Caption:=gbSend.Caption; //派工记录
tsPunish.Caption:=gbPunish.Caption; //处罚记录
tsPayfor.Caption:=gbPayfor.Caption; //赔偿记录
tsReturn.Caption:=gbReturn.Caption; //退货记录
PageControl1.ActivePageIndex:=0;
lblCode.Caption:=GetDBString('SER52002008'); //方案单号
lblCallCode.Caption:=GetDBString('SER52002009'); //来电编号
lblStatus.Caption:=GetDBString('SER52002010'); //方案状态
lblCust.Caption:=GetDBString('SER52002011'); //客戶编号
lblCustName.Caption:=GetDBString('SER52002012'); //客戶名称
lblType.Caption:=GetDBString('SER52002013'); //单据类型
lblBillNo.Caption:=GetDBString('SER52002014'); //单据编号
lblCheckDate.Caption:=GetDBString('SER52002015'); //审核日期
lblCheckBy.Caption:=GetDBString('SER52002016'); //审核人员
lblSolution.Caption:=GetDBString('SER52002017'); //解决方案
gbSend.Caption:=GetDBString('SER52002018'); //派工记录
gbPunish.Caption:=GetDBString('SER52002019'); //处罚记录
gbPayfor.Caption:=GetDBString('SER52002020'); //赔偿记录
gbReturn.Caption:=GetDBString('SER52002021'); //退货记录
bbtnSendAdd.Caption:=GetDBString('SER52002022'); //新增(&I)
bbtnSendEdit.Caption:=GetDBString('SER52002023'); //修改(&U)
bbtnSendDel.Caption:=GetDBString('SER52002024'); //删除(&L)
bbtnPunishAdd.Caption:=bbtnSendAdd.Caption; //新增(&I)
bbtnPunishEdit.Caption:=bbtnSendEdit.Caption; //修改(&U)
bbtnPunishDel.Caption:=bbtnSendDel.Caption; //删除(&L)
bbtnPayforAdd.Caption:=bbtnSendAdd.Caption; //新增(&I)
bbtnPayforEdit.Caption:=bbtnSendEdit.Caption; //修改(&U)
bbtnPayforDel.Caption:=bbtnSendDel.Caption; //删除(&L)
bbtnReturnAdd.Caption:=bbtnSendAdd.Caption; //新增(&I)
bbtnReturnEdit.Caption:=bbtnSendEdit.Caption; //修改(&U)
bbtnReturnDel.Caption:=bbtnSendDel.Caption; //删除(&L)
lblCreateDate.Caption:=GetDBString('SER52002025'); //制单日期
lblCreateBy.Caption:=GetDBString('SER52002026'); //制单人员
lblUpdateDate.Caption:=GetDBString('SER52002027'); //修改日期
lblUpdateBy.Caption:=GetDBString('SER52002028'); //修改人员
ActCheck.Caption:=GetDBString('SER52002029'); //审核
ActUnCheck.Caption:=GetDBString('SER52002030'); //反审核
AStatus[0]:=GetDBString('SER52002031'); //编制
AStatus[1]:=GetDBString('SER52002032'); //审核
AUnit[0]:=GetDBString('TAS50002038'); //时
AUnit[1]:=GetDBString('TAS50002039'); //天
AUnit[2]:=GetDBString('TAS50002040'); //周
AUnit[3]:=GetDBString('TAS50001041'); //月
qrySer500S500_001.DisplayLabel:=GetDBString('SER52002033'); //来电编号
qrySer500S500_002.DisplayLabel:=GetDBString('SER52002034'); //来电名称
qrySer500O150_002.DisplayLabel:=GetDBString('SER52002035'); //客戶编号
qrySer500O150_003.DisplayLabel:=GetDBString('SER52002036'); //客戶名称
qrySer500S500_015.DisplayLabel:=GetDBString('SER52002037'); //单据类型
qrySer500S500_016.DisplayLabel:=GetDBString('SER52002038'); //单据编号
qrySer520S520_001.DisplayLabel:=GetDBString('SER52002039'); //方案编号
qrySer520S520_002.DisplayLabel:=GetDBString('SER52002040'); //来电编号
qrySer520S500_002.DisplayLabel:=GetDBString('SER52002041'); //来电名称
qrySer520S520_003.DisplayLabel:=GetDBString('SER52002042'); //方案状态
qrySer520O150_002.DisplayLabel:=GetDBString('SER52002043'); //客戶编号
qrySer520O150_003.DisplayLabel:=GetDBString('SER52002044'); //客戶名称
qrySer520S500_015.DisplayLabel:=GetDBString('SER52002045'); //单据类型
qrySer520S500_016.DisplayLabel:=GetDBString('SER52002046'); //单据编号
qrySer520S520_004.DisplayLabel:=GetDBString('SER52002047'); //审核日期
qrySer520S520_005.DisplayLabel:=GetDBString('SER52002048'); //审核人员
qrySer520S520_012.DisplayLabel:=GetDBString('SER52002049'); //制单日期
qrySer520S520_013.DisplayLabel:=GetDBString('SER52002050'); //制单人员
qrySer520S520_014.DisplayLabel:=GetDBString('SER52002051'); //修改日期
qrySer520S520_015.DisplayLabel:=GetDBString('SER52002052'); //修改人员
edtCode.Enabled:=not GetAutoCoding('SER520');
if edtCode.Enabled then edtCode.Color:=AEnableColor else edtCode.Color:=ADisableColor;
end;
procedure TSer520_02Form.OpenData(ACode:string);
begin
qrySer520.DisableControls;
qrySer520.Close;
qrySer520.SQL.Clear;
qrySer520.SQL.Add('select A.*,');
qrySer520.SQL.Add(' B.S500_002,B.S500_015,B.S500_016,');
qrySer520.SQL.Add(' C.O150_001,C.O150_002,C.O150_003');
qrySer520.SQL.Add('from SER520 A, SER500 B, ORD150 C');
qrySer520.SQL.Add('where A.S520_002=B.S500_001 and B.S500_017=C.O150_001');
qrySer520.SQL.Add('order by S520_001');
qrySer520.Open;
qrySer520.Locate('S520_001',ACode,[]);
qrySer520.EnableControls;
qrySer520AfterScroll(qrySer520);
end;
procedure TSer520_02Form.FormCreate(Sender: TObject);
begin
inherited;
SetInterface;
qrySer500.Open;
qryInv150.Open;
qryHrm150.Open;
qryOrd150.Open;
SetButtonState(False);
end;
procedure TSer520_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;
qryInv150.Close;
qryHrm150.Close;
qryOrd150.Close;
qrySer500.Close;
qrySer520.Close;
qrySer521.Close;
qrySer522.Close;
qrySer523.Close;
qrySer524.Close;
end;
procedure TSer520_02Form.ActFirstExecute(Sender: TObject);
begin
inherited;
//最前
if qrySer520.IsEmpty then Exit;
qrySer520.First;
ActFirst.Enabled:=False;
ActPrior.Enabled:=False;
ActNext.Enabled:=True;
ActLast.Enabled:=True;
end;
procedure TSer520_02Form.ActPriorExecute(Sender: TObject);
begin
inherited;
//上移
if qrySer520.IsEmpty then Exit;
qrySer520.Prior;
ActNext.Enabled:=not qrySer520.Eof;
ActLast.Enabled:=not qrySer520.Eof;
ActFirst.Enabled:=not qrySer520.Bof;
ActPrior.Enabled:=not qrySer520.Bof;
end;
procedure TSer520_02Form.ActNextExecute(Sender: TObject);
begin
inherited;
//下移
if qrySer520.IsEmpty then Exit;
qrySer520.Next;
ActNext.Enabled:=not qrySer520.Eof;
ActLast.Enabled:=not qrySer520.Eof;
ActFirst.Enabled:=not qrySer520.Bof;
ActPrior.Enabled:=not qrySer520.Bof;
end;
procedure TSer520_02Form.ActLastExecute(Sender: TObject);
begin
inherited;
//最后
if qrySer520.IsEmpty then Exit;
qrySer520.Last;
ActNext.Enabled:=False;
ActLast.Enabled:=False;
ActFirst.Enabled:=True;
ActPrior.Enabled:=True;
end;
procedure TSer520_02Form.ActInsertExecute(Sender: TObject);
var
ADate:TDateTime;
begin
inherited;
//新增
Screen.Cursor:=crHourGlass;
AMode:='ADD';
edtCode.Text:='';
edtCallCode.Text:='';
edtCallName.Text:='';
edtStatus.Text:='';
edtCust.Text:='';
edtCustName.Text:='';
edtType.Text:='';
edtBillNo.Text:='';
edtCheckDate.Text:='';
edtCheckBy.Text:='';
memSolution.Clear;
ADate:=GetServerDate;
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;
qrySer520.Insert;
SetButtonState(True);
if Visible then
if edtCode.Enabled then edtCode.SetFocus else edtCallCode.SetFocus;
Screen.Cursor:=crDefault;
end;
procedure TSer520_02Form.ActUpdateExecute(Sender: TObject);
begin
inherited;
//修改
if qrySer520.IsEmpty then
begin
ShowMsg('UMS10000002'); //表记录为空，操作无效
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 TSer520_02Form.ActDeleteExecute(Sender: TObject);
var
ACode:string;
begin
inherited;
//删除
if qrySer520.IsEmpty then
begin
ShowMsg('UMS10000002'); //表记录为空，操作无效
Abort;
end;
if ShowDialog('UMS10000008')=IDNO then Abort; //确定要删除此记录吗?
ACode:=qrySer520S520_001.AsString;
DeleteTableRecord(qrySer520,'SER520','S520_001='+''''+ACode+'''');
end;
procedure TSer520_02Form.ActSaveExecute(Sender: TObject);
begin
inherited;
//保存
try
Screen.Cursor:=crHourGlass;
SaveData;
finally
Screen.Cursor:=crDefault;
end;
end;
procedure TSer520_02Form.ActCancelExecute(Sender: TObject);
begin
inherited;
//取消
SetButtonState(False);
qrySer520AfterScroll(qrySer520);
end;
procedure TSer520_02Form.ActRefreshExecute(Sender: TObject);
var
ACode:string;
begin
inherited;
//刷新
ACode:=qrySer520.FieldByName('S520_001').AsString;
qrySer520.DisableControls;
qrySer520.Close;
qrySer520.Open;
qrySer520.Locate('S520_001',ACode,[]);
qrySer520.EnableControls;
end;
procedure TSer520_02Form.ActLocateExecute(Sender: TObject);
begin
inherited;
//查找
if qrySer520.IsEmpty then
begin
ShowMsg('UMS10000002'); //表记录为空，操作无效
Abort;
end;
LocateDialog(dsSer520);
end;
procedure TSer520_02Form.ActSearchExecute(Sender: TObject);
begin
inherited;
//查询
FilterDialog(dsSer520);
end;
procedure TSer520_02Form.ActPrintExecute(Sender: TObject);
begin
inherited;
//打印
SelectReport(qrySer520,AProgramID,AReportName,ReportGetValue);
ActRefresh.Execute;
end;
procedure TSer520_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='S500_001' then ParValue:=qrySer500S500_001.DisplayLabel //来电编号
else if ParName='S500_002' then ParValue:=qrySer500S500_002.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_015' then ParValue:=qrySer500S500_015.DisplayLabel //单据类型
else if ParName='S500_016' then ParValue:=qrySer500S500_016.DisplayLabel //单据编号
else if ParName='S520_001' then ParValue:=qrySer520S520_001.DisplayLabel //方案编号
else if ParName='S520_002' then ParValue:=qrySer520S520_002.DisplayLabel //来电编号
else if ParName='S500_002' then ParValue:=qrySer520S500_002.DisplayLabel //来电名称
else if ParName='S520_003' then ParValue:=qrySer520S520_003.DisplayLabel //方案状态
else if ParName='O150_002' then ParValue:=qrySer520O150_002.DisplayLabel //客戶编号
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -