📄 unit_serverlog.pas
字号:
FlatComboBoxServKind2.ItemIndex:=1;
FlatMaskEditBeginDate2.Text:=FieldByName('BEG_DATE').AsString;
FlatMaskEditBeginTime2.Text:=FieldByName('BEG_TIME').AsString;
FlatMaskEditEndDate2.Text:=FieldByName('END_DATE').AsString;
FlatMaskEditEndTime2.Text:=FieldByName('END_TIME').AsString;
FlatEditServMoney2.Text:=FieldByName('SERVMONEY').AsString;
FlatEditUseMoney2.Text:=FieldByName('USEMONEY').AsString;
FlatSpinEditFloat1.value:=StrToFloat(FieldByName('TOTALMONEY').AsString);
FlatMemo1.Text:=FieldByName('SERVCONT').AsString;
FlatMemoObjInfo2.Text:=FieldByName('OBJINFO').AsString;
FlatMemoObjAdvice2.Text:=FieldByName('Advice').AsString;
end;
end;
procedure TFrm_ServerLog.FlatButtonClose1Click(Sender: TObject);
begin
Close;
end;
procedure TFrm_ServerLog.FlatRadioButtonCust1Click(Sender: TObject);
begin
FlatEditObject1Value.Text:='';
FlatEditObjectName1.Text:='';
if FlatRadioButtonCust1.Checked then
begin
LabelObject1.Caption:='手机号码';
LabelObjectName1.Caption:='用户姓名';
end;
end;
procedure TFrm_ServerLog.FlatRadioButtonGroup1Click(Sender: TObject);
begin
FlatEditObject1Value.Text:='';
FlatEditObjectName1.Text:='';
if FlatRadioButtonGroup1.Checked then
begin
LabelObject1.Caption:='集团关键字';
LabelObjectName1.Caption:='集团名称';
end;
end;
procedure TFrm_ServerLog.FlatEditObject1ValueKeyPress(Sender: TObject;
var Key: Char);
begin
if Key<>#13 then Exit;
if not FlatRadioButtonCust1.Checked then
begin
if FlatRadioButtonGroup1.Checked then
begin
FlatEditObject1Value.MaxLength:=0;
with QueryTemp do
begin
if Active then Close;
SQL.Clear;
SQL.Add('Select JTYHMC,JTYHDM From T_F_GroupInfo Where JTYHMC Like ''%'+Trim(FlatEditObject1Value.Text)+'%'' And JTBZ<>1');
Open;
if RecordCount=0 then
begin
Application.MessageBox('对不起，没有符合条件的记录！','提示',MB_OK+MB_ICONINFORMATION);
FlatEditObjectName1.Text:='';
FlatButtonSave1.Enabled:=False;
Exit;
end;
FlatEditObjectName1.Text:=Fields[0].AsString;
FlatButtonSave1.Enabled:=True;
end;
end;
end;
if FlatRadioButtonCust1.Checked then
begin
FlatEditObject1Value.MaxLength:=11;
if not (key In ['0'..'9', #13, #8]) Then
Key := #0;
end
else
FlatEditObject1Value.MaxLength:=0;
if (FlatCheckBoxVIP1.Checked) and (Key=#13) then
begin
with QueryTemp do
begin
if Active then Close;
SQL.Clear;
//个人服务
if FlatRadioButtonCust1.Checked then
begin
if Length(Trim(FlatEditObject1Value.Text))<>11 then
begin
Application.MessageBox('输入的手机号码不对！','提示',MB_OK+MB_ICONINFORMATION);
FlatButtonSave1.Enabled:=False;
Exit;
end;
SQL.Add('Select Act_User From T_F_CustInfo Where SID='''+Trim(FlatEditObject1Value.Text)+''' And FYBZ=''1'' ');
end;
//集团服务
if FlatRadioButtonGroup1.Checked then
SQL.Add('Select JTYHMC,JTYHDM From T_F_GroupInfo Where JTYHMC Like ''%'+Trim(FlatEditObject1Value.Text)+'%'' And JTBZ=0');
Open;
if RecordCount=0 then
begin
Application.MessageBox('对不起，没有符合条件的记录！','提示',MB_OK+MB_ICONINFORMATION);
FlatEditObjectName1.Text:='';
FlatButtonSave1.Enabled:=False;
Exit;
end;
FlatEditObjectName1.Text:=Fields[0].AsString;
end;
FlatButtonSave1.Enabled:=True;
end;
end;
procedure TFrm_ServerLog.FlatEditServMoney1KeyPress(Sender: TObject;
var Key: Char);
begin
If not (key In ['0'..'9', '.', #13, #8]) Then
key := #0;
end;
procedure TFrm_ServerLog.FlatEditUseMoney1KeyPress(Sender: TObject;
var Key: Char);
begin
If not (key In ['0'..'9', '.', #13, #8]) Then
key := #0;
end;
procedure TFrm_ServerLog.FlatEditServMoney1Change(Sender: TObject);
begin
if Trim(FlatEditServMoney1.Text)='' then
FlatEditServMoney1.Text:='0';
if FlatEditUseMoney1.Text='' then
FlatEditUseMoney1.Text:='0';
FlatSpinEditFloatTotalMoney1.Text:=FloatToStr(StrToFloat(Trim(FlatEditServMoney1.Text))+StrToFloat(Trim(FlatEditUseMoney1.Text)));
end;
procedure TFrm_ServerLog.FlatEditUseMoney1Change(Sender: TObject);
begin
if Trim(FlatEditServMoney1.Text)='' then
FlatEditServMoney1.Text:='0';
if FlatEditUseMoney1.Text='' then
FlatEditUseMoney1.Text:='0';
FlatSpinEditFloatTotalMoney1.Text:=FloatToStr(StrToFloat(Trim(FlatEditServMoney1.Text))+StrToFloat(Trim(FlatEditUseMoney1.Text)));
end;
procedure TFrm_ServerLog.FlatButtonAdd1Click(Sender: TObject);
var
sNow:String;
begin
PL_ClearText1;//清空输入框的值
Fun_ButtonStatus(Self,True); //按钮有效性控制
FlatButtonSave1.Enabled:=False;
Fun_ComponentStatus(Self,0,True);
FlatEditObject1Value.SetFocus;
FlatRadioButtonCust1.Enabled:=True;
FlatRadioButtonGroup1.Enabled:=True;
FlatMaskEditBeginDate1.Enabled:=True;
FlatMaskEditBeginTime1.Enabled:=True;
sNow:=Fun_GetDate(0,2);
FlatMaskEditBeginDate1.Text:=Copy(sNow,1,10);
FlatMaskEditBeginTime1.Text:=Copy(sNow,12,5);
sEditFlag:='I';
end;
procedure TFrm_ServerLog.FlatButtonSave1Click(Sender: TObject);
var
sFieldSQL,sValueSQL:String;
sServMoney,sUseMoney,sTotalMoney:String;
begin
if Trim(FlatEditObject1Value.Text)='' then
Begin
Application.MessageBox('服务对象不能为空！','提示',MB_OK+MB_ICONINFORMATION);
FlatEditObject1Value.SetFocus;
Exit;
end;
try
StrToDate(FlatMaskEditBeginDate1.Text);
except
Application.MessageBox('输入的开始时间不对。正确格式：YYYY-MM-DD。','提示',MB_OK+MB_ICONINFORMATION);
FlatMaskEditBeginDate1.SetFocus;
Exit;
end;
{
try
StrToDate(FlatMaskEditEndDate1.Text);
except
Application.MessageBox('输入的结束时间不对。正确格式：YYYY-MM-DD。','提示',MB_OK+MB_ICONINFORMATION);
FlatMaskEditEndDate1.SetFocus;
Exit;
end;
if FlatMaskEditBeginDate1.Text+FlatMaskEditBeginTime1.Text>=FlatMaskEditEndDate1.Text+FlatMaskEditEndTime1.Text then
begin
Application.MessageBox('结束时间不能小于开始时间！','提示',MB_OK+MB_ICONINFORMATION);
FlatMaskEditEndTime1.SetFocus;
Exit;
end;
}
sFieldSQL:='Insert Into T_F_ServiceLog(SERVICECODE,ObjType,ObjFlag,ServObj,ObjName,CityNo,Off_No_Home,TypeCode,ModeCode,ServKind,QualityCode,';
sFieldSQL:=SFieldSQL+'Finish,Wk_No,BeginTime,EndTime,ServCont,ObjAdvice,ObjInfo,ServMoney,UseMoney,TotalMoney)';
sValueSQL:=' Values(SEQ_ServiceCode.Nextval';
if FlatRadioButtonCust1.Checked then
sValueSQL:=sValueSQL+',0';
if FlatRadioButtonGroup1.Checked then
sValueSQL:=sValueSQL+',1';
if FlatCheckBoxVIP1.Checked then
sValueSQL:=sValueSQL+',0'
else
sValueSQL:=sValueSQL+',1';
if (FlatRadioButtonGroup1.Checked) and (FlatCheckBoxVIP1.Checked) then
sValueSQL:=sValueSQL+','''+QueryTemp.Fields[1].AsString
else
sValueSQL:=sValueSQL+','''+Trim(FlatEditObject1Value.Text);
sValueSQL:=sValueSQL+''','''+Trim(FlatEditObjectName1.Text);
sValueSQL:=sValueSQL+''','+PS_CityNo;
sValueSQL:=sValueSQL+','+IntToStr(JX);
//sValueSQL:=sValueSQL+','''+Trim(FlatComboBoxServTypeT.Text);
sValueSQL:=sValueSQL+','''+Fun_GetCodeName(FlatComboBoxServType1);
//sValueSQL:=sValueSQL+''','''+Trim(FlatComboBoxServModeT.Text);
sValueSQL:=sValueSQL+''','''+Fun_GetCodeName(FlatComboBoxServMode1);
sValueSQL:=sValueSQL+''','''+IntToStr(FlatComboBoxServKind.ItemIndex);
//sValueSQL:=sValueSQL+''','''+Trim(FlatComboBoxServQualityT.Text);
sValueSQL:=sValueSQL+''','''+Fun_GetCodeName(FlatComboBoxServQuality1);
if FlatCheckBoxFinish1.Checked then
sValueSQL:=sValueSQL+''',1'
else
sValueSQL:=sValueSQL+''',0';
sValueSQL:=sValueSQL+','''+GH;
sValueSQL:=sValueSQL+''',To_Date('''+FlatMaskEditBeginDate1.Text+' '+FlatMaskEditBeginTime1.Text+''',''YYYY-MM-DD HH24:MI'')';
//sValueSQL:=sValueSQL+',To_Date('''+FlatMaskEditEndDate1.Text+' '+FlatMaskEditEndTime1.Text+''',''YYYY-MM-DD HH24:MI'')';
if Trim(FlatMaskEditEndDate1.Text)<>'' then
sValueSQL:=sValueSQL+',To_Date('''+FlatMaskEditEndDate1.Text+' '+FlatMaskEditEndTime1.Text+''',''YYYY-MM-DD HH24:MI'')'
else
sValueSQL:=sValueSQL+',To_Date('''',''YYYY-MM-DD HH24:MI'')';
sValueSQL:=sValueSQL+','''+Trim(FlatMemoServCont2.Text);
sValueSQL:=sValueSQL+''','''+Trim(FlatMemoObjAdvice.Text);
sValueSQL:=sValueSQL+''','''+Trim(FlatMemoObjInfo.Text);
if Trim(FlatEditServMoney1.Text)='' then
sServMoney:='0'
else
sServMoney:=Trim(FlatEditServMoney1.Text);
sValueSQL:=sValueSQL+''','+sServMoney;
if Trim(FlatEditUseMoney1.Text)='' then
sUseMoney:='0'
else
sUseMoney:=Trim(FlatEditUseMoney1.Text);
sValueSQL:=sValueSQL+','+sUseMoney;
sTotalMoney:=Trim(FlatSpinEditFloatTotalMoney1.Text);
sValueSQL:=sValueSQL+','+sTotalMoney+')';
try
PL_ExecSQL(sFieldSQL+sValueSQL);
Application.MessageBox('服务日志登记成功！', '提示', MB_OK+MB_ICONINFORMATION);
except
Application.MessageBox('服务日志登记失败！', '提示', MB_OK+MB_ICONINFORMATION);
Exit;
end;
PL_ClearText1;//清空输入框的值
Fun_ButtonStatus(Self,False); //按钮有效性控制
Fun_ComponentStatus(Self,0,False);
FlatRadioButtonCust1.Enabled:=False;
FlatRadioButtonGroup1.Enabled:=False;
FlatMaskEditBeginDate1.Enabled:=False;
FlatMaskEditBeginTime1.Enabled:=False;
sEditFlag:='';
end;
procedure TFrm_ServerLog.FlatButtonClose2Click(Sender: TObject);
begin
Close;
end;
procedure TFrm_ServerLog.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=CaFree;
end;
procedure TFrm_ServerLog.TabSheet2Show(Sender: TObject);
begin
if TreeView1.Selected=Nil then
begin
PL_AddRoom(PS_CityNo,JX);
TreeView1.SetFocus;
end;
FlatMaskEditBeginDate2Q.Text:=FormatDateTime('YYYY-MM-DD',Date-60);
FlatMaskEditEndDate2Q.Text:=FormatDateTime('YYYY-MM-DD',Date);
PL_ControlEnabled(False);
Fun_ButtonStatus(Self,False); //按钮有效性控制
Fun_GetCity(FlatComboBoxCity,'所有',0,Ps_CityName);
FlatComboBoxCityChange(Nil);
Fun_GetManager(FlatComboBox_ManagerNo,'所有',FlatComboBoxCity.Text,FlatComboBoxCounty.Text,GH);
end;
procedure TFrm_ServerLog.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
iRoomID:Integer;
sWk_No:String;
begin
if TreeView1.Selected.Level=0 then
begin
if Trim(TreeView1.Selected.Text)='' then Exit;
iRoomID:=PL_GetRoomID(Trim(TreeView1.Selected.Text),PS_CityNo,JX);
PL_AddRoomRY(TreeView1.Selected,PS_CityNo,JX,iRoomID);
end;
{
if TreeView1.Selected.Level=1 then
begin
if Trim(TreeView1.Selected.Text)='' then Exit;
sWk_No:=Copy(Trim(TreeView1.Selected.Text),1,Pos(':',Trim(TreeView1.Selected.Text))-1);
with QueryServeLog2 do
begin
if Active then Close;
ParamByName('PS_Wk_NO').AsString:=sWk_No;
Open;
end;
end;
}
end;
procedure TFrm_ServerLog.DataSourceServeLog2DataChange(Sender: TObject;
Field: TField);
begin
PL_FillServiceLog;
end;
procedure TFrm_ServerLog.FlatButtonCancel1Click(Sender: TObject);
begin
PL_ClearText1;//清空输入框的值
Fun_ButtonStatus(Self,False); //按钮有效性控制
Fun_ComponentStatus(Self,0,False);
FlatRadioButtonCust1.Enabled:=False;
FlatRadioButtonGroup1.Enabled:=False;
FlatMaskEditBeginDate1.Enabled:=False;
FlatMaskEditBeginTime1.Enabled:=False;
sEditFlag:='';
end;
procedure TFrm_ServerLog.FlatButton9Click(Sender: TObject);
var
sWk_No,sGroupInfoSQL,sJTYHDM,sQuerySQL:String;
begin
try
StrToDate(FlatMaskEditBeginDate2Q.Text);
except
Application.MessageBox('输入的开始时间不对！正确格式：YYYY-MM-DD。','提示',MB_OK+MB_ICONINFORMATION);
FlatMaskEditBeginDate2Q.SetFocus;
Exit;
end;
try
StrToDate(FlatMaskEditEndDate2Q.Text);
except
Application.MessageBox('输入的结束时间不对！正确格式：YYYY-MM-DD。','提示',MB_OK+MB_ICONINFORMATION);
FlatMaskEditEndDate2Q.SetFocus;
Exit;
end;
//sWk_No:=Copy(Trim(TreeView1.Selected.Text),1,Pos(':',Trim(TreeView1.Selected.Text))-1);
sQuerySQL:='Select SERVICECODE,decode(L.OBJTYPE,0,''个人'',1,''集团'') ObjType,decode(L.ObjFlag,''0'',''大户'',''1'',''非大户'',''2'',''亲属伙伴'') ObjFlag,';
sQuerySQL:=sQuerySQL+' ServObj,ObjName,SERVTYPE,SERVMODE,decode(L.ServKind,0,''主动服务'',1,''被动服务'') ServKind,SERVQUALITY,Decode(L.Finish,0,''未完成'',1,''完成'') Finish,';
sQuerySQL:=sQuerySQL+' L.Wk_No Wk_No,To_Char(L.BeginTime,''YYYY-MM-DD'') Beg_Date,To_Char(L.BeginTime,''HH24:MI'') Beg_time,';
sQuerySQL:=sQuerySQL+' To_Char(L.EndTime,''YYYY-MM-DD'') End_Date,To_Char(L.EndTime,''HH24:MI'') End_Time,ServCont,ObjAdvice Advice,ObjInfo,';
sQuerySQL:=sQuerySQL+' ServMoney,UseMoney,TotalMoney';
sQuerySQL:=sQuerySQL+' From T_F_ServiceLog L,T_D_ServMode M,T_D_ServType T,T_D_ServQuality Q';
sQuerySQL:=sQuerySQL+' Where 1=1 ';
if FlatComboBoxCity.Text<>'所有' then
sQuerySQL:=sQuerySQL+' And L.CITYNO='''+Fun_GetCity(FlatComboBoxCity,'',1)+'''';
if FlatComboBoxCounty.Text<>'所有' then
sQuerySQL:=sQuerySQL+' And L.OFF_NO_HOME='+Fun_GetCounty(FlatComboBoxCounty,'','',1);
if FlatComboBox_ManagerNo.Text<>'所有' then
sQuerySQL:=sQuerySQL+' And WK_NO='''+Copy(Trim(FlatComboBox_ManagerNo.Text),1,Pos(':',Trim(FlatComboBox_ManagerNo.Text))-1)+'''';
if Trim(FlatEditServObj.Text)<>'' then
begin
if FlatComboBoxObj2Q.ItemIndex=1 then
sQuerySQL:=sQuerySQL+' And SERVOBJ='''+Trim(FlatEditServObj.Text)+'''';
if FlatComboBoxObj2Q.ItemIndex=2 then
begin
sGroupInfoSQL:='Select JTYHDM,JTYHMC From T_F_GroupInfo Where 1=1 ';
if FlatComboBoxCity.Text<>'所有' then
sGroupInfoSQL:=sGroupInfoSQL+' And CITYNO='''+Fun_GetCity(FlatComboBoxCity,'',1)+'''';
if FlatComboBoxCounty.Text<>'所有' then
sGroupInfoSQL:=sGroupInfoSQL+' And OFF_NO_HOME='+Fun_GetCounty(FlatComboBoxCounty,'','',1);
if FlatComboBox_ManagerNo.Text<>'所有' then
sGroupInfoSQL:=sGroupInfoSQL+' And GH='''+Copy(Trim(FlatComboBox_ManagerNo.Text),1,Pos(':',Trim(FlatComboBox_ManagerNo.Text))-1)+'''';
sGroupInfoSQL:=sGroupInfoSQL+' And JTYHMC Like ''%'+Trim(FlatEditServObj.Text)+'%''';
with QueryGroupInfoT do
begin
if Active then Close;
SQL.Clear;
SQL.Add(sGroupInfoSQL);
Open;
end;
if QueryGroupInfoT.FieldByName('JTYHDM').AsString='' then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -