📄 unit_groupindiserv.pas

📁 delphi开发的中国移动大客户管理系统,后台数据库为oracle
💻 PAS
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
  Fun_GetCity(FlatComboBoxCityName2, '', 0, ps_cityname);
  Fun_GetCounty(FlatComboBoxJX2, '', ps_cityname);
  //Fun_GetCity(FlatComboBoxCityName2,'',0);//初始化所管辖的地市
  //Fun_GetCounty(FlatComboBoxJX2,'',Trim(FlatComboBoxCityName2.Text),0,PS_HomeName);//初始化所管辖的局向
  //FlatMaskEditBeginDate4.Text:=FormatDateTime('YYYY-MM-DD',Date-1);
  //FlatMaskEditEndDate4.Text:=FormatDateTime('YYYY-MM-DD',Date);
  with QueryService2 do
  begin
    if Active then Close;
    SQL.Clear;
    SQL.Add('Select * From T_D_ServiceTopic Where CITYNO='''+Fun_GetCity(FlatComboBoxCityName2,'',1)+''' And OFF_NO_HOME='+Fun_GetCounty(FlatComboBoxJX2,'','',1)+' And VALIDMARK=0 ');
    Open;
  end;
end;

procedure TFrm_GroupIndiServ.FlatButtonSave2Click(Sender: TObject);
var
  sFieldSQL,sValueSQL:String;
  sServMoney,sUseMoney,sTotalMoney:String;
begin
  if Trim(QueryService2.Fields[0].AsString)='' then
  begin
    Application.MessageBox('没有移动提供的服务！','提示',MB_OK+MB_ICONINFORMATION);
    Exit;
  end;
  try
   StrToDate(FlatMaskEditBeginDate4.Text);
  except
    Application.MessageBox('输入的开始时间不对！','提示',MB_OK+MB_ICONINFORMATION);
    FlatMaskEditBeginDate4.SetFocus;
    Exit;
  end;
{
  try
   StrToDate(FlatMaskEditEndDate4.Text);
  except
    Application.MessageBox('输入的结束时间不对！','提示',MB_OK+MB_ICONINFORMATION);
    FlatMaskEditEndDate4.SetFocus;
    Exit;
  end;
  if FlatMaskEditBeginDate4.Text+FlatMaskEditBeginTime4.Text>=FlatMaskEditEndDate4.Text+FlatMaskEditEndTime4.Text then
  begin
    Application.MessageBox('结束时间不能小于开始时间！','提示',MB_OK+MB_ICONINFORMATION);
    FlatMaskEditEndDate4.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+','+QueryService2.FieldByName('ServTop_Id').AsString;
  sValueSQL:=sValueSQL+',1';
  sValueSQL:=sValueSQL+',0';
  sValueSQL:=sValueSQL+','''+Trim(QueryGroupInfo2.FieldByName('JTYHDM').AsString);
  sValueSQL:=sValueSQL+''','''+Trim(QueryGroupInfo2.FieldByName('JTYHMC').AsString);
  sValueSQL:=sValueSQL+''','+PS_CityNo;
  sValueSQL:=sValueSQL+','+IntToStr(JX);
  sValueSQL:=sValueSQL+',4';
  //sValueSQL:=sValueSQL+','''+Trim(FlatComboBoxServModeT.Text);
  sValueSQL:=sValueSQL+','''+Fun_GetCodeName(FlatComboBoxServMode4);
  sValueSQL:=sValueSQL+''','''+IntToStr(FlatComboBoxServKind4.ItemIndex);
  //sValueSQL:=sValueSQL+''','''+Trim(FlatComboBoxServQualityT.Text);
  sValueSQL:=sValueSQL+''','''+Fun_GetCodeName(FlatComboBoxServQuality4);
  if FlatCheckBoxFinish4.Checked then
    sValueSQL:=sValueSQL+''',1'
  else
    sValueSQL:=sValueSQL+''',0';
  sValueSQL:=sValueSQL+','''+GH;
  sValueSQL:=sValueSQL+''',To_Date('''+FlatMaskEditBeginDate4.Text+' '+FlatMaskEditBeginTime4.Text+''',''YYYY-MM-DD HH24:MI'')';
//sValueSQL:=sValueSQL+',To_Date('''+FlatMaskEditEndDate4.Text+' '+FlatMaskEditEndTime4.Text+''',''YYYY-MM-DD HH24:MI'')';
  if Trim(FlatMaskEditEndDate4.Text)<>'' then
    sValueSQL:=sValueSQL+',To_Date('''+FlatMaskEditEndDate4.Text+' '+FlatMaskEditEndTime4.Text+''',''YYYY-MM-DD HH24:MI'')'
  else
    sValueSQL:=sValueSQL+',To_Date('''',''YYYY-MM-DD HH24:MI'')';
  sValueSQL:=sValueSQL+','''+Trim(FlatMemoServCont4.Text);
  sValueSQL:=sValueSQL+''','''+Trim(FlatMemoObjAdvice4.Text);
  sValueSQL:=sValueSQL+''','''+Trim(FlatMemoObjInfo4.Text);
  if Trim(FlatEditServMoney4.Text)='' then
    sServMoney:='0'
  else
    sServMoney:=Trim(FlatEditServMoney4.Text);
  sValueSQL:=sValueSQL+''','+sServMoney;
  if Trim(FlatEditUseMoney4.Text)='' then
    sUseMoney:='0'
  else
    sUseMoney:=Trim(FlatEditUseMoney4.Text);
  sValueSQL:=sValueSQL+','+sUseMoney;
  sTotalMoney:=Trim(FlatSpinEditFloatTotalMoney4.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_ClearText4;//清空输入框的值
  Fun_ComponentStatus(Self,0,False);
  PL_ContrButt(1,False);
  FlatMaskEditBeginDate4.Enabled:=False;
  FlatMaskEditBeginTime4.Enabled:=False;
  sEditFlag:='';
end;

procedure TFrm_GroupIndiServ.FlatComboBoxServMode4Change(Sender: TObject);
begin
  FlatComboBoxServModeT.ItemIndex:=FlatComboBoxServMode4.ItemIndex;
end;

procedure TFrm_GroupIndiServ.FlatComboBoxServQuality4Change(
  Sender: TObject);
begin
  FlatComboBoxServQualityT.ItemIndex:=FlatComboBoxServQuality4.ItemIndex;
end;

procedure TFrm_GroupIndiServ.FlatButtonCancel2Click(Sender: TObject);
begin
  PL_ClearText4;//清空输入框的值
  Fun_ComponentStatus(Self,0,False);
  PL_ContrButt(1,False);
  FlatMaskEditBeginDate4.Enabled:=False;
  FlatMaskEditBeginTime4.Enabled:=False;  
  sEditFlag:='';
end;

procedure TFrm_GroupIndiServ.DataSourceServiceDataChange(Sender: TObject;
  Field: TField);
begin
  if QueryService.FieldByName('ServTop_Id').AsString<>'' then
    PL_ContrButt(0,True);
end;

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

procedure TFrm_GroupIndiServ.DataSourceGroupInfo2DataChange(
  Sender: TObject; Field: TField);
begin
  if not QueryGroupInfo2.Active then Exit;
  if QueryService2.Fields[0].AsString='' then
    Exit;
  if QueryGroupInfo2.Fields[0].AsString<>'' then
  begin
    FlatMaskEditBeginDate4.Enabled:=True;
    FlatMaskEditBeginTime4.Enabled:=True;
    FlatMaskEditBeginDate4.Text:=Copy(Fun_GetDate(0,2),1,10);
    FlatMaskEditBeginTime4.Text:=Copy(Fun_GetDate(0,2),12,5);
    PL_ContrButt(1,True);
    Fun_ComponentStatus(Self,0,True);
  end;
end;

procedure TFrm_GroupIndiServ.FlatEditUseMoney4Change(Sender: TObject);
begin
  if Trim(FlatEditServMoney4.Text)=''  then
    FlatEditServMoney4.Text:='0';
  if FlatEditUseMoney4.Text='' then
    FlatEditUseMoney4.Text:='0';
  FlatSpinEditFloatTotalMoney4.Text:=FloatToStr(StrToFloat(Trim(FlatEditServMoney4.Text))+StrToFloat(Trim(FlatEditUseMoney4.Text)));
end;

procedure TFrm_GroupIndiServ.FlatEditServMoney4Change(Sender: TObject);
begin
  if Trim(FlatEditServMoney4.Text)=''  then
    FlatEditServMoney4.Text:='0';
  if FlatEditUseMoney4.Text='' then
    FlatEditUseMoney4.Text:='0';
  FlatSpinEditFloatTotalMoney4.Text:=FloatToStr(StrToFloat(Trim(FlatEditServMoney4.Text))+StrToFloat(Trim(FlatEditUseMoney4.Text)));
end;

procedure TFrm_GroupIndiServ.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_GroupIndiServ.FlatCheckBoxFinish1Click(Sender: TObject);
var
  sNow:String;
begin
  sNow:=Fun_GetDate(0,2);
  if FlatCheckBoxFinish1.Checked then
    begin
      FlatMaskEditEndDate1.Text:=Copy(sNow,1,10);
      FlatMaskEditEndTime1.Text:=Copy(sNow,12,5);
    end
  else
    begin
      FlatMaskEditEndDate1.Text:='';
      FlatMaskEditEndTime1.Text:='';
    end;
end;

procedure TFrm_GroupIndiServ.FlatCheckBoxFinish4Click(Sender: TObject);
var
  sNow:String;
begin
  sNow:=Fun_GetDate(0,2);
  if FlatCheckBoxFinish4.Checked then
    begin
      FlatMaskEditEndDate4.Text:=Copy(sNow,1,10);
      FlatMaskEditEndTime4.Text:=Copy(sNow,12,5);
    end
  else
    begin
      FlatMaskEditEndDate4.Text:='';
      FlatMaskEditEndTime4.Text:='';
    end;
end;

procedure TFrm_GroupIndiServ.FlatCheckBoxFinish2Click(Sender: TObject);
var
  sNow:String;
begin
  sNow:=Fun_GetDate(0,2);
  if not FlatCheckBoxFinish2.Checked then
    begin
      FlatMaskEditEndDate2.Text:=Copy(sNow,1,10);
      FlatMaskEditEndTime2.Text:=Copy(sNow,12,5);
    end
  else
    begin
      FlatMaskEditEndDate2.Text:='';
      FlatMaskEditEndTime2.Text:='';
    end;
end;

procedure TFrm_GroupIndiServ.PageControlServerLogChanging(Sender: TObject;
  var AllowChange: Boolean);
begin
  if sEditFlag<>'' then
  begin
    Application.MessageBox('正在编辑数据，请保存或取消后切换。','提示',MB_OK+MB_ICONINFORMATION);
    AllowChange:=False;
  end;
end;

procedure TFrm_GroupIndiServ.FlatButtonQuery1Click(Sender: TObject);
begin
    if QueryGroupInfo.Active then QueryGroupInfo.Close;
    if QueryService.Active then QueryService.Close;
    if Trim(FlatEditObjectName1.Text)='' then
    begin
      Application.MessageBox('集团名称不能为空！','提示',MB_OK+MB_ICONINFORMATION);
      FlatEditObjectName1.Enabled:=True;
      FlatEditObjectName1.SetFocus;
      FlatButtonCancel1.Enabled:=True;
      Exit;
    end;
    with QueryGroupInfo do
    begin
     if Active then Close;
     SQL.Clear;
     SQL.Add('Select JTYHDM,JTYHMC,ADDR,LXR,SID,BE_G_DATE,GH ');
     SQL.Add('From (Select JTYHDM,JTYHMC,ADDR,LXR,SID,BE_G_DATE,JTBZ,GH From T_F_GroupInfo Where CityNo=:PS_CityNo And OFF_NO_HOME=:PS_JX And JTBZ=0) ');
     SQL.Add('Where JTYHMC Like ''%'+Trim(FlatEditObjectName1.Text)+'%'' ');
     if JBDM=4 then
       SQL.Add('And GH='''+GH+'''');
     ParamByName('PS_CityNo').AsString:=Fun_GetCity(FlatComboBoxCityName1,'',1);
     ParamByName('PS_JX').AsString:=Fun_GetCounty(FlatComboBoxJX1,'','',1);
     Open;
    end;
    if Trim(QueryGroupInfo.FieldByName('JTYHDM').AsString)='' then
    begin
      Application.MessageBox('对不起，没有符合条件的集团！','提示',MB_OK+MB_ICONINFORMATION);
      FlatEditObjectName1.SetFocus;
      FlatButtonCancel1.Enabled:=True;
      Exit;
    end;

end;

procedure TFrm_GroupIndiServ.FlatButtonQuery2Click(Sender: TObject);
begin
    if QueryGroupInfo2.Active then QueryGroupInfo2.Close;
    if Trim(FlatEditObjectName22.Text)='' then
    begin
      Application.MessageBox('集团名称不能为空！','提示',MB_OK+MB_ICONINFORMATION);
      FlatEditObjectName22.Enabled:=True;
      FlatEditObjectName22.SetFocus;
      //PL_ContrButt(1,False);
      FlatButtonCancel2.Enabled:=True;
      Exit;
    end;
    with QueryGroupInfo2 do
    begin
     if Active then Close;
     SQL.Clear;
     SQL.Add('Select JTYHDM,JTYHMC,ADDR,LXR,SID,BE_G_DATE,GH ');
     SQL.Add('From (Select JTYHDM,JTYHMC,ADDR,LXR,SID,BE_G_DATE,JTBZ,GH From T_F_GroupInfo Where CityNo=:PS_CityNo And OFF_NO_HOME=:PS_JX And JTBZ=0) ');
     SQL.Add('Where JTYHMC Like ''%'+Trim(FlatEditObjectName22.Text)+'%'' ');
     if JBDM=4 then
       SQL.Add(' And GH='''+GH+'''');
     ParamByName('PS_CityNo').AsString:=Fun_GetCity(FlatComboBoxCityName2,'',1);
     ParamByName('PS_JX').AsString:=Fun_GetCounty(FlatComboBoxJX2,'','',1);
     Open;
    end;
    if Trim(QueryGroupInfo2.FieldByName('JTYHDM').AsString)='' then
    begin
      Application.MessageBox('对不起，没有符合条件的集团！','提示',MB_OK+MB_ICONINFORMATION);
      FlatEditObjectName22.SetFocus;
      //PL_ContrButt(1,False);
      FlatButtonCancel2.Enabled:=True;
      Exit;
    end;
end;

procedure TFrm_GroupIndiServ.FlatComboBoxCityChange(Sender: TObject);
begin
   Fun_GetCounty(FlatComboBoxCounty,'所有',FlatComboBoxCity.Text,0,PS_HomeName);
end;

end.
上一页 1 2 34
💿 文件大小 5793 K
👤 上传用户 jjkk778
📂 所属分类邮电通讯系统
🏷️ 相关标签

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

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