jtyh.pas

一个不错的源程序DELPHI开发的,功能比较好的客户管理系统

end;

if trim(FlatComboBoxJX.Text)='' then
begin
  showmessage('请先选择局向后再保存！');
  exit;
end;
if trim(FlatComboBoxQID.Text)='' then
begin
  showmessage('请先选择区域后再保存！');
  exit;
end;
if trim(FlatComboBoxJTLB.text)='' then
begin
  showmessage('请先选择集团类别后再保存！');
  exit;
end;
if trim(FlatComboBoxHYDM.text)='' then
begin
   showmessage('请先选择行业代码后再保存！');
     exit;
end;
if trim(FlatEditVPNID.text)='' then FlatEditVPNID.text:='0';
if trim(FlatEditVPNID.text)='' then FlatEditVPNID.text:='0';
if trim(FlatEditVPNJG.text)='' then FlatEditVPNJG.text:='0';
if trim(FlatEditBGN_YH.text)='' then FlatEditBGN_YH.text:='0';
if trim(FlatEditEND_YH.text)='' then FlatEditEND_YH.text:='0';
if trim(FlatEditYHBL.text)='' then  FlatEditYHBL.text:='0';

if do_number='insert' then
begin
   insert_jtyh;
end;
if do_number='update' then
begin
   update_jtyh;
end;
set_enable(false);
set_color(clmenu);
PageControl1.ActivePageIndex:=0;
Btn_Add.enabled:=true;
Btn_Modify.enabled:=true;
Btn_Delete.enabled:=true;
Btn_Save.enabled:=false;
Btn_Cancel.enabled:=false;
queryjtyh.close;
queryjtyh.open;
end;

procedure TForm_ArchivesGroupInfo.Btn_ExitClick(Sender: TObject);
begin
set_enable(false);
set_color(clmenu);
close;
end;

procedure TForm_ArchivesGroupInfo.FlatComboBoxCityNoChange(Sender: TObject);
begin
Fun_GetCounty(FlatComboBoxJX,'',FlatComboBoxCityNo.Text,0,PS_HomeName);
end;

procedure TForm_ArchivesGroupInfo.FlatComboBoxJXChange(Sender: TObject);
begin
Fun_GetArea(FlatComboBoxQID,'',FlatComboBoxCityNo.Text,FlatComboBoxJX.text);
Fun_GetManager(FlatComboBoxgh1,'',FlatComboBoxCityNo.Text,FlatComboBoxJX.text);
Fun_GetManager(FlatComboBoxyhgh,'',FlatComboBoxCityNo.Text,FlatComboBoxJX.text);
FlatComboBoxgh1.ItemIndex:=0;
FlatComboBoxqid.ItemIndex:=0;
end;

procedure TForm_ArchivesGroupInfo.Btn_AddClick(Sender: TObject);
begin
PageControl1.ActivePageIndex:=0;
clearin;
Btn_Add.enabled:=false;
Btn_Modify.enabled:=false;
Btn_Delete.enabled:=false;
Btn_Save.enabled:=true;
Btn_Cancel.enabled:=true;
if querytemp.active then querytemp.close;
   querytemp.sql.clear;
   querytemp.sql.add('select max(jtyhdm)+1 maxjtyhdm from T_f_groupinfo');
   querytemp.open;
   if querytemp.recordcount>0 then
      FlatEditjtyhdm.text:=querytemp.fieldbyname('maxjtyhdm').asstring
   else
      FlatEditjtyhdm.text:='101';
do_number:='insert';
showmessage('请输入集团资料！');
FlatComboBoxJTLB.itemindex:=0;
FlatComboBoxHYDM.itemindex:=0;
set_enable(true);
set_color(clWindow);
queryjtyh.close;
queryjtyh.open;      
end;

procedure TForm_ArchivesGroupInfo.DataSourcejtyhDataChange(Sender: TObject; Field: TField);
begin
PageControl1.ActivePageIndex:=0;
if queryjtyh.RecordCount>0 then
    select_jtyh;
end;

procedure TForm_ArchivesGroupInfo.Btn_DeleteClick(Sender: TObject);
begin
PageControl1.ActivePageIndex:=0;
if not queryjtyh.Active then exit;
if (Application.MessageBox('是否要删除该用户?','提示',MB_OKCANCEL)=id_ok)  then
begin
   if querytemp.Active then querytemp.close;
      querytemp.sql.clear;
      querytemp.sql.add('delete from T_F_CustInfoMember where jtyhdm=:jtyhdm');
      querytemp.ParamByName('jtyhdm').asstring:=queryjtyh.fieldbyname('jtyhdm').asstring;
      querytemp.ExecSQL;
   if querytemp.Active then querytemp.close;
      querytemp.sql.clear;
      querytemp.sql.add('delete from T_F_GroupMemoDay where jtyhdm=:jtyhdm');
      querytemp.ParamByName('jtyhdm').asstring:=queryjtyh.fieldbyname('jtyhdm').asstring;
      querytemp.ExecSQL;
    if querytemp.Active then querytemp.close;
      querytemp.sql.clear;
      querytemp.sql.add('delete from T_F_Groupinfo where jtyhdm=:jtyhdm');
      querytemp.ParamByName('jtyhdm').asstring:=queryjtyh.fieldbyname('jtyhdm').asstring;
      queryjtyh.Close;
      querytemp.ExecSQL;
      queryjtyh.open;
end;
end;

procedure TForm_ArchivesGroupInfo.Btn_CancelClick(Sender: TObject);
begin
PageControl1.ActivePageIndex:=0;
Btn_Add.enabled:=true;
Btn_Modify.enabled:=true;
Btn_Delete.enabled:=true;
Btn_Save.enabled:=false;
Btn_Cancel.enabled:=false;
set_enable(false);
set_color(clmenu);
queryjtyh.close;
queryjtyh.open;
end;





procedure TForm_ArchivesGroupInfo.FlatEditVPNJGKeyPress(Sender: TObject; var Key: Char);
begin
if (key<>#13) and (key<>#8) then
   if not (key in ['0'..'9']) then key:=#0;
end;

procedure TForm_ArchivesGroupInfo.PageControl1Change(Sender: TObject);
begin
if PageControl1.ActivePageIndex<>0 then
begin
  Btn_Add.Visible:=false;
  Btn_Modify.Visible:=false;
  Btn_Delete.Visible:=false;
  Btn_Save.Visible:=false;
  Btn_Cancel.Visible:=false;
end
else
begin
  btn_Add.Visible:=true;
  Btn_Modify.Visible:=true;
  Btn_Delete.Visible:=true;
  Btn_Save.Visible:=true;
  Btn_Cancel.Visible:=true;
end;
case PageControl1.ActivePageIndex of
1 :   begin
         if queryjtyh.active then
          begin
             if queryjtyh.recordcount>0 then
               begin
                  if Queryt_f_custinfo.Active then Queryt_f_custinfo.close;
                  Queryt_f_custinfo.ParamByName('jtyhdm').asstring:=queryjtyh.fieldbyname('JTYHDM').asstring;
                  queryt_f_custinfo.open;
                  Label38.Caption:=queryjtyh.fieldbyname('jtyhmc').asstring+' 总用户数：'+inttostr(Queryt_f_custinfo.recordcount);
               end
               else
                  Label38.Caption:='';
          end;
       end;

2 :begin
       clear_CustInfoMember;
       FlatEditjtyhdm1.text:=FlatEditjtyhdm.text;
       FlatEditjtymc1.text:=FlatEditjtyhmc.text;
       N1.ENABLED:=false;
       N2.ENABLED:=false;
       N3.ENABLED:=false;
       if queryjtyh.active then
             if queryjtyh.recordcount>0 then
                BEGIN
                   N1.ENABLED:=true;
                   with queryCustInfoMember do
                      begin
                          if active then close;
                          sql.clear;
                          sql.add('select INFOCODE,JTYHDM,JX,GH,INFOSID,INFONAME,INFOGENDER,PHONE,EDUCODE,INFOJOB,INFOADDR,INFOPOSTCODE,EMAIL,to_char(INFOBIRTH,''yyyy-mm-dd'') INFOBIRTH,IDCARD from t_f_CustInfoMember where jtyhdm=:jtyhdm order by INFOCODE');
                          parambyname('jtyhdm').asstring:=queryjtyh.fieldbyname('jtyhdm').asstring;
                          open;
                          N2.ENABLED:=(queryCustInfoMember.recordcount>0);
                          N3.ENABLED:=(queryCustInfoMember.recordcount>0);
                       end;
                 end;
       FlatButtonok1.enabled:=false;
       FlatButtoncancel1.enabled:=false;
   end;
 3:  begin
          FlatEditjtyhdm2.text:=FlatEditjtyhdm.text;
          FlatEditjtyhmc2.text:=FlatEditjtyhmc.text;
          enabled_GroupMemoDay(false);
          color_GroupMemoDay(clmenu);
          MenuItem1.enabled:=false;
          MenuItem2.enabled:=false;
          MenuItem3.enabled:=false;
           if  queryjtyh.active then
              begin
                 MenuItem1.Enabled:=(queryjtyh.recordcount>0);
                 if queryjtyh.recordcount>0 then
                    begin
                       if QueryGroupMemoDay.active then QueryGroupMemoDay.close;
                          QueryGroupMemoDay.sql.clear;
                          QueryGroupMemoDay.sql.add('select GROUP_ID,GMEMO_ID,to_char(GMEMO_SDATE,''yyyy-mm-dd'') GMEMO_SDATE,to_char(GMEMO_EDATE,''yyyy-mm-dd'') GMEMO_EDATE,GMEMO_MEMO,GMEMO_NAME from t_f_GroupMemoDay where GROUP_ID=:GROUP_ID');
                          QueryGroupMemoDay.parambyname('GROUP_ID').asinteger:=queryjtyh.fieldbyname('jtyhdm').asinteger;
                          QueryGroupMemoDay.open;
                          MenuItem2.Enabled:=(QueryGroupMemoDay.recordcount>0);
                          MenuItem3.Enabled:=(QueryGroupMemoDay.recordcount>0);
                    end;
              end;
     end;
 end;
end;

procedure  TForm_ArchivesGroupInfo.clear_GroupMemoDay;
begin
    FlatEditGMEMO_NAME.Text:='';
    FlatEditGMEMO_SDATE.Text:=formatdatetime('yyyy-mm-dd',date());
    FlatEditGMEMO_EDATE.Text:=formatdatetime('yyyy-mm-dd',date());
    FlatMemoGMEMO_MEMO.lines.clear;
end;
                                   
procedure TForm_ArchivesGroupInfo.FlatButton2Click(Sender: TObject);
begin
if not Queryt_f_custinfo.Active then exit;
if Queryt_f_custinfo.RecordCount<=0 then
  begin
   showmessage('当前集团没有用户可退出！');
   exit;
  end
else
  if (Application.MessageBox('是否要将该用户退出集团','提示',MB_OKCANCEL)<>id_ok)  then exit;

if querytemp.Active then querytemp.close;
   querytemp.sql.clear;
   querytemp.sql.add('update yhda set jtyhdm=0 where sid=:sid');
   querytemp.ParamByName('sid').asstring:=Queryt_f_custinfo.fieldbyname('sid').asstring;
   querytemp.ExecSQL;
   Queryt_f_custinfo.close;
   Queryt_f_custinfo.open;
end;

procedure TForm_ArchivesGroupInfo.select_CustInfoMember;
var
i:integer;
begin
   with queryCustInfoMember do
     begin 
      FlatEditjtyhdm1.text:=FlatEditjtyhdm.text;
      FlatEditjtymc1.text:=FlatEditjtyhmc.text;
      FlatEditINFOCODE.text:=fieldbyname('INFOCODE').asstring;
      FlatEditPHONE.text:=fieldbyname('PHONE').asstring;
      FlatEditINFOSID.text:=fieldbyname('INFOSID').asstring;
      FlatEditINFONAME.text:=fieldbyname('INFONAME').asstring;
      FlatEditINFOPOSTCODE.text:=fieldbyname('INFOPOSTCODE').asstring;
      FlatEditINFOBIRTH.text:=fieldbyname('INFOBIRTH').asstring;
      FlatEditINFOJOB.text:=fieldbyname('INFOJOB').asstring;
      FlatEditIDCARD.text:=fieldbyname('IDCARD').asstring;
      FlatEditEMAIL.text:=fieldbyname('EMAIL').asstring;
      FlatEditGH.text:=fieldbyname('GH').asstring;
      FlatEditINFOADDR.text:=fieldbyname('INFOADDR').asstring;
      i:=0;
      while i<FlatComboBoxEDUCODE.Items.Count do
        begin
              FlatComboBoxEDUCODE.ItemIndex:=i;
            if   trim(Fun_GetCodeName(FlatComboBoxEDUCODE))=trim(fieldbyname('EDUCODE').asstring) then i:=FlatComboBoxEDUCODE.Items.Count+1;
            i:=i+1;
        end;
       i:=0;
      while i<FlatComboBoxINFOGENDER.Items.Count do
        begin
              FlatComboBoxINFOGENDER.ItemIndex:=i;
            if   trim(Fun_GetCodeName(FlatComboBoxINFOGENDER))=trim(fieldbyname('INFOGENDER').asstring) then i:=FlatComboBoxINFOGENDER.Items.Count+1;
            i:=i+1;
        end; 
     end;
end;

procedure TForm_ArchivesGroupInfo.DataSourceCustInfoMemberDataChange(Sender: TObject;
  Field: TField);
begin
if queryCustInfoMember.active then
   if queryCustInfoMember.recordcount>0 then
       select_CustInfoMember;
end;

procedure TForm_ArchivesGroupInfo.clear_CustInfoMember;
begin  
      FlatEditINFOCODE.text:='';
      FlatEditPHONE.text:='';
      FlatEditINFOSID.text:='';
      FlatEditINFONAME.text:='';
      FlatEditINFOPOSTCODE.text:='';
      FlatEditINFOBIRTH.text:=formatdatetime('yyyy-mm-dd',date());
      FlatEditINFOJOB.text:='';
      FlatEditIDCARD.text:='';
      FlatEditEMAIL.text:='';
      FlatEditGH.text:='';
      FlatEditINFOADDR.text:='';
      FlatComboBoxEDUCODE.itemindex:=0;
      FlatComboBoxINFOGENDER.itemindex:=0;
end;


procedure TForm_ArchivesGroupInfo.N1Click(Sender: TObject);
begin
N1.ENABLED:=false;
N2.ENABLED:=false;
N3.ENABLED:=false;
FlatButtonok1.enabled:=true;
FlatButtoncancel1.enabled:=true;
DBGridCustInfoMember.enabled:=false;
if not (queryjtyh.Active) then exit;
if not (queryjtyh.recordcount>0) then exit;
clear_CustInfoMember;
CustInfoMember_color(clwindow);
CustInfoMember_enable(true);
CustInfoMember_do_number:='inster';
with querytemp do