unit_archivesgroupinfo_2.pas

delphi开发的中国移动大客户管理系统,后台数据库为oracle

end;

procedure TForm_ArchivesGroupInfo.set_color(flag:Tcolor);
begin
       FlatEditsid.colorflat:=flag;
       FlatEditJTYHMC.colorflat:=flag;
       FlatEditLXR.colorflat:=flag;
       FlatEditADDR.colorflat:=flag;
       FlatEditBGN_YH.colorflat:=flag;
       FlatEditEND_YH.colorflat:=flag;
       FlatEditYHBL.colorflat:=flag;
       FlatEditVIP_NO.colorflat:=flag;
       FlatEditPASSWORD.colorflat:=flag;
       FlatEditVPNID.colorflat:=flag;
       FlatEditVPNJG.colorflat:=flag;
       DateTimePicker_VPNBEGINDATA.color:=flag;
       DateTimePicker_VPNENDDATA.color:=flag;
       DateTimePickerBe_G_Date.color:=flag;
       DateTimePickerEn_G_Date.color:=flag;
       FlatMemoJTQTJJ.colorflat:=flag;
       FlatComboBoxgh1.color:=flag;
       FlatComboBoxJTBZ.color:=flag;
       FlatComboBoxJTLB.color:=flag ;
       FlatComboBoxGroupFlag.color:=flag;
       FlatComboBoxHYDM.color:=flag;
       FlatEditFax.ColorFlat:=Flag;
       FlatEditPostCode.ColorFlat:=Flag;
       if PS_CityNo='590' then
           FlatComboBoxCityNo.color:=flag
       else
           FlatComboBoxCityNo.color:=clmenu;
       FlatComboBoxJX.color:=flag ;
       FlatComboBoxYHGH.color:=flag ;
       FlatComboBoxQID.color:=flag;

end;
procedure TForm_ArchivesGroupInfo.set_enable(flag:boolean);
begin
       FlatEditsid.enabled:=flag;
       FlatEditJTYHMC.enabled:=flag;
       FlatEditLXR.enabled:=flag;
       FlatEditFax.Enabled:=flag;
       FlatEditPostCode.Enabled:=flag;
       FlatEditADDR.enabled:=flag;
       FlatEditBGN_YH.enabled:=flag;
       FlatEditEND_YH.enabled:=flag;
       FlatEditYHBL.enabled:=flag;
       FlatEditVIP_NO.enabled:=flag;
       FlatEditPASSWORD.enabled:=flag;
       FlatEditVPNID.enabled:=flag;
       FlatEditVPNJG.enabled:=flag;
       DateTimePicker_VPNBEGINDATA.enabled:=flag;
       DateTimePicker_VPNENDDATA.enabled:=flag;
       DateTimePickerBe_G_Date.enabled:=flag;
       DateTimePickerEn_G_Date.enabled:=flag;
       FlatComboBoxgh1.enabled:=flag;
       FlatComboBoxJTBZ.enabled:=flag;
       FlatComboBoxJTLB.enabled:=flag ;
       FlatComboBoxGroupFlag.enabled:=flag;
       FlatComboBoxHYDM.enabled:=flag;
       FlatMemoJTQTJJ.Enabled:=flag;
       if PS_CityNo='590' then
           FlatComboBoxCityNo.enabled:=flag
       else
           FlatComboBoxCityNo.enabled:=false;
       FlatComboBoxJX.enabled:=flag ;
       FlatComboBoxYHGH.enabled:=flag ;
       FlatComboBoxQID.enabled:=flag;
end;

procedure TForm_ArchivesGroupInfo.insert_jtyh;
//var
//i:integer;
begin
   dm_main.Databasedh.StartTransaction;
   with querytemp do
   begin
    if active then  close;
    sql.clear;
    sql.add('insert into t_f_groupinfo(SID,JTYHDM,JTYHMC,LXR,ADDR,FAX,POSTCODE,BGN_YH,END_YH,YHBL,VIP_NO,PASSWORD,VPNID,VPNJG,JTQTJJ,JTBZ,GROUPFLAG,JTLB,HYDM,QID,CITYNO,JX,YHGH,GH,VPNBEGINDATA,VPNENDDATA,BE_G_DATE,EN_G_DATE)');
    sql.add(' values(:SID,:JTYHDM,:JTYHMC,:LXR,:ADDR,:FAX,:POSTCODE,:BGN_YH,:END_YH,:YHBL,:VIP_NO,:PASSWORD,:VPNID,:VPNJG,:JTQTJJ,:JTBZ,:GROUPFLAG,:JTLB,:HYDM,:QID,:CITYNO,:JX,:YHGH,:GH,');
    sql.add(' :VPNBEGINDATA,:VPNENDDATA,:BE_G_DATE,:EN_G_DATE)');
    parambyname('SID').asstring:=FlatEditsid.text;
    parambyname('JTYHDM').asstring:=FlatEditjtyhdm.text;
    parambyname('JTYHMC').asstring:=FlatEditJTYHMC.text;
    parambyname('LXR').asstring:=FlatEditLXR.text;
    parambyname('ADDR').asstring:=FlatEditADDR.text;
    parambyname('FAX').asstring:=FlatEditFax.text;
    parambyname('POSTCODE').asstring:=FlatEditPostCode.text;
    If FlatEditBGN_YH.Text<>'' Then
       parambyname('BGN_YH').asinteger:=strtoint(FlatEditBGN_YH.text)
    Else
       parambyname('BGN_YH').asinteger:=0;
    If FlatEditEND_YH.Text<>'' Then
       parambyname('END_YH').asinteger:=strtoint(FlatEditEND_YH.text)
    Else
       parambyname('END_YH').asinteger:=0;
    If FlatEditYHBL.Text<>'' Then
       parambyname('YHBL').asinteger:=strtoint(FlatEditYHBL.text)
    Else
       parambyname('YHBL').asinteger:=0;
    parambyname('VIP_NO').asstring:=FlatEditVIP_NO.TEXT;
    parambyname('PASSWORD').asstring:=FlatEditPASSWORD.text;
    If FlatEditVPNID.Text<>'' Then
       parambyname('VPNID').AsInteger:=StrToInt(FlatEditVPNID.text)
    Else
       parambyname('VPNID').AsInteger:=0;
    parambyname('VPNJG').asinteger:=strtoint(FlatEditVPNJG.text);

    if DateTimePicker_VPNBEGINDATA.Checked then
      parambyname('VPNBEGINDATA').AsDate:=DateTimePicker_VPNBEGINDATA.Date
    else
      parambyname('VPNBEGINDATA').AsString := '';
    if DateTimePicker_VPNENDDATA.Checked then
      parambyname('VPNENDDATA').AsDate:=DateTimePicker_VPNENDDATA.Date
    else
      parambyname('VPNENDDATA').AsString:='';

    parambyname('BE_G_DATE').AsDate:=DateTimePickerBe_G_Date.Date;

    if DateTimePickerEn_G_Date.Checked then
      parambyname('EN_G_DATE').AsDate:=DateTimePickerEn_G_Date.Date
    else
      parambyname('EN_G_DATE').AsString := '';
    parambyname('JTQTJJ').asstring:=FlatMemoJTQTJJ.lines.text;
    parambyname('JTBZ').asinteger:=FlatComboBoxJTBZ.itemindex;
    parambyname('GROUPFLAG').asinteger:=FlatComboBoxGroupFlag.itemindex;
    parambyname('GH').asstring:=Copy(FlatComboBoxgh1.Text,1,Pos(':',FlatComboBoxgh1.Text)-1);
    parambyname('YHGH').asstring:=Copy(FlatComboBoxyhgh.Text,1,Pos(':',FlatComboBoxyhgh.Text)-1);//Fun_GetCodeName(FlatComboBoxYHGH);
    parambyname('JTLB').asstring:=trim(Fun_GetCodeName(FlatComboBoxJTLB));
    parambyname('HYDM').asstring:=trim(Fun_GetCodeName(FlatComboBoxHYDM));
    parambyname('CITYNO').asstring:=trim(Fun_GetCity(FlatComboBoxCITYNO,'',1));
    parambyname('JX').asstring:=trim(Fun_GetCounty(FlatComboBoxJX,'',FlatComboBoxCITYNO.text,1));
    parambyname('QID').asstring:=trim(Fun_GetArea(FlatComboBoxQID,'',FlatComboBoxCITYNO.text,FlatComboBoxJX.text,1));
    EXECSQL;
    dm_main.Databasedh.Commit;
  end;
end;

procedure TForm_ArchivesGroupInfo.update_jtyh;
//var
//i:integer;
begin
   dm_main.Databasedh.StartTransaction;
   PL_JTYHDM := '';
   with querytemp do
   begin
    if active then  close;
     sql.clear;
    sql.add('update t_f_groupinfo set SID=:SID,JTYHMC=:JTYHMC,LXR=:LXR,ADDR=:ADDR,BGN_YH=:BGN_YH,');
    Sql.Add('END_YH=:END_YH,YHBL=:YHBL,VIP_NO=:VIP_NO,PASSWORD=:PASSWORD,VPNID=:VPNID,VPNJG=:VPNJG,');
    Sql.Add('JTQTJJ=:JTQTJJ,JTBZ=:JTBZ,GROUPFLAG=:GROUPFLAG,FAX=:FAX,POSTCODE=:POSTCODE,');
    sql.add('JTLB=:JTLB,HYDM=:HYDM,QID=:QID,CITYNO=:CITYNO,JX=:JX,YHGH=:YHGH,GH=:GH,VPNBEGINDATA=:VPNBEGINDATA,VPNENDDATA=:VPNENDDATA,BE_G_DATE=:BE_G_DATE,');
    sql.Add('EN_G_DATE=:EN_G_DATE');
    sql.add(' where jtyhdm=:jtyhdm');
    parambyname('SID').asstring:=FlatEditsid.text;
    parambyname('JTYHDM').asstring:=FlatEditjtyhdm.text;
    PL_JTYHDM := FlatEditjtyhdm.text;
    parambyname('JTYHMC').asstring:=FlatEditJTYHMC.text;
    parambyname('LXR').asstring:=FlatEditLXR.text;
    parambyname('ADDR').asstring:=FlatEditADDR.text;
    parambyname('FAX').asstring:=FlatEditFax.Text;
    parambyname('POSTCODE').asstring:=FlatEditPostCode.Text;
    If FlatEditBGN_YH.Text<>'' Then
       parambyname('BGN_YH').asinteger:=strtoint(FlatEditBGN_YH.text)
    Else
       parambyname('BGN_YH').asinteger:=0;
    If FlatEditEND_YH.Text<>'' Then
       parambyname('END_YH').asinteger:=strtoint(FlatEditEND_YH.text)
    Else
       parambyname('END_YH').asinteger:=0;
    If FlatEditYHBL.Text<>'' Then
       parambyname('YHBL').asinteger:=strtoint(FlatEditYHBL.text)
    Else
       parambyname('YHBL').asinteger:=0;
    parambyname('VIP_NO').asstring:=FlatEditVIP_NO.TEXT;
    parambyname('PASSWORD').asstring:=FlatEditPASSWORD.text;
    If FlatEditVPNID.Text<>'' Then
      parambyname('VPNID').AsInteger:=StrToInt(FlatEditVPNID.text)
    Else
      parambyname('VPNID').AsInteger:=0;
    If FlatEditVPNJG.Text<>'' Then
       parambyname('VPNJG').asinteger:=strtoint(FlatEditVPNJG.text)
    Else
       parambyname('VPNJG').asinteger:=0;

    if DateTimePicker_VPNBEGINDATA.Checked then
      parambyname('VPNBEGINDATA').AsDate:=DateTimePicker_VPNBEGINDATA.Date
    else
      parambyname('VPNBEGINDATA').AsString := '';
    if DateTimePicker_VPNENDDATA.Checked then
      parambyname('VPNENDDATA').AsDate:=DateTimePicker_VPNENDDATA.Date
    else
      parambyname('VPNENDDATA').AsString:='';

    parambyname('BE_G_DATE').AsDate:=DateTimePickerBe_G_Date.Date;
    if DateTimePickerEn_G_Date.Checked then
      parambyname('EN_G_DATE').AsDate:=DateTimePickerEn_G_Date.Date
    else
      parambyname('EN_G_DATE').AsString := '';

    parambyname('JTQTJJ').AsString:=FlatMemoJTQTJJ.lines.text;
    parambyname('JTBZ').AsInteger:=FlatComboBoxJTBZ.itemindex;
    parambyname('GROUPFLAG').asinteger:=FlatComboBoxGroupFlag.itemindex;
    parambyname('GH').asstring:=Copy(FlatComboBoxgh1.Text,1,Pos(':',FlatComboBoxgh1.Text)-1);
    parambyname('YHGH').asstring:=Copy(FlatComboBoxyhgh.Text,1,Pos(':',FlatComboBoxyhgh.Text)-1);;
    parambyname('JTLB').asstring:=trim(Fun_GetCodeName(FlatComboBoxJTLB));
    parambyname('HYDM').asstring:=trim(Fun_GetCodeName(FlatComboBoxHYDM));
    parambyname('CITYNO').asstring:=trim(Fun_GetCity(FlatComboBoxCITYNO,'',1));
    parambyname('JX').asstring:=trim(Fun_GetCounty(FlatComboBoxJX,'',FlatComboBoxCITYNO.text,1));
    parambyname('QID').asstring:=trim(Fun_GetArea(FlatComboBoxQID,'',FlatComboBoxCITYNO.text,FlatComboBoxJX.text,1));
    EXECSQL;
       dm_main.Databasedh.commit;
  end;
end;


procedure TForm_ArchivesGroupInfo.select_jtyh;
var
i:integer;
begin
   with queryjtyh do
     Begin
//       If queryjtyh.RecordCount>0 Then
       If Not queryjtyh.IsEmpty Then
         begin
           FlatEditsid.text:=fieldbyname('SID').asstring;
           FlatEditjtyhdm.text:=fieldbyname('JTYHDM').asstring;
           FlatEditJTYHMC.text:=fieldbyname('JTYHMC').asstring;
           FlatEditLXR.text:=fieldbyname('LXR').asstring;
           FlatEditADDR.text:=fieldbyname('ADDR').asstring;
           FlatEditBGN_YH.text:=fieldbyname('BGN_YH').asstring;
           FlatEditEND_YH.text:=fieldbyname('END_YH').asstring;
           FlatEditYHBL.text:=fieldbyname('YHBL').asstring;
           FlatEditVIP_NO.TEXT:=fieldbyname('VIP_NO').asstring;
           FlatEditPASSWORD.text:=fieldbyname('PASSWORD').asstring;
           FlatEditVPNID.text:=fieldbyname('VPNID').asstring;
           FlatEditVPNJG.text:=fieldbyname('VPNJG').asstring;
           if fieldbyname('VPNBEGINDATA').AsString <> '' then
             DateTimePicker_VPNBEGINDATA.Date:=fieldbyname('VPNBEGINDATA').AsDateTime
           else
             DateTimePicker_VPNBEGINDATA.Checked := False;
           if fieldbyname('VPNENDDATA').AsString <> '' then
             DateTimePicker_VPNENDDATA.Date:=fieldbyname('VPNENDDATA').AsDateTime
           else
             DateTimePicker_VPNENDDATA.Checked := False;

           If FieldByName('Be_G_Date').AsString<>'' Then
              DateTimePickerBe_G_Date.Date:=fieldbyname('Be_G_Date').AsDateTime
           Else
              DateTimePickerBe_G_Date.Date:=Date;


           if fieldbyname('En_G_Date').AsString <> '' then
             DateTimePickerEn_G_Date.Date:=fieldbyname('En_G_Date').AsDateTime
           else
             DateTimePickerEn_G_Date.Checked := False;
           FlatEditFax.Text:=FieldByName('FAX').AsString;
           FlatEditPostCode.Text:=FieldByName('POSTCODE').AsString;
           FlatMemoJTQTJJ.lines.clear;
           FlatMemoJTQTJJ.lines.add(fieldbyname('JTQTJJ').asstring);
           FlatComboBoxJTBZ.itemindex:=fieldbyname('JTBZ').asinteger;
           FlatComboBoxGroupFlag.itemindex:=fieldbyname('GROUPFLAG').asinteger;
           i:=0; //工号。
           while (i<FlatComboBoxgh1.items.Count) do
            begin
                if trim(Copy(FlatComboBoxGH1.Items[i],1,Pos(':',FlatComboBoxGH1.Items[i])-1))=trim(fieldbyname('GH').asstring) then
           begin
              FlatComboBoxgh1.ItemIndex:=i;
              i:=FlatComboBoxgh1.items.Count+1;
           end;
           i:=i+1;
           if (i=flatComboBoxgh1.items.Count) then FlatComboBoxgh1.items.add(fieldbyname('GH').asstring);
        end;
        i:=0; //指定优惠工号
        while (i<FlatComboBoxyhgh.items.Count) do
        begin
          if trim(Copy(FlatComboBoxyhgh.Items[i],1,Pos(':',FlatComboBoxyhgh.Items[i])-1))=trim(fieldbyname('YHGH').asstring) then
          begin
            FlatComboBoxYHGH.ItemIndex:=i;
            i:=FlatComboBoxyhgh.items.Count+1;
          end;
          i:=i+1;
          if (i=flatComboBoxYHGH.items.Count) then FlatComboBoxYHGH.items.add(fieldbyname('YHGH').asstring);
        end;

       i:=0;//集团类别
       while (i<FlatComboBoxJTLB.items.Count) do
        begin
           FlatComboBoxJTLB.ItemIndex:=i;
           if trim(Fun_GetCodeName(FlatComboBoxJTLB))=fieldbyname('JTLB').asstring then i:=FlatComboBoxjtlb.items.Count+1;
           i:=i+1;
        end;
       i:=0; //行业代码
       while (i<FlatComboBoxHYDM.Items.Count) do
         begin
           FlatComboBoxHYDM.ItemIndex:=i;
           if trim(Fun_GetCodeName(FlatComboBoxHYDM))=fieldbyname('HYDM').asstring then i:=FlatComboBoxhydm.items.Count+1;
           i:=i+1;
         end;
       i:=0;//地市
         while (i<FlatComboBoxCITYNO.Items.Count) do
         begin
            FlatComboBoxCITYNO.ItemIndex:=i;
            if trim(Fun_GetCity(FlatComboBoxCITYNO,'',1))=fieldbyname('CITYNO').asstring then i:=FlatComboBoxCITYNO.items.Count+1;
            i:=i+1;
         end;
       i:=0;//局向
         while (i<FlatComboBoxjx.Items.Count) do
           begin
            FlatComboBoxjx.ItemIndex:=i;
            if trim(Fun_GetCounty(FlatComboBoxJX,'',FlatComboBoxCITYNO.text,1))=fieldbyname('JX').asstring then i:=FlatComboBoxjx.items.Count+1;
            i:=i+1;
          end;
       i:=0;//区域
         while (i<FlatComboBoxQID.Items.Count) do
           begin
             FlatComboBoxQID.ItemIndex:=i;
             if trim(Fun_GetArea(FlatComboBoxQID,'',FlatComboBoxCITYNO.text,FlatComboBoxJX.text,1))=fieldbyname('QID').asstring then i:=FlatComboBoxqid.items.Count+1;
             i:=i+1;
          end;
     end;
   End;  
end;

procedure TForm_ArchivesGroupInfo.Co_Query_CITYCODEChange(Sender: TObject);
begin
Fun_GetCounty(Co_Query_OFF_NO_HOME,'',Co_Query_CITYCODE.Text,0,PS_HomeName);
end;

procedure TForm_ArchivesGroupInfo.Co_Query_OFF_NO_HOMEChange(Sender: TObject);
begin
Fun_GetArea(FlatComboBoxarea1,'所有',Co_Query_CITYCODE.Text,Co_Query_OFF_NO_HOME.text);
Fun_GetManager(FlatComboBoxgh,'所有',Co_Query_CITYCODE.Text,Co_Query_OFF_NO_HOME.text);
FlatComboBoxarea1.ItemIndex:=0;
FlatComboBoxgh.ItemIndex:=0;
end;

procedure TForm_ArchivesGroupInfo.FlatButton1Click(Sender: TObject);

begin
with queryjtyh do
begin
if Active then close;
    SQL.clear;
    sql.add(' SELECT JTYHDM,JTYHMC,SID,GH,JTLB,HYDM,LXR,JTQTJJ,CITYNO,JX,ADDR,BGN_YH,END_YH,YHBL,YHGH,QID,VIP_NO,PASSWORD,VPNID,VPNJG,GROUPFLAG,JTBZ,DESCIPTION,FAX,POSTCODE,');
    sql.add('to_char(VPNBEGINDATA,''yyyy-mm-dd'') VPNBEGINDATA,to_char(VPNENDDATA,''yyyy-mm-dd'') VPNENDDATA,to_char(BE_G_DATE,''yyyy-mm-dd'') BE_G_DATE,to_char(EN_G_DATE,''yyyy-mm-dd'') EN_G_DATE ');
    sql.add(' FROM T_F_GROUPINFO');
    sql.add(' WHERE CITYNO=:CITYNO and JX=:JX ');
    parambyname('CITYNO').asstring:=Fun_GetCity(Co_Query_CITYCODE,'',1);
    parambyname('JX').asstring:=Fun_GetCounty(Co_Query_OFF_NO_HOME,'',Co_Query_CITYCODE.text,1);