unit_archivesgroupinfo_2.pas

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

                       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;
   dm_main.Databasedh.Commit;;

clear_GroupMemoDay;
enabled_GroupMemoDay(false);
color_GroupMemoDay(clmenu);
DBGridQueryGroupMemoDay.Enabled:=true;
  FlatButton12.Enabled := true;
  FlatButton13.Enabled := true;
  FlatButton14.Enabled := true;
  FlatButton5.Enabled:=False;
  FlatButton4.Enabled:=False;
QueryGroupMemoDay.Close;
QueryGroupMemoDay.open;
   QueryGroupMemoDay.close;
  QueryGroupMemoDay.open;
end;

procedure TForm_ArchivesGroupInfo.FlatButton4Click(Sender: TObject);
begin
  clear_GroupMemoDay;
  enabled_GroupMemoDay(false);
  color_GroupMemoDay(clmenu);
  DBGridQueryGroupMemoDay.Enabled:=true;
  FlatButton12.Enabled := true;
  FlatButton13.Enabled := true;
  FlatButton14.Enabled := true;
  FlatButton5.Enabled:=False;
  FlatButton4.Enabled:=False;
  QueryGroupMemoDay.Close;
  QueryGroupMemoDay.open;
end;

procedure TForm_ArchivesGroupInfo.DataSourceQueryGroupMemoDayDataChange(Sender: TObject;
  Field: TField);
begin
FlatEditGMEMO_SDATE.Text:=QueryGroupMemoDay.fieldbyname('GMEMO_SDATE').asstring;
FlatEditGMEMO_EDATE.Text:=QueryGroupMemoDay.fieldbyname('GMEMO_EDATE').asstring;
FlatMemoGMEMO_MEMO.Text:=QueryGroupMemoDay.fieldbyname('GMEMO_MEMO').asstring;
FlatEditGMEMO_NAME.Text:=QueryGroupMemoDay.fieldbyname('GMEMO_NAME').asstring;
end;

procedure TForm_ArchivesGroupInfo.FlatButton6Click(Sender: TObject);
begin
if not Queryt_f_custinfo1.Active then exit;
if Queryt_f_custinfo1.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_custinfo1.fieldbyname('sid').asstring;
   querytemp.ExecSQL;
   Queryt_f_custinfo1.close;
   Queryt_f_custinfo1.open;
end;

procedure TForm_ArchivesGroupInfo.FlatButton7Click(Sender: TObject);
var
  tmpSid : string;
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 sxdm=1 where sid=:sid');
   querytemp.ParamByName('sid').asstring:=Queryt_f_custinfo.fieldbyname('sid').asstring;
   querytemp.ExecSQL;
   Queryt_f_custinfo.Next;
   tmpSid := Queryt_f_custinfo.FieldByName('sid').AsString;
   Queryt_f_custinfo.close;
   Queryt_f_custinfo.open;
   Queryt_f_custinfo.Locate('SID', tmpSid, []);
end;

procedure TForm_ArchivesGroupInfo.FlatButton8Click(Sender: TObject);
begin
if not Queryt_f_custinfo1.Active then exit;
if Queryt_f_custinfo1.RecordCount<=0 then
  begin
   showmessage('当前集团没有用户可退出！');
   exit;
  end
else
  if (Application.MessageBox('是否要将该用户退出集团','系统提示',MB_OKCANCEL)<>id_ok)  then exit;

if querytemp.Active then querytemp.close;
   //dm_main.Databasedh.StartTransaction;
   querytemp.sql.clear;
   querytemp.sql.add('update t_f_custinfo set sxdm=0 where sid=:sid');
   querytemp.ParamByName('sid').asstring:= Queryt_f_custinfo1.fieldbyname('SID').asstring;
   //querytemp.ParamByName('sid').asstring:='1392921011';
   querytemp.ExecSQL;
   query1.close;
   query1.sql.clear;
   query1.sql.add('commit');
   query1.execsql;
   //dm_main.Databasedh.commit;
   Queryt_f_custinfo1.close;
   Queryt_f_custinfo1.open;
   //Queryt_f_custinfo1.Locate('SID', Queryt_f_custinfo.fieldbyname('sid').asstring, []);
end;

procedure TForm_ArchivesGroupInfo.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  FormMain.StatusBarMain.Panels[1].Text := '';
  FormMain.Update;
  Action:=caFree;
end;

procedure TForm_ArchivesGroupInfo.FlatButton9Click(Sender: TObject);
begin
  DBGridCustInfoMember.enabled:=false;
  if not (queryjtyh.Active) then
    begin
      Application.MessageBox('请指定集团', '系统提示', MB_OK);
      exit;
    end;
  if not (queryjtyh.recordcount>0) then
    begin
      Application.MessageBox('请指定集团', '系统提示', MB_OK);
      exit;
    end;
  FlatButton9.ENABLED := false; //add
  FlatButton10.ENABLED := false;//del
  FlatButton11.ENABLED := false;//update
  FlatButtonok1.enabled := true;//save
  FlatButtoncancel1.enabled := true;//cancel
  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;
  FlatEditINFONAME.SetFocus;
end;

procedure TForm_ArchivesGroupInfo.FlatButton11Click(Sender: TObject);
begin
  if not (queryjtyh.Active) then
    begin
      Application.MessageBox('请指定集团', '系统提示', MB_OK);
      exit;
    end;
   if not (queryjtyh.recordcount>0) then
    begin
      Application.MessageBox('请指定集团', '系统提示', MB_OK);
      exit;
    end;
  with querytemp do
    begin
      Close;
      Sql.Clear;
      Sql.Add('Select count(*) as tmp from T_F_CustInfoMember where jtyhdm='+Queryjtyh.FieldByName('JTYHDM').AsString);
      Open;
    end;
  if querytemp.FieldByName('tmp').AsString = '0'  then
    begin
      Application.MessageBox('没有可提供修改的集团信息员', '系统提示', MB_OK);
      Exit
    end;
  FlatButton9.ENABLED := false; //add
  FlatButton10.ENABLED := false;//del
  FlatButton11.ENABLED := false;//update
  FlatButtonok1.enabled := true;//save
  FlatButtoncancel1.enabled := true;//cancel
  DBGridCustInfoMember.enabled:=false;
  CustInfoMember_color(clwindow);
  CustInfoMember_enable(true);
  CustInfoMember_do_number:='update';
end;

procedure TForm_ArchivesGroupInfo.FlatButton10Click(Sender: TObject);
begin
  if not (queryjtyh.Active) then
    begin
      Application.MessageBox('请指定要删除的集团信息员', '系统提示', MB_OK);
      exit;
    end;
    if not (queryjtyh.recordcount>0) then
    begin
      Application.MessageBox('请指定要删除的集团信息员', '系统提示', MB_OK);
      exit;
    end;
  with querytemp do
    begin
      Close;
      Sql.Clear;
      Sql.Add('Select count(*) as tmp from T_F_CustInfoMember where jtyhdm='+Queryjtyh.FieldByName('JTYHDM').AsString);
      Open;
    end;
  if querytemp.FieldByName('tmp').AsString = '0'  then
    begin
      Application.MessageBox('没有可提供删除的集团信息员', '系统提示', MB_OK);
      Exit
    end;
  if not (queryjtyh.Active) then
  begin
    Application.MessageBox('请指定集团', '系统提示', MB_OK);
    exit;
  end;
  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.FlatButton12Click(Sender: TObject);
begin
  if not (queryjtyh.Active) then
    begin
      Application.MessageBox('请指定集团', '系统提示', MB_OK);
      exit;
    end;
  if not (queryjtyh.recordcount>0) then
    begin
      Application.MessageBox('请指定集团', '系统提示', MB_OK);
      exit;
    end;
  FlatButton12.Enabled := False;
  FlatButton13.Enabled := False;
  FlatButton14.Enabled := False;
  FlatButton5.Enabled:=true;
  FlatButton4.Enabled:=true;
  clear_GroupMemoDay;
  enabled_GroupMemoDay(true);
  color_GroupMemoDay(clwindow);
  DBGridQueryGroupMemoDay.Enabled:=false;
  GroupMemoDay_do_number:='insert';
end;

procedure TForm_ArchivesGroupInfo.FlatButton13Click(Sender: TObject);
begin
  if not (queryjtyh.Active) then
    begin
      Application.MessageBox('请指定集团', '系统提示', MB_OK);
      exit;
    end;
  if not (queryjtyh.recordcount>0) then
    begin
      Application.MessageBox('请指定集团', '系统提示', MB_OK);
      exit;
    end;
  if not QueryGroupMemoDay.Active then
    begin
      showmessage('当前没有记录可修改');
      exit;
    end;
  if not QueryGroupMemoDay.recordcount>0 then
  begin
     showmessage('当前没有记录可修改');
     exit;
  end;
  FlatButton12.Enabled := False;
  FlatButton13.Enabled := False;
  FlatButton14.Enabled := False;
  FlatButton5.Enabled:=true;
  FlatButton4.Enabled:=true;

  enabled_GroupMemoDay(true);
  color_GroupMemoDay(clwindow);
  DBGridQueryGroupMemoDay.Enabled:=false;
  GroupMemoDay_do_number:='update';
end;

procedure TForm_ArchivesGroupInfo.FlatButton14Click(Sender: TObject);
begin
  if not (queryjtyh.Active) then
    begin
      Application.MessageBox('请指定要删除的纪念日', '系统提示', MB_OK);
      exit;
    end;
  if not (queryjtyh.recordcount>0) then
    begin
      Application.MessageBox('请指定要删除的纪念日', '系统提示', MB_OK);
      exit;
    end;
    if not QueryGroupMemoDay.Active then
     begin
       showmessage('当前没有记录可修改');
       exit;     
     end;
  if not QueryGroupMemoDay.recordcount>0 then
    begin
       showmessage('当前没有记录可修改');
       exit;
    end;
  if not(Application.MessageBox('是否要删除该用户？','提示',MB_OKCANCEL)=id_ok)  then exit;

  with querytemp do
    begin
      if Active then close;
      sql.clear;
      sql.add('delete from t_f_GroupMemoDay where GMEMO_ID=:GMEMO_ID and GROUP_ID=:GROUP_ID');
      parambyname('GMEMO_ID').asinteger:=QueryGroupMemoDay.fieldbyname('GMEMO_ID').asinteger;
      parambyname('GROUP_ID').asinteger:=QueryGroupMemoDay.fieldbyname('GROUP_ID').asinteger;
      execsql;
      QueryGroupMemoDay.close;
      QueryGroupMemoDay.open;
    end;
end;
procedure TForm_ArchivesGroupInfo.FlatButton3Click(Sender: TObject);
var
  InputString : string;
begin
  if (queryjtyh.Eof) or (queryjtyh.RecordCount <= 0)  then
    begin
      Application.MessageBox('请