📄 unit_groupindiserv.pas

📁 delphi开发的中国移动大客户管理系统,后台数据库为oracle
💻 PAS
📖 第 1 页 / 共 4 页
字号:
  FlatMemoObjAdvice4.Clear;
  FlatEditObjectName22.Text:='';
  if QueryGroupInfo2.Active then QueryGroupInfo2.Close;
end;


//清空修改编辑框
procedure TFrm_GroupIndiServ.PL_ClearText2;
begin
  FlatMaskEditBeginDate2.Text:='    -  -  ';
  FlatMaskEditBeginTime2.Text:='00:00';
  FlatMaskEditEndDate2.Text:='    -  -  ';
  FlatMaskEditEndTime2.Text:='00:00';
  FlatEditObject2Value.Clear;
  FlatEditObjectName2.Clear;
  FlatEditServMoney2.Clear;
  FlatEditUseMoney2.Clear;
  FlatMemo1.Clear;
  FlatMemoObjInfo2.Clear;
  FlatMemoObjAdvice2.Clear;
end;

//控制编辑状态
procedure TFrm_GroupIndiServ.PL_ControlEnabled(pfFlag:Boolean);
begin
  FlatCheckBoxFinish2.Enabled:=pfFlag;
  FlatComboBoxServMode2.Enabled:=pfFlag;
  FlatComboBoxServKind2.Enabled:=pfFlag;
  FlatMaskEditBeginDate2.Enabled:=pfFlag;
  FlatMaskEditBeginTime2.Enabled:=pfFlag;
  //FlatMaskEditEndDate2.Enabled:=pfFlag;
  //FlatMaskEditEndTime2.Enabled:=pfFlag;
  FlatEditObject2Value.Enabled:=pfFlag;
  FlatEditObjectName2.Enabled:=pfFlag;
  FlatComboBoxServQuality2.Enabled:=pfFlag;
  FlatEditServMoney2.Enabled:=pfFlag;
  FlatEditUseMoney2.Enabled:=pfFlag;
  FlatMemo1.Enabled:=pfFlag;
  FlatMemoObjInfo2.Enabled:=pfFlag;
  FlatMemoObjAdvice2.Enabled:=pfFlag;
  FlatComboBoxServiceTopic.Enabled:=pfFlag;
  FlatButtonUpdate3.Enabled:=not pfFlag;
  FlatButtonSave3.Enabled:=pfFlag;
  FlatButtonCancel3.Enabled:=pfFlag;
end;

procedure TFrm_GroupIndiServ.PL_ExecSQL(psSQL:String);
var
  QueryTmp:TQuery;
begin
  Application.CreateForm(TQuery,QueryTmp);
  QueryTmp.DatabaseName:=DM_Main.Databasedh.DatabaseName;
  if DM_Main.Databasedh.InTransaction=True then
    DM_Main.Databasedh.Rollback;
  DM_Main.Databasedh.StartTransaction;
  try
    with QueryTmp do
    begin
      if Active then Close;
      SQL.Clear;
      SQL.Add(psSQL);
      ExecSQL;
    end;
    DM_Main.Databasedh.Commit;
  except
    DM_Main.Databasedh.Rollback;
    Application.MessageBox('命令执行失败！请重试。', '提示', MB_OK+MB_ICONINFORMATION);
    Exit;
  end;
  QueryTmp.Free;
end;


//填充编辑框
procedure TFrm_GroupIndiServ.PL_FillServiceLog;
var
  sWk_No:String;
begin
  if QueryServeLog2.Eof then
  begin
    PL_ClearText2; //清空修改编辑框
    LabelServiceCode2.Caption:='服务序号';
    Exit;
  end;
  with QueryServeLog2 do
  begin
     LabelServiceCode2.Caption:=FieldByName('SERVICECODE').AsString;
     //FlatComboBoxServMode2.Text:=FieldByName('SERVMODE').AsString;
     FlatComboBoxServMode2.ItemIndex:=FlatComboBoxServMode2.Items.IndexOf(FieldByName('SERVMODE').AsString);
     FlatEditObject2Value.Text:=FieldByName('SERVOBJ').AsString;
     FlatEditObjectName2.Text:=FieldByName('OBJNAME').AsString;
     //FlatComboBoxServQuality2.Text:=FieldByName('SERVQUALITY').AsString;
     FlatComboBoxServQuality2.ItemIndex:=FlatComboBoxServQuality2.Items.IndexOf(FieldByName('SERVQUALITY').AsString);
     FlatComboBoxServKind2.Text:=FieldByName('SERVKIND').AsString;
     FlatMaskEditBeginDate2.Text:=FieldByName('BEG_DATE').AsString;
     FlatMaskEditBeginTime2.Text:=FieldByName('BEG_TIME').AsString;
     FlatMaskEditEndDate2.Text:=FieldByName('END_DATE').AsString;
     FlatMaskEditEndTime2.Text:=FieldByName('END_TIME').AsString;
     if FieldByName('FINISH').AsString='完成' then
       FlatCheckBoxFinish2.checked:=False
     else
       FlatCheckBoxFinish2.checked:=True;
     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;
     FlatComboBoxServiceTopic.ItemIndex:=FlatComboBoxServiceTopic.Items.IndexOf(FieldByName('SERV_TOPIC').AsString);
    end;
end;

procedure TFrm_GroupIndiServ.FlatButtonClose1Click(Sender: TObject);
begin
  Close;
end;

procedure TFrm_GroupIndiServ.FlatEditObjectName1KeyPress(Sender: TObject;
  var Key: Char);
begin
  //PL_ContrButt(0,False);
  if Key=#13 then
  begin
    FlatButtonQuery1Click(Nil); 
  end;
end;

procedure TFrm_GroupIndiServ.FlatEditServMoney1KeyPress(Sender: TObject;
  var Key: Char);
begin
  If not (key In ['0'..'9', '.', #13, #8]) Then
      key := #0;
end;

procedure TFrm_GroupIndiServ.FlatEditUseMoney1KeyPress(Sender: TObject;
  var Key: Char);
begin
  If not (key In ['0'..'9', '.', #13, #8]) Then
      key := #0;
end;

procedure TFrm_GroupIndiServ.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_GroupIndiServ.FlatButtonAdd1Click(Sender: TObject);
begin
  PL_ClearText1;//清空输入框的值
 //Fun_ComponentStatus(Self,1,False); //清空输入框的值
  FlatEditObjectName1.Enabled:=True;
  FlatEditObjectName1.SetFocus;
  FlatButtonCancel1.Enabled:=True;
  sEditFlag:='I'
end;

procedure TFrm_GroupIndiServ.FlatButtonSave1Click(Sender: TObject);
var
  sFieldSQL,sValueSQL:String;
  sServMoney,sUseMoney,sTotalMoney:String;
begin
//if not QueryGroupInfo.Active then Exit;
  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('输入的结束时间不对！','提示',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);
    FlatMaskEditEndDate1.SetFocus;
    Exit;
  end;
}  
  sFieldSQL:='Insert Into T_F_ServiceLog(SERVICECODE,ServTop_Id,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';
  sValueSQL:=sValueSQL+','+QueryService.FieldByName('ServTop_Id').AsString;
  sValueSQL:=sValueSQL+',1';
  sValueSQL:=sValueSQL+',0';
  sValueSQL:=sValueSQL+','''+Trim(QueryGroupInfo.FieldByName('JTYHDM').AsString);
  sValueSQL:=sValueSQL+''','''+Trim(QueryGroupInfo.FieldByName('JTYHMC').AsString);
  sValueSQL:=sValueSQL+''','+PS_CityNo;
  sValueSQL:=sValueSQL+','+IntToStr(JX);
  sValueSQL:=sValueSQL+',4';
  //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(FlatMemoServCont1.Text);
  sValueSQL:=sValueSQL+''','''+Trim(FlatMemoObjAdvice1.Text);
  sValueSQL:=sValueSQL+''','''+Trim(FlatMemoObjInfo1.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;//清空输入框的值
  PL_ContrButt(0,False);
  Fun_ComponentStatus(Self,0,False);
  FlatMaskEditBeginDate1.Enabled:=False;
  FlatMaskEditBeginTime1.Enabled:=False;
  sEditFlag:='';
end;

procedure TFrm_GroupIndiServ.FlatButtonClose3Click(Sender: TObject);
begin
  Close;
end;

procedure TFrm_GroupIndiServ.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=CaFree;
end;

procedure TFrm_GroupIndiServ.TabSheet2Show(Sender: TObject);
begin
  FlatMaskEditBeginDate2Q.Text:=FormatDateTime('YYYY-MM-DD',Date-60);
  FlatMaskEditEndDate2Q.Text:=FormatDateTime('YYYY-MM-DD',Date);
  PL_ControlEnabled(False);

  Fun_GetCity(FlatComboBoxCity,'所有',0,Ps_CityName);
  FlatComboBoxCityChange(Nil);
  Fun_GetManager(FlatComboBox_ManagerNo,'所有',FlatComboBoxCity.Text,FlatComboBoxCounty.Text,GH);


  Fun_GetSERV_TOPIC(FlatComboBoxServiceTopic,PS_CityNo,JX,0,'N');
end;

procedure TFrm_GroupIndiServ.DataSourceServeLog2DataChange(Sender: TObject;
  Field: TField);
begin
  PL_FillServiceLog;
end;

procedure TFrm_GroupIndiServ.FlatButtonCancel1Click(Sender: TObject);
begin
  PL_ClearText1;//清空输入框的值
  PL_ContrButt(0,False);
  Fun_ComponentStatus(Self,0,False);
  FlatMaskEditBeginDate1.Enabled:=False;
  FlatMaskEditBeginTime1.Enabled:=False;
  sEditFlag:='';
end;

procedure TFrm_GroupIndiServ.PageControlServerLogChange(Sender: TObject);
begin
  //PL_FillInitValues;
end;

procedure TFrm_GroupIndiServ.FlatButton9Click(Sender: TObject);
var
  sGroupInfoSQL,sJTYHDM,sWk_No,sQuerySQL:String;
begin
  if Trim(FlatEditServObj.Text)<>'' 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
    begin
      Application.MessageBox('对不起，没有符合条件的集团！','提示',MB_OK+MB_ICONINFORMATION);
      Exit;
    end
    else
      sJTYHDM:=QueryGroupInfoT.FieldByName('JTYHDM').AsString;
  end;
  try
   StrToDate(FlatMaskEditBeginDate2Q.Text);
  except
    Application.MessageBox('输入的开始时间不对！','提示',MB_OK+MB_ICONINFORMATION);
    FlatMaskEditBeginDate2Q.SetFocus;
    Exit;
💿 文件大小 5793 K
👤 上传用户 jjkk778
📂 所属分类邮电通讯系统
🏷️ 相关标签

#delphi #oracle #中国移动 #管理系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -