📄 serw00_01.pas.svn-base
字号:
ActSer500.Caption:=GetDBString('SERW0001012'); //来电记录维护
ActSer510.Caption:=GetDBString('SERW0001013'); //调查过程维护
ActSer520.Caption:=GetDBString('SERW0001014'); //解决方案维护
ActSer530.Caption:=GetDBString('SERW0001015'); //来电汇报维护
ActSer600.Caption:=GetDBString('SERW0001016'); //客戶调查计划
ActSer610.Caption:=GetDBString('SERW0001017'); //客戶调查维护
ActSer200.Caption:=GetDBString('SERW0001018'); //来电历史查询
ActSer300.Caption:=GetDBString('SERW0001019'); //来电记录跟蹤
ActSer310.Caption:=GetDBString('SERW0001020'); //客戶投诉跟蹤
ActSer400.Caption:=GetDBString('SERW0001106'); //来电数量分析
ActSer410.Caption:=GetDBString('SERW0001107'); //月来电量分析
ActSer420.Caption:=GetDBString('SERW0001108'); //接听时间分析
ActContents.Caption:=GetDBString('SERW0001021'); //帮助主题(&H)
ActEmail.Caption:=GetDBString('SERW0001022'); //写信给作者(&E)...
ActHomePage.Caption:=GetDBString('SERW0001023'); //网上浩晖(&P)...
ActAbout.Caption:=GetDBString('SERW0001024'); //关于浩晖(&A)...
ActReg.Caption:=GetDBString('SERW0001025'); //软件注册(&R)...
ActUpgrade.Caption:=GetDBString('SERW0001026'); //在线智能升级(&U)...
tlbSer100.Caption:=GetDBString('SERW0001027'); //服务类别
tlbSer110.Caption:=GetDBString('SERW0001028'); //来电状态
tlbSer500.Caption:=GetDBString('SERW0001029'); //来电记录
tlbSer510.Caption:=GetDBString('SERW0001030'); //调查过程
tlbSer520.Caption:=GetDBString('SERW0001031'); //解决方案
tlbSer530.Caption:=GetDBString('SERW0001032'); //来电汇报
tlbSer600.Caption:=GetDBString('SERW0001033'); //调查计划
tlbSer610.Caption:=GetDBString('SERW0001034'); //调查维护
tlbExit.Caption:=GetDBString('SERW0001035'); //退出
pnLists.Caption:=GetDBString('SERW0001036'); //服务类别
pnReports.Caption:=GetDBString('SERW0001037'); //查询报表
TabSheet1.Caption:=GetDBString('SERW0001038'); //来电记录
TabSheet2.Caption:=GetDBString('SERW0001039'); //预警信息
lblClass.Caption:=GetDBString('SERW0001040'); //类别
lblDate.Caption:=GetDBString('SERW0001041'); //日期
sbSearch.Caption:=GetDBString('SERW0001042'); //查询
ActInsert.Caption:=GetDBString('SERW0001043'); //新增(&A)
ActUpdate.Caption:=GetDBString('SERW0001044'); //修改(&E)
ActDelete.Caption:=GetDBString('SERW0001045'); //删除(&D)
ActRefresh.Caption:=GetDBString('SERW0001046'); //刷新(&R)
ActLocate.Caption:=GetDBString('SERW0001047'); //查找(&F)
ActSearch.Caption:=GetDBString('SERW0001048'); //查询(&S)
ActPrint.Caption:=GetDBString('SERW0001049'); //打印(&P)
ActExport.Caption:=GetDBString('SERW0001050'); //导出(&E)
qrySer500S500_001.DisplayLabel:=GetDBString('SERW0001051'); //来电编号
qrySer500S500_002.DisplayLabel:=GetDBString('SERW0001052'); //来电名称
// qrySer500S500_003.DisplayLabel:=GetDBString('SERW0001053'); //来电状态
qrySer500S110_003.DisplayLabel:=GetDBString('SERW0001053'); //来电状态
// qrySer500S500_004.DisplayLabel:=GetDBString('SERW0001054'); //来电类别
qrySer500S100_002.DisplayLabel:=GetDBString('SERW0001054'); //来电类别
qrySer500S500_005.DisplayLabel:=GetDBString('SERW0001055'); //优先级别
qrySer500S500_006.DisplayLabel:=GetDBString('SERW0001056'); //来电类型
qrySer500S500_007.DisplayLabel:=GetDBString('SERW0001057'); //来电日期
qrySer500S500_008.DisplayLabel:=GetDBString('SERW0001058'); //来电时间
qrySer500S500_009.DisplayLabel:=GetDBString('SERW0001059'); //接听时间
// qrySer500S500_010.DisplayLabel:=GetDBString('SERW0001060'); //受理人员
qrySer500H150_002.DisplayLabel:=GetDBString('SERW0001060'); //受理人号
qrySer500H150_003.DisplayLabel:=GetDBString('SERW0001061'); //受理人名
qrySer500S500_011.DisplayLabel:=GetDBString('SERW0001062'); //来电人员
qrySer500S500_012.DisplayLabel:=GetDBString('SERW0001063'); //部门名称
qrySer500S500_013.DisplayLabel:=GetDBString('SERW0001064'); //职务名称
qrySer500S500_014.DisplayLabel:=GetDBString('SERW0001065'); //联系电话
qrySer500S500_015.DisplayLabel:=GetDBString('SERW0001066'); //单据类型
qrySer500S500_016.DisplayLabel:=GetDBString('SERW0001067'); //单据编号
// qrySer500S500_017.DisplayLabel:=GetDBString('SERW0001068'); //客户编号
qrySer500O150_002.DisplayLabel:=GetDBString('SERW0001068'); //客户编号
qrySer500O150_003.DisplayLabel:=GetDBString('SERW0001069'); //客户名称
// qrySer500O150_005.DisplayLabel:=GetDBString('SERW0001070'); //电话号码
// qrySer500O150_012.DisplayLabel:=GetDBString('SERW0001071'); //客户地址
// qrySer500O150_006.DisplayLabel:=GetDBString('SERW0001072'); //传真号码
// qrySer500S500_018.DisplayLabel:=GetDBString('SERW0001073'); //产品编号
qrySer500I150_002.DisplayLabel:=GetDBString('SERW0001073'); //产品编号
qrySer500I150_003.DisplayLabel:=GetDBString('SERW0001074'); //产品名称
qrySer500S500_019.DisplayLabel:=GetDBString('SERW0001075'); //机身编号
qrySer500S500_020.DisplayLabel:=GetDBString('SERW0001076'); //是否派工
qrySer500S500_027.DisplayLabel:=GetDBString('SERW0001083'); //是否报价
qrySer500S500_028.DisplayLabel:=GetDBString('SERW0001084'); //保养开始日期
qrySer500S500_029.DisplayLabel:=GetDBString('SERW0001085'); //保养完成日期
qrySer500S500_030.DisplayLabel:=GetDBString('SERW0001086'); //续保开始日期
qrySer500S500_031.DisplayLabel:=GetDBString('SERW0001087'); //续保完成日期
qrySer500S500_032.DisplayLabel:=GetDBString('SERW0001088'); //来源类型
qrySer500S500_033.DisplayLabel:=GetDBString('SERW0001089'); //来电内容
qrySer500S500_034.DisplayLabel:=GetDBString('SERW0001090'); //制单日期
qrySer500S500_035.DisplayLabel:=GetDBString('SERW0001091'); //制单人员
qrySer500S500_036.DisplayLabel:=GetDBString('SERW0001092'); //修改日期
qrySer500S500_037.DisplayLabel:=GetDBString('SERW0001093'); //修改人员
AType[0]:=GetDBString('SERW0001094'); //项目计划
AType[1]:=GetDBString('SERW0001095'); //任务计划
AType[2]:=GetDBString('SERW0001096'); //手工输入
AFrom[0]:=GetDBString('SERW0001097'); //电话
AFrom[1]:=GetDBString('SERW0001098'); //传真
AFrom[2]:=GetDBString('SERW0001099'); //电邮
AFrom[3]:=GetDBString('SERW0001100'); //其他
PageControl1.ActivePageIndex:=0;
mmiReaded.Caption:=GetDBString('COM00006008'); //标识为“已阅读”
end;
procedure TSerW00_01Form.FormCreate(Sender: TObject);
var
ARights:string;
ADate:TDateTime;
begin
AStringList:=TStringList.Create;
SetInterface;
ADate:=GetServerDate;
edtFromDate.Date:=GetMonthFirstDate(ADate);
edtToDate.Date:=GetMonthEndDate(ADate);
//查询报表
GetAllReport(adsReports,ActionList1,'SER');
//取得所有任务类别
GetAllTasksClass(adsLists,cbTasClass);
sbSearch.Click;
//取得权限
ARights:=GetRights('SER500','SER');
ActOpen.Enabled:=ARights[1]='Y';
ActInsert.Enabled:=ARights[2]='Y';
ActUpdate.Enabled:=ARights[3]='Y';
ActDelete.Enabled:=ARights[4]='Y';
ActRefresh.Enabled:=ARights[1]='Y';
ActLocate.Enabled:=ARights[1]='Y';
ActSearch.Enabled:=ARights[1]='Y';
ActPrint.Enabled:=ARights[5]='Y';
ActExport.Enabled:=ARights[5]='Y';
ActReg.Visible:=ADemoFlag;
N1.Visible:=ADemoFlag;
end;
procedure TSerW00_01Form.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
AStringList.Free;
Action := caFree;
end;
procedure TSerW00_01Form.FormActivate(Sender: TObject);
begin
Animate1.ResName:='HOWWELL';
Animate1.Play(1,100,0);
AModule:='SER';
end;
procedure TSerW00_01Form.dbgMasterBackgroundDrawEvent(Sender: TObject;
ACanvas: TCanvas; ARect: TRect);
var
AText:string;
begin
ARect.Left:=0;
ARect.Top:=0;
ACanvas.Brush.Color:=dbgMaster.GroupPanelColor;
ACanvas.Font.Color:=dbgMaster.GroupPanelFontColor;
//您可以把列标题拖放到此处使记录按此列进行分组
if dbgMaster.GroupColumnCount=0 then AText:=' '+GetDBString('NOT10001012') else AText:='';
Windows.FillRect(ACanvas.Handle, ARect, 0);
DrawText(ACanvas.Handle, PChar(AText), Length(AText), ARect, DT_LEFT or DT_EXPANDTABS or DT_NOPREFIX or DT_SINGLELINE or DT_VCENTER);
end;
procedure TSerW00_01Form.ActSerS00Execute(Sender: TObject);
begin
//服务管理参数
CreateFormInPackage('TSerS00_01Form',True);
end;
procedure TSerW00_01Form.ActSer100Execute(Sender: TObject);
begin
//服务类别维护
CreateFormInPackage('TSer100_01Form',True);
end;
procedure TSerW00_01Form.ActSer120Execute(Sender: TObject);
begin
//来电状态维护
CreateFormInPackage('TSer110_01Form',True);
end;
procedure TSerW00_01Form.ActPassExecute(Sender: TObject);
begin
//更改登录密码(&C)...
AStartTime:=GetTickCount;
Sys600_01Form:=TSys600_01Form.Create(Application);
ShowRunTime; //显示程序执行时间
Sys600_01Form.ShowModal;
end;
procedure TSerW00_01Form.ActLonginExecute(Sender: TObject);
begin
//更换操作员(&U)...
ReLogin;
end;
procedure TSerW00_01Form.ActExitExecute(Sender: TObject);
begin
//退出(&X)
Application.MainForm.Close;
end;
procedure TSerW00_01Form.ActSer500Execute(Sender: TObject);
begin
//来电记录维护
CreateFormInPackage('TSer500_01Form',True);
end;
procedure TSerW00_01Form.ActSer510Execute(Sender: TObject);
begin
//调查过程维护
CreateFormInPackage('TSer510_01Form',True);
sbSearch.Click;
end;
procedure TSerW00_01Form.ActSer520Execute(Sender: TObject);
begin
//解决方案维护
CreateFormInPackage('TSer520_01Form',True);
sbSearch.Click;
end;
procedure TSerW00_01Form.ActSer530Execute(Sender: TObject);
begin
//来电汇报维护
CreateFormInPackage('TSer530_01Form',True);
sbSearch.Click;
end;
procedure TSerW00_01Form.ActContentsExecute(Sender: TObject);
begin
//帮助主题(&H)
Screen.Cursor:=crHourGlass;
Application.HelpCommand(HELP_FINDER,0);
Screen.Cursor:=crDefault;
end;
procedure TSerW00_01Form.ActEmailExecute(Sender: TObject);
begin
//写信给作者(&E)...
Screen.Cursor:=crHourGlass;
ShellExecute(Handle, nil, PChar('mailto:'+AEmail),nil,nil,SW_NORMAL);
Screen.Cursor:=crDefault;
end;
procedure TSerW00_01Form.ActHomePageExecute(Sender: TObject);
begin
//网上浩晖(&P)...
Screen.Cursor:=crHourGlass;
ShellExecute(Handle, nil, PChar(AHome),nil,nil,SW_NORMAL);
Screen.Cursor:=crDefault;
end;
procedure TSerW00_01Form.ActAboutExecute(Sender: TObject);
begin
//关于浩晖(&A)...
Screen.Cursor:=crHourGlass;
WelcomeForm:=TWelcomeForm.Create(Application);
WelcomeForm.AFlag:=True;
Screen.Cursor:=crDefault;
WelcomeForm.ShowModal;
end;
procedure TSerW00_01Form.ActRegExecute(Sender: TObject);
begin
//软件注册(&R)...
Screen.Cursor:=crHourGlass;
AStartTime:=GetTickCount;
HwRegisterForm:=THwRegisterForm.Create(Application);
ShowRunTime; //显示程序执行时间
Screen.Cursor:=crDefault;
HwRegisterForm.ShowModal;
ActReg.Visible:=ADemoFlag;
N1.Visible:=ADemoFlag;
end;
procedure TSerW00_01Form.ActUpgradeExecute(Sender: TObject);
begin
//在线智能升级(&U)...
ShowUpgradeForm;
end;
procedure TSerW00_01Form.sbSearchClick(Sender: TObject);
var
AClassNo:string;
begin
//查询
if (edtFromDate.Text='') or (edtToDate.Text='') then
begin
ShowMsg('UMS10000319'); //起止日期不可为空
if edtFromDate.Text='' then edtFromDate.SetFocus else edtToDate.SetFocus;
Abort;
end;
if edtFromDate.Date>edtToDate.Date then
begin
ShowMsg('UMS10000320'); //结束日期不能小于起始日期
edtToDate.SetFocus;
Abort;
end;
Screen.Cursor:=crHourGlass;
//使用颜色标明任务的状态。如：计划=黑色，执行=蓝色，完成=灰色，返工=红色
AIsColor:=GetSysParams('TAS0010')='Y';
AStringList.Clear;
adsLists.Locate('Name',cbTasClass.Text,[]);
AClassNo:=adsLists.FieldByName('Num').AsString;
if AClassNo<>'0' then
begin
AStringList.Add(AClassNo);
if HasChild(AClassNo,'SER100','S100_003') then GetChild(AClassNo,'SER100','S100_003','S100_001',AStringList);
end;
qrySer500.Filtered:=False;
if not Assigned(qrySer500.OnFilterRecord) then
qrySer500.OnFilterRecord:=qrySer500FilterRecord;
qrySer500.DisableControls;
qrySer500.Close;
qrySer500.SQL.Clear;
qrySer500.SQL.Add('select A.*,B.S100_002,C.S110_003,D.H150_001,D.H150_002,D.H150_003,');
qrySer500.SQL.Add(' E.O150_001,E.O150_002,E.O150_003,C.S110_005');
qrySer500.SQL.Add('from SER500 A, SER100 B, SER110 C, HRM150 D, ORD150 E');
qrySer500.SQL.Add('where A.S500_004=B.S100_001 and A.S500_003=C.S110_001 and');
qrySer500.SQL.Add(' A.S500_010=D.H150_001 and A.S500_017=E.O150_001');
qrySer500.SQL.Add('order by S500_001');
qrySer500.Open;
qrySer500.EnableControls;
qrySer500.Filtered:=True;
Screen.Cursor:=crDefault;
end;
procedure TSerW00_01Form.tvReportsDblClick(Sender: TObject);
begin
if adsReports.IsEmpty then Exit;
CreateFormInPackage('T'+adsReports.FieldByName('Code').Value+'_01Form',True);
end;
procedure GetStatusList(var AStringList:TStrings);
begin
if AStringList=nil then Exit;
SYSDM.qryQuery.Close;
SYSDM.qryQuery.SQL.Clear;
SYSDM.qryQuery.SQL.Add('select * from SER110');
SYSDM.qryQuery.Open;
while not SYSDM.qryQuery.Eof do
begin
AStringList.Add(SYSDM.qryQuery.FieldByName('S110_003').Value);
SYSDM.qryQuery.Next;
end;
end;
procedure TSerW00_01Form.FilterDialogSelectField(Sender: TObject;
FieldName: String; var PictureMask: String; ComboList: TStrings);
begin
if FieldName='S110_003' then GetStatusList(ComboList);
end;
procedure TSerW00_01Form.tvListsGetImageIndex(Sender: TObject;
Node: TTreeNode);
begin
if Node.HasChildren then
begin
Node.ImageIndex:=0;
Node.SelectedIndex:=0;
end else
begin
Node.ImageIndex:=1;
Node.SelectedIndex:=1;
end;
end;
procedure TSerW00_01Form.tvListsDblClick(Sender: TObject);
begin
//类别选择
if tvLists.Items.Count=0 then Exit;
if tvLists.Selected=tvLists.Items.GetFirstNode then
begin
LockWindowUpdate(tvLists.Handle);
//取得所有任务类别
GetAllTasksClass(adsLists,cbTasClass);
sbSearch.Click;
LockWindowUpdate(0);
end else
begin
tvLists.Items.BeginUpdate;
tvLists.Items[0].Expand(True);
tvLists.Items.EndUpdate;
cbTasClass.ItemIndex:=cbTasClass.Items.IndexOf(adsListsName.Value);
cbTasClassChange(cbTasClass);
end;
end;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -