jtyh.pas

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

       FlatComboBoxgh1.color:=flag;
       FlatComboBoxJTBZ.color:=flag;    
       FlatComboBoxJTLB.color:=flag ;     
       FlatComboBoxGroupFlag.color:=flag;
       FlatComboBoxHYDM.color:=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;
       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;
       FlatEditVPNBEGINDATA.enabled:=flag;
       FlatEditVPNENDDATA.enabled:=flag;
       FlatEditBe_G_Date.enabled:=flag;
       FlatEditEn_G_Date.enabled:=flag;
       //FlatMemoDesciption.enabled:=flag;
       //FlatMemoJTQTJJ.enabled:=flag;
       FlatComboBoxgh1.enabled:=flag;
       FlatComboBoxJTBZ.enabled:=flag;
       FlatComboBoxJTLB.enabled:=flag ;
       FlatComboBoxGroupFlag.enabled:=flag;
       FlatComboBoxHYDM.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

   with querytemp do
   begin
    if active then  close;
    sql.clear;
    sql.add('insert into t_f_groupinfo(SID,JTYHDM,JTYHMC,LXR,ADDR,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,:BGN_YH,:END_YH,:YHBL,:VIP_NO,:PASSWORD,:VPNID,:VPNJG,:JTQTJJ,:JTBZ,:GROUPFLAG,:JTLB,:HYDM,:QID,:CITYNO,:JX,:YHGH,:GH,');
    sql.add(' TO_DATE(:VPNBEGINDATA,''YYYY-MM-DD''),TO_DATE(:VPNENDDATA,''YYYY-MM-DD''),TO_DATE(:BE_G_DATE,''YYYY-MM-DD''),TO_DATE(:EN_G_DATE,''YYYY-MM-DD''))');
    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('BGN_YH').asinteger:=strtoint(FlatEditBGN_YH.text);
    parambyname('END_YH').asinteger:=strtoint(FlatEditEND_YH.text);
    parambyname('YHBL').asinteger:=strtoint(FlatEditYHBL.text);
    parambyname('VIP_NO').asstring:=FlatEditVIP_NO.TEXT;
    parambyname('PASSWORD').asstring:=FlatEditPASSWORD.text;
    parambyname('VPNID').asstring:=FlatEditVPNID.text;
    parambyname('VPNJG').asinteger:=strtoint(FlatEditVPNJG.text);
    if length(trim(FlatEditVPNBEGINDATA.text))=10 then
        parambyname('VPNBEGINDATA').asstring:=trim(FlatEditVPNBEGINDATA.text)
    else
        parambyname('VPNBEGINDATA').asstring:='1901-01-01';
    if length(trim(FlatEditVPNENDDATA.text))=10 then
        parambyname('VPNENDDATA').asstring:=trim(FlatEditVPNENDDATA.text)
    else
        parambyname('VPNENDDATA').asstring:='1901-01-01';
    if length(trim(FlatEditBe_G_Date.text))=10 then
        parambyname('BE_G_DATE').asstring:=trim(FlatEditBe_G_Date.text)
    else
        parambyname('BE_G_DATE').asstring:='1901-01-01';
    if length(trim(FlatEditBe_G_Date.text))=10 then
        parambyname('EN_G_DATE').asstring:=trim(FlatEditEn_G_Date.text)
    else
        parambyname('EN_G_DATE').asstring:='1901-01-01';
    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;
  end;
end;

procedure TForm_ArchivesGroupInfo.update_jtyh;
var
i:integer;
begin
   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,END_YH=:END_YH,YHBL=:YHBL,VIP_NO=:VIP_NO,PASSWORD=:PASSWORD,VPNID=:VPNID,VPNJG=:VPNJG,JTQTJJ=:JTQTJJ,JTBZ=:JTBZ,GROUPFLAG=:GROUPFLAG,');
    sql.add(' JTLB=:JTLB,HYDM=:HYDM,QID=:QID,CITYNO=:CITYNO,JX=:JX,YHGH=:YHGH,GH=:GH,VPNBEGINDATA=TO_DATE(:VPNBEGINDATA,''YYYY-MM-DD''),VPNENDDATA=TO_DATE(:VPNENDDATA,''YYYY-MM-DD''),BE_G_DATE=TO_DATE(:BE_G_DATE,''YYYY-MM-DD''),EN_G_DATE=TO_DATE(:EN_G_DATE,''YYYY-MM-DD'')');
    sql.add(' where jtyhdm=:jtyhdm');
    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('BGN_YH').asinteger:=strtoint(FlatEditBGN_YH.text);
    parambyname('END_YH').asinteger:=strtoint(FlatEditEND_YH.text);
    parambyname('YHBL').asinteger:=strtoint(FlatEditYHBL.text);
    parambyname('VIP_NO').asstring:=FlatEditVIP_NO.TEXT;
    parambyname('PASSWORD').asstring:=FlatEditPASSWORD.text;
    parambyname('VPNID').asstring:=FlatEditVPNID.text;
    parambyname('VPNJG').asinteger:=strtoint(FlatEditVPNJG.text);
    if length(trim(FlatEditVPNBEGINDATA.text))=10 then
        parambyname('VPNBEGINDATA').asstring:=trim(FlatEditVPNBEGINDATA.text)
    else
        parambyname('VPNBEGINDATA').asstring:='1901-01-01';
    if length(trim(FlatEditVPNENDDATA.text))=10 then
        parambyname('VPNENDDATA').asstring:=trim(FlatEditVPNENDDATA.text)
    else
        parambyname('VPNENDDATA').asstring:='1901-01-01';
    if length(trim(FlatEditBe_G_Date.text))=10 then
        parambyname('BE_G_DATE').asstring:=trim(FlatEditBe_G_Date.text)
    else
        parambyname('BE_G_DATE').asstring:='1901-01-01';
    if length(trim(FlatEditBe_G_Date.text))=10 then
        parambyname('EN_G_DATE').asstring:=trim(FlatEditEn_G_Date.text)
    else
        parambyname('EN_G_DATE').asstring:='1901-01-01';
    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;
  end;
end;
procedure TForm_ArchivesGroupInfo.select_jtyh;
var
i:integer;
begin

   with queryjtyh do
   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;
    FlatEditVPNBEGINDATA.text:=fieldbyname('VPNBEGINDATA').asstring;
    FlatEditVPNENDDATA.text:=fieldbyname('VPNENDDATA').asstring;
    FlatEditBe_G_Date.text:=fieldbyname('Be_G_Date').asstring;
    FlatEditEn_G_Date.text:=fieldbyname('En_G_Date').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;

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,');
    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);
    if trim(FlatComboBoxarea1.text)<>'所有' then
    begin
       sql.add(' and QID=:QID ');
       parambyname('QID').asstring:=Fun_GetArea(FlatComboBoxarea1,'',Co_Query_CITYCODE.text,Co_Query_OFF_NO_HOME.text,1);
    end;

    if trim(FlatComboBoxgh.text)<>'所有' then
    begin
       sql.add(' and GH=:GH');
       parambyname('GH').asstring:=copy(FlatComboBoxgh.text,1,pos(':',FlatComboBoxgh.text)-1);
    end;

    if (flatcheckbox1.checked) then
    begin
       sql.add('  and to_char(BE_G_DATE,''yyyy-mm-dd'')>=:BE_G_DATE1 and to_char(BE_G_DATE,''yyyy-mm-dd'')<=:Be_G_DATE2');
       parambyname('BE_G_DATE1').asstring:=FlatEditbg.text;
       parambyname('BE_G_DATE2').asstring:=FlatEditen.text;
    end;
   if  trim(FlatComboBoxhy.text)<>'所有' then
      begin
        sql.add(' and HYDM=:HYDM');
        parambyname('HYDM').asstring:=Fun_GetCodeName(FlatComboBoxhy);
      end;
     open;
end;
if queryjtyh.RecordCount>0 then
   begin
    Btn_Add.enabled:=true;
    Btn_Modify.enabled:=true;
    Btn_Delete.enabled:=true;
    Btn_Save.enabled:=false;
    Btn_Cancel.enabled:=false;
   end
else
   begin
    clearin;
    Btn_Add.enabled:=true;
    Btn_Modify.enabled:=false;
    Btn_Delete.enabled:=false;
    Btn_Save.enabled:=false;
    Btn_Cancel.enabled:=false;
   end;
   Label34.Caption:=INTTOSTR(queryjtyh.RecordCount);
end;

procedure TForm_ArchivesGroupInfo.Btn_ModifyClick(Sender: TObject);
begin
PageControl1.ActivePageIndex:=0;
Btn_Add.enabled:=false;
Btn_Modify.enabled:=false;
Btn_Delete.enabled:=false;
Btn_Save.enabled:=true;
Btn_Cancel.enabled:=true;
if not queryjtyh.active then
   begin
      showmessage('没有记录可更改！');
      exit;
   end;
do_number:='update';
set_enable(true);
set_color(clWindow);
end;

procedure TForm_ArchivesGroupInfo.Btn_SaveClick(Sender: TObject);
begin


if trim(FlatEditJTYHMC.text)='' then
begin
  showmessage('请先输入集团名称后再保存！');
  exit;
end;
if  trim(FlatComboBoxCityNo.Text)='' then
begin
  showmessage('请先选择地市后再保存！');
  exit;