📄 unit_archivesgroupinfo_2.pas
字号:
//if trim(FlatComboBoxarea1.text)<>'所有' then
if FlatComboBoxarea1.ItemIndex <> 0 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 FlatComboBoxgh.ItemIndex <> 0 then
//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 FlatComboBoxhy.ItemIndex <> 0 then
//if trim(FlatComboBoxhy.text)<>'所有' then
begin
sql.add(' and HYDM=:HYDM');
parambyname('HYDM').asstring:=Fun_GetCodeName(FlatComboBoxhy);
end;
open;
end;
//queryjtyh.Last;
//queryjtyh.First;
//if queryjtyh.RecordCount>0 then
if Not queryjtyh.IsEmpty 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;
if (not queryjtyh.active) Or (QueryJtyh.RecordCount<1) then
begin
showmessage('没有记录可更改！');
exit;
end;
FormMain.StatusBarMain.Panels[1].Text := '修改集团资料';
FormMain.Update;
Btn_Add.enabled:=false;
Btn_Modify.enabled:=false;
Btn_Delete.enabled:=false;
Btn_Save.enabled:=true;
Btn_Cancel.enabled:=true;
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;
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 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;
queryjtyh.Locate('JTYHDM', PL_JTYHDM, []);
FormMain.StatusBarMain.Panels[1].Text := '集团用户管理';
FormMain.Update;
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
PL_JTYHDM := '';
FormMain.StatusBarMain.Panels[1].Text := '增加新集团，请输入集团资料';
FormMain.Update;
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 nvl(max(jtyhdm),100)+1 maxjtyhdm from T_f_groupinfo');
querytemp.open;
FlatEditjtyhdm.text:=querytemp.fieldbyname('maxjtyhdm').asstring;
PL_JTYHDM := querytemp.fieldbyname('maxjtyhdm').asstring;
do_number:='insert';
showmessage('请输入集团资料！');
FlatComboBoxJTLB.itemindex:=0;
FlatComboBoxHYDM.itemindex:=0;
set_enable(true);
set_color(clWindow);
end;
procedure TForm_ArchivesGroupInfo.DataSourcejtyhDataChange(Sender: TObject; Field: TField);
begin
//PageControl1.ActivePageIndex:=0;
select_jtyh;
Label34.Caption:=INTTOSTR(queryjtyh.RecordCount);
PageControl1Change(nil);
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 GROUP_ID=: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;
queryjtyh.Last;
queryjtyh.First;
FormMain.StatusBarMain.Panels[1].Text := '集团用户管理';
FormMain.Update;
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);
Var
SQL:String;
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;
SQL:='select a.*,b.par_desc sxmc,c.productname,d.par_desc statsm,e.cityname,f.home_name '+
'from t_f_custinfo a,t_v_custatt b,t_d_product c,t_v_custstatus d,t_d_city e,'+
't_d_county f '+
' where a.sxdm=b.sxdm and a.user_zjbs=c.productno and a.stat=d.stat '+
' and a.cityno=e.cityno and a.off_no_home=f.off_no_home and a.cityno=f.cityno and'+
' jtyhdm='+ Queryjtyh.fieldbyname('JTYHDM').asstring +' and a.sxdm=0 And'+
' a.CityNo='''+Queryjtyh.fieldbyname('CityNo').asstring+''' And a.Off_no_Home='+Queryjtyh.fieldbyname('JX').asstring+
' order by a.sid ';
Queryt_f_custinfo.SQL.Clear;
Queryt_F_CustInfo.SQL.Add(SQL);
QueryT_f_CustInfo.SQL.SaveToFile('C:\123.txt');
Queryt_f_CustInfo.Open;
end
else
Label38.Caption:='';
end;
end;
2 :begin
clear_CustInfoMember;
FlatEditjtyhdm1.text:=FlatEditjtyhdm.text;
FlatEditjtymc1.text:=FlatEditjtyhmc.text;
//FlatButton9.ENABLED := True; //add
//FlatButton10.ENABLED := True;//del
//FlatButton11.ENABLED := True;//update
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);
//FlatButton12.Enabled := False;
//FlatButton13.Enabled := False;
//FlatButton14.Enabled := False;
//FlatButton5.Enabled:=true;
//FlatButton4.Enabled:=true;
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;
4: begin
if queryjtyh.active then
begin
if queryjtyh.recordcount>0 then
begin
if Queryt_f_custinfo1.Active then Queryt_f_custinfo1.close;
Queryt_f_custinfo1.ParamByName('jtyhdm').asstring:=queryjtyh.fieldbyname('JTYHDM').asstring;
queryt_f_custinfo1.open;
Label30.Caption:=queryjtyh.fieldbyname('jtyhmc').asstring+' 关键人物数：'+inttostr(Queryt_f_custinfo1.recordcount);
end
else
Label30.Caption:='';
end;
end;
end;
end;
procedure TForm_ArchivesGroupInfo.clear_GroupMemoDay;
begin
FlatEditGMEMO_NAME.Text:='';
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -