unit_archivesgroupinfo_2.pas

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

    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 t_f_custinfo set jtyhdm=0,sxdm=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
    begin
    if active then close;
            sql.clear;
            sql.add('select max(INFOCODE)+1 max_INFOCODE from t_f_CustInfoMember where jtyhdm=:jtyhdm');
            parambyname('jtyhdm').asstring:=trim(FlatEditjtyhdm1.text);
            open;
              if trim(fieldbyname('max_infocode').asstring)<>'' then
                 FlatEditINFOCODE.text:=fieldbyname('max_infocode').asstring
              else
                  FlatEditINFOCODE.text:='0';
    end;}
end;

procedure TForm_ArchivesGroupInfo.CustInfoMember_color(flag:tcolor);
begin
      FlatEditPHONE.colorflat:=flag;
      FlatEditINFOSID.colorflat:=flag;
      FlatEditINFONAME.colorflat:=flag;
      FlatEditINFOPOSTCODE.colorflat:=flag;
      FlatEditINFOBIRTH.colorflat:=flag;
      FlatEditINFOJOB.colorflat:=flag;
      FlatEditIDCARD.colorflat:=flag;
      FlatEditEMAIL.colorflat:=flag;
      FlatEditGH.colorflat:=flag;
      FlatEditINFOADDR.colorflat:=flag;
      FlatComboBoxEDUCODE.color:=flag;
      FlatComboBoxINFOGENDER.color:=flag;
end;
procedure TForm_ArchivesGroupInfo.CustInfoMember_enable(flag:boolean);
begin
      FlatEditPHONE.enabled:=flag;
      FlatEditINFOSID.enabled:=flag;
      FlatEditINFONAME.enabled:=flag;
      FlatEditINFOPOSTCODE.enabled:=flag;
      FlatEditINFOBIRTH.enabled:=flag;
      FlatEditINFOJOB.enabled:=flag;
      FlatEditIDCARD.enabled:=flag;
      FlatEditEMAIL.enabled:=flag;
      FlatEditGH.enabled:=flag;
      FlatEditINFOADDR.enabled:=flag;
      FlatComboBoxEDUCODE.enabled:=flag;
      FlatComboBoxINFOGENDER.enabled:=flag;
end;

procedure TForm_ArchivesGroupInfo.FlatButtonok1Click(Sender: TObject);
begin
  DBGridCustInfoMember.enabled:=true;
  FlatButton9.ENABLED := True; //add
  FlatButton10.ENABLED := True;//del
  FlatButton11.ENABLED := True;//update
  FlatButtonok1.enabled := False;//save
  FlatButtoncancel1.enabled := False;//cancel
  if CustInfoMember_do_number='inster' then
    begin
      if (Application.MessageBox('是否要增加该用户？','提示',MB_OKCANCEL)=id_ok)  then
       insert_CustInfoMember;
    end;
  if CustInfoMember_do_number='update' then
    begin
      if (Application.MessageBox('是否要修改该用户资料？','提示',MB_OKCANCEL)=id_ok)  then
        update_CustInfoMember;
    end;
  clear_CustInfoMember;
  CustInfoMember_color(clmenu);
  CustInfoMember_enable(false);
  queryCustInfoMember.close;
  queryCustInfoMember.open;
end;

procedure TForm_ArchivesGroupInfo.FlatButtoncancel1Click(Sender: TObject);
begin
  DBGridCustInfoMember.enabled:=true;
  FlatButton9.ENABLED := True; //add
  FlatButton10.ENABLED := True;//del
  FlatButton11.ENABLED := True;//update
  FlatButtonok1.enabled := False;//save
  FlatButtoncancel1.enabled := False;//cancelclear_CustInfoMember;
  CustInfoMember_color(clmenu);
  CustInfoMember_enable(false);
  queryCustInfoMember.close;
  queryCustInfoMember.open;
end;

procedure TForm_ArchivesGroupInfo.N3Click(Sender: TObject);
begin
{  N1.ENABLED:=false;
  N2.ENABLED:=false;
  N3.ENABLED:=false;
  DBGridCustInfoMember.enabled:=false;
  FlatButtonok1.enabled:=true;
  FlatButtoncancel1.enabled:=true;
  CustInfoMember_color(clwindow);
  CustInfoMember_enable(true);
  CustInfoMember_do_number:='update';}
end;

procedure TForm_ArchivesGroupInfo.insert_CustInfoMember;

begin
   dm_main.Databasedh.StartTransaction;

  with querytemp do
   begin
          if active then close;
          sql.clear;
          sql.add('insert into t_f_CustInfoMember(INFOCODE,JTYHDM,GH,INFOSID,INFONAME,INFOGENDER,PHONE,EDUCODE,INFOJOB,INFOADDR,INFOPOSTCODE,EMAIL,IDCARD,INFOBIRTH)');
          sql.add(' values(:INFOCODE,:JTYHDM,:GH,:INFOSID,:INFONAME,:INFOGENDER,:PHONE,:EDUCODE,:INFOJOB,:INFOADDR,:INFOPOSTCODE,:EMAIL,:IDCARD,to_date(:INFOBIRTH,''yyyy-mm-dd''))');
          parambyname('INFOCODE').asstring:=FlatEditINFOCODE.text;
          parambyname('JTYHDM').asstring:=FlatEditjtyhdm1.text;
          parambyname('PHONE').asstring:=FlatEditPHONE.text;
          parambyname('INFOSID').asstring:=FlatEditINFOSID.text;
          parambyname('INFONAME').asstring:=FlatEditINFONAME.text;
          parambyname('INFOPOSTCODE').asstring:=FlatEditINFOPOSTCODE.text;
          parambyname('INFOBIRTH').asstring:=FlatEditINFOBIRTH.text;
          parambyname('INFOJOB').asstring:=FlatEditINFOJOB.text;
          parambyname('IDCARD').asstring:=FlatEditIDCARD.text;
          parambyname('EMAIL').asstring:=FlatEditEMAIL.text;
          parambyname('GH').asstring:=FlatEditGH.text;
          parambyname('INFOADDR').asstring:=FlatEditINFOADDR.text;
          parambyname('EDUCODE').asstring:=trim(Fun_GetCodeName(FlatComboBoxEDUCODE));
          parambyname('INFOGENDER').asstring:=trim(Fun_GetCodeName(FlatComboBoxINFOGENDER));
          execsql;
      end;
   dm_main.Databasedh.commit;

end;

procedure TForm_ArchivesGroupInfo.update_CustInfoMember;

begin

  with querytemp do
   begin
          if active then close;
          sql.clear;
          sql.add('UPDATE  t_f_CustInfoMember SET GH=:GH,INFOSID=:INFOSID,INFONAME=:INFONAME,INFOGENDER=:INFOGENDER,PHONE=:PHONE,EDUCODE=:EDUCODE,INFOJOB=:INFOJOB,INFOADDR=:INFOADDR,');
          sql.add('INFOPOSTCODE=:INFOPOSTCODE,EMAIL=:EMAIL,IDCARD=:IDCARD,INFOBIRTH=to_date(:INFOBIRTH,''yyyy-mm-dd'') WHERE JTYHDM=:JTYHDM and INFOCODE=:INFOCODE');
          parambyname('JTYHDM').asstring:=FlatEditjtyhdm1.text;
          parambyname('PHONE').asstring:=FlatEditPHONE.text;
          parambyname('INFOSID').asstring:=FlatEditINFOSID.text;
          parambyname('INFONAME').asstring:=FlatEditINFONAME.text;
          parambyname('INFOPOSTCODE').asstring:=FlatEditINFOPOSTCODE.text;
          parambyname('INFOBIRTH').asstring:=FlatEditINFOBIRTH.text;
          parambyname('INFOJOB').asstring:=FlatEditINFOJOB.text;
          parambyname('IDCARD').asstring:=FlatEditIDCARD.text;
          parambyname('EMAIL').asstring:=FlatEditEMAIL.text;
          parambyname('GH').asstring:=FlatEditGH.text;
          parambyname('INFOADDR').asstring:=FlatEditINFOADDR.text;
          parambyname('EDUCODE').asstring:=trim(Fun_GetCodeName(FlatComboBoxEDUCODE));
          parambyname('INFOGENDER').asstring:=trim(Fun_GetCodeName(FlatComboBoxINFOGENDER));
          parambyname('INFOCODE').asstring:=trim(FlatEditINFOCODE.text);
          execsql;
      end;
end;
procedure TForm_ArchivesGroupInfo.N2Click(Sender: TObject);
begin

if (Application.MessageBox('是否要删除该用户？','提示',MB_OKCANCEL)<>id_ok)  then exit;
if not queryCustInfoMember.active then exit;
if not queryCustInfoMember.recordcount>0 then exit;
with querytemp do
begin
   if active then close;
   sql.clear;
   sql.add('delete from  T_F_CustInfoMember where INFOCODE=:INFOCODE AND JTYHDM=:JTYHDM ');
   parambyname('INFOCODE').asinteger:=queryCustInfoMember.fieldbyname('INFOCODE').asinteger;
   parambyname('JTYHDM').asinteger:=queryCustInfoMember.fieldbyname('JTYHDM').asinteger;
   execsql;
end;
clear_CustInfoMember;
queryCustInfoMember.close;
queryCustInfoMember.open;
end;

procedure  TForm_ArchivesGroupInfo.color_GroupMemoDay(flag:Tcolor);
begin
    FlatEditGMEMO_NAME.colorflat:=flag;
    FlatEditGMEMO_SDATE.colorflat:=flag;
    FlatEditGMEMO_EDATE.colorflat:=flag;
    FlatMemoGMEMO_MEMO.colorflat:=flag;
end;

procedure  TForm_ArchivesGroupInfo.enabled_GroupMemoDay(flag:boolean);
begin
    FlatEditGMEMO_NAME.enabled:=flag;
    FlatEditGMEMO_SDATE.enabled:=flag;
    FlatEditGMEMO_EDATE.enabled:=flag;
    FlatMemoGMEMO_MEMO.enabled:=flag;
end;
procedure TForm_ArchivesGroupInfo.FlatButton5Click(Sender: TObject);
var
  GMEMO_ID:integer;
begin
  if trim(FlatEditGMEMO_NAME.text)='' then
    begin
        showmessage('请输入标题！');
        exit;
    end;
  if GroupMemoDay_do_number='insert' then
    begin
      if (Application.MessageBox('是否要增加该记录？','提示',MB_OKCANCEL)=id_ok)  then
        begin
   dm_main.Databasedh.StartTransaction;

          with querytemp do
            begin
              if active then close;
                sql.Clear;
                sql.Add('select nvl(max(GMEMO_ID),0)+1 GMEMO_ID from  T_F_GroupMemoDay');
                open;
                GMEMO_ID:=fieldbyname('GMEMO_ID').asinteger;
                if active then close;
                  sql.Clear;
                  sql.add('INSERT INTO t_f_GroupMemoDay(GROUP_ID,GMEMO_ID,GMEMO_SDATE,GMEMO_EDATE,GMEMO_MEMO,GMEMO_NAME) VALUES(:GROUP_ID,:GMEMO_ID,to_date(:GMEMO_SDATE,''yyyy-mm-dd''),to_date(:GMEMO_EDATE,''yyyy-mm-dd''),:GMEMO_MEMO,:GMEMO_NAME)');
                  parambyname('GROUP_ID').asstring:=trim(FlatEditjtyhdm2.text);
                  parambyname('GMEMO_ID').asinteger:=GMEMO_ID;
                  if trim(FlatEditGMEMO_SDATE.Text)='' then
                    parambyname('GMEMO_SDATE').asstring:='1901-01-01'
                  else
                    parambyname('GMEMO_SDATE').asstring:=trim(FlatEditGMEMO_SDATE.Text);
                  if trim(FlatEditGMEMO_EDATE.Text)='' then
                    parambyname('GMEMO_EDATE').asstring:=trim(FlatEditGMEMO_SDATE.Text)
                  else
                   parambyname('GMEMO_EDATE').asstring:=trim(FlatEditGMEMO_EDATE.Text);
                   parambyname('GMEMO_MEMO').asstring:=trim(FlatMemoGMEMO_MEMO.Text);
                   parambyname('GMEMO_NAME').asstring:=trim(FlatEditGMEMO_NAME.Text);
                   execsql;
               end;
            end;
 end;
if  GroupMemoDay_do_number='update' then
 begin

        if (Application.MessageBox('是否要修改该用户资料？','提示',MB_OKCANCEL)=id_ok)  then
            begin
   dm_main.Databasedh.StartTransaction;

               with querytemp do
               begin
                   if active then close;
                   sql.Clear;
                   sql.add('UPDATE t_f_GroupMemoDay　SET GMEMO_SDATE=to_date(:GMEMO_SDATE,''yyyy-mm-dd''),GMEMO_EDATE=to_date(:GMEMO_EDATE,''yyyy-mm-dd''),GMEMO_MEMO=:GMEMO_MEMO,GMEMO_NAME=:GMEMO_NAME where GROUP_ID=:GROUP_ID and GMEMO_ID=:GMEMO_ID ');
                   parambyname('GROUP_ID').asstring:=trim(FlatEditjtyhdm2.text);
                   parambyname('GMEMO_ID').asinteger:=QueryGroupMemoDay.fieldbyname('GMEMO_ID').asinteger;
                   if trim(FlatEditGMEMO_SDATE.Text)='' then
                       parambyname('GMEMO_SDATE').asstring:='1901-01-01'
                   else
                       parambyname('GMEMO_SDATE').asstring:=trim(FlatEditGMEMO_SDATE.Text);
                   if trim(FlatEditGMEMO_EDATE.Text)='' then