📄 unit_archivesgroupinfo.pas
字号:
unit Unit_ArchivesGroupInfo;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, TFlatPanelUnit, TFlatButtonUnit, TFlatRadioButtonUnit,
StdCtrls, TFlatComboBoxUnit, Db, DBTables, TFlatEditUnit, TFlatMemoUnit,
ComCtrls, TFlatCheckBoxUnit, Grids, DBGrids, ImgList, Menus,
TFlatSpinEditUnit;
type
TForm_ArchivesGroupInfo = class(TForm)
Panelleft: TPanel;
Panel1: TPanel;
Querytemp: TQuery;
queryjtyh: TQuery;
DataSourcejtyh: TDataSource;
DBGridjtyh: TDBGrid;
Queryt_f_custinfo: TQuery;
DataSourcet_f_custinfo: TDataSource;
DataSourceCustInfoMember: TDataSource;
QueryCustInfoMember: TQuery;
ImageList1: TImageList;
QueryGroupMemoDay: TQuery;
DataSourceQueryGroupMemoDay: TDataSource;
Panel4: TPanel;
Label1: TLabel;
Label34: TLabel;
Label90: TLabel;
Co_Query_CITYCODE: TFlatComboBox;
Co_Query_OFF_NO_HOME: TFlatComboBox;
Label89: TLabel;
Label32: TLabel;
FlatComboBoxarea1: TFlatComboBox;
FlatComboBoxhy: TFlatComboBox;
Label33: TLabel;
Label54: TLabel;
FlatButtonSearch: TFlatButton;
Panel2: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Panel3: TPanel;
Splitter6: TSplitter;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label22: TLabel;
Label24: TLabel;
Label25: TLabel;
Label27: TLabel;
Label15: TLabel;
Label56: TLabel;
Label31: TLabel;
Label21: TLabel;
Label23: TLabel;
FlatEdit_jtyhdm: TFlatEdit;
FlatEdit_JTYHMC: TFlatEdit;
FlatComboBox_JTLB: TFlatComboBox;
FlatComboBox_HYDM: TFlatComboBox;
FlatEdit_LXR: TFlatEdit;
FlatComboBox_CityNo: TFlatComboBox;
FlatComboBox_Off_No_Home: TFlatComboBox;
FlatEdit_ADDR: TFlatEdit;
FlatEdit_VIP_NO: TFlatEdit;
FlatEdit_PASSWORD: TFlatEdit;
FlatEdit_VPNID: TFlatEdit;
FlatComboBox_GroupFlag: TFlatComboBox;
FlatComboBox_QID: TFlatComboBox;
FlatEdit_sid: TFlatEdit;
FlatEdit_Fax: TFlatEdit;
FlatEditPostCode: TFlatEdit;
DateTimePicker_VPNBEGINDATA: TDateTimePicker;
DateTimePicker_VPNENDDATA: TDateTimePicker;
DateTimePicker_Be_G_Date: TDateTimePicker;
DateTimePicker_En_G_Date: TDateTimePicker;
FlatMemo_JTQTJJ: TFlatMemo;
TabSheet2: TTabSheet;
Splitter5: TSplitter;
Panel5: TPanel;
DBGridt_f_custinfo: TDBGrid;
Panel6: TPanel;
Label38: TLabel;
FlatButton2: TFlatButton;
FlatButton3: TFlatButton;
FlatButton7: TFlatButton;
TabSheet3: TTabSheet;
Panel7: TPanel;
TabSheet4: TTabSheet;
Label55: TLabel;
TabSheet5: TTabSheet;
DBGridt_f_custinfo1: TDBGrid;
Panel11: TPanel;
Label30: TLabel;
FlatButton6: TFlatButton;
FlatButton8: TFlatButton;
FlatEdit_GH: TFlatEdit;
Label29: TLabel;
FlatComboBox_JTBZ: TFlatComboBox;
Label35: TLabel;
FlatEditbg: TFlatEdit;
Label36: TLabel;
FlatEditen: TFlatEdit;
FlatCheckBox1: TFlatCheckBox;
Panel12: TPanel;
Btn_Add: TFlatButton;
Btn_Modify: TFlatButton;
Btn_Delete: TFlatButton;
Btn_Save: TFlatButton;
Btn_Cancel: TFlatButton;
Btn_Exit: TFlatButton;
FlatEdit_YHGH: TFlatEdit;
FlatSpinEditInteger_YHBL: TFlatSpinEditInteger;
FlatSpinEditInteger_BGN_YH: TFlatSpinEditInteger;
FlatSpinEditInteger_END_YH: TFlatSpinEditInteger;
FlatSpinEditInteger_VPNJG: TFlatSpinEditInteger;
DBGridCustInfoMember: TDBGrid;
Panel8: TPanel;
Label42: TLabel;
Label43: TLabel;
Label44: TLabel;
Label46: TLabel;
Label47: TLabel;
Label48: TLabel;
Label45: TLabel;
Label49: TLabel;
Label50: TLabel;
Label51: TLabel;
Label52: TLabel;
FlatEdit_INFONAME: TFlatEdit;
FlatEdit_INFOSID: TFlatEdit;
FlatComboBox_INFOGENDER: TFlatComboBox;
FlatEdit_PHONE: TFlatEdit;
FlatComboBox_EDUCODE: TFlatComboBox;
FlatEdit_INFOJOB: TFlatEdit;
FlatEdit_INFOADDR: TFlatEdit;
FlatEdit_INFOPOSTCODE: TFlatEdit;
FlatEdit_EMAIL: TFlatEdit;
FlatEdit_IDCARD: TFlatEdit;
FlatEdit_INFOBIRTH: TFlatEdit;
DBGridQueryGroupMemoDay: TDBGrid;
Panel10: TPanel;
Label65: TLabel;
Label57: TLabel;
Label58: TLabel;
Label59: TLabel;
FlatEdit_GMEMO_NAME: TFlatEdit;
FlatEdit_GMEMO_SDATE: TFlatEdit;
FlatEdit_GMEMO_EDATE: TFlatEdit;
FlatMemo_GMEMO_MEMO: TFlatMemo;
Query1: TQuery;
Label26: TLabel;
Label28: TLabel;
FlatEditGroupId: TFlatEdit;
Label37: TLabel;
FlatEditGH: TFlatEdit;
StoredProc_InsJTYH1: TStoredProc;
StoredProc_InsJTYH: TStoredProc;
Label39: TLabel;
FED_Name: TFlatEdit;
FlatCheckBox_SMS_FLAG: TFlatCheckBox;
FlatEdit_SEND_TIME: TFlatEdit;
Label40: TLabel;
procedure FormShow(Sender: TObject);
procedure Co_Query_CITYCODEChange(Sender: TObject);
procedure Co_Query_OFF_NO_HOMEChange(Sender: TObject);
procedure FlatButtonSearchClick(Sender: TObject);
procedure Btn_ModifyClick(Sender: TObject);
procedure Btn_SaveClick(Sender: TObject);
procedure Btn_ExitClick(Sender: TObject);
procedure FlatComboBox_CityNoChange(Sender: TObject);
procedure Btn_AddClick(Sender: TObject);
procedure Btn_DeleteClick(Sender: TObject);
procedure Btn_CancelClick(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
procedure FlatButton2Click(Sender: TObject);
procedure FlatButton6Click(Sender: TObject);
procedure FlatButton7Click(Sender: TObject);
procedure FlatButton8Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FlatButton3Click(Sender: TObject);
procedure FlatEdit_sidKeyPress(Sender: TObject; var Key: Char);
procedure PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);
procedure queryjtyhAfterScroll(DataSet: TDataSet);
procedure QueryCustInfoMemberAfterScroll(DataSet: TDataSet);
procedure QueryGroupMemoDayAfterScroll(DataSet: TDataSet);
procedure FlatCheckBox1Click(Sender: TObject);
procedure FlatEditbgExit(Sender: TObject);
procedure FED_NameKeyPress(Sender: TObject; var Key: Char);
procedure FlatCheckBox_SMS_FLAGClick(Sender: TObject);
private
{ Private declarations }
iSign:Integer;
// PL_JTYHDM : string;
Procedure ButtonVisible(pStatus:Boolean);
public
{ Public declarations }
end;
var
Form_ArchivesGroupInfo: TForm_ArchivesGroupInfo;
do_number,CustInfoMember_do_number,GroupMemoDay_do_number:string;
implementation
uses dmmain,main,Unit_Public;
//按钮控制
function Fun_ButtonStatus(pFormName:TForm;pStatus:Boolean=False):Boolean;stdcall;export;external'winfun.dll';
//输框状态控制
Function Fun_ComponentStatus(pFormName:TForm;pStatusStyle:Integer=0;pStatus:Boolean=False;pObject:TObject=Nil):Integer;stdCall;external'winfun.dll';
{$R *.DFM}
Procedure TForm_ArchivesGroupInfo.ButtonVisible(pStatus:Boolean);
Begin
Btn_Add.Visible:=pStatus; //增加
Btn_Delete.Visible:=pStatus; //删除
Btn_Modify.Visible:=pStatus; //修改
Btn_Save.Visible:=pStatus; //保存
Btn_Cancel.Visible:=pStatus; //取消
End;
procedure TForm_ArchivesGroupInfo.FormShow(Sender: TObject);
begin
FormMain.StatusBarMain.Panels[1].Text := '集团用户管理';
FormMain.Update;
FlatEditGroupId.Text := '' ;
//初始化集团代码的变量，由于本模块也是其他的模块的调用模块（公共模块）
//所以这个变量主要是用于其他的模块传入参数用的。
// modify by zengzc 2002 08 26
if PanelLeft.Width <= 100 then //小于一个随意大于1的值
begin
PanelLeft.Width := 185 ; //防止由其他的窗口调用档案
Self.Width := Self.Width + 185 ;
//把窗口的大小恢复到原来的大小，modify by zengzc 2002 08 26
//注意本语句一定要使用否则会出现错误。
// 恢复原来的窗体大小
end;
Pro_GFillInitValue(Self,' ');
Fun_GetCity(Co_Query_CITYCODE ,' ',0,PS_CITYNAME);//初始化地市
Fun_GetCity(FlatComboBox_CityNo,' ',0,PS_CITYNAME);//初始化地市
Co_Query_CITYCODEChange(Sender);
Fun_ComponentStatus(Self,0,False);
Fun_ButtonStatus(Self,False);
FlatComboBoxhy.Enabled:=True;
// FlatComboBoxgh.Enabled:=True;
Btn_Modify.Enabled:=False;
Btn_Delete.Enabled:=False;
PageControl1.ActivePageIndex:=0;
Fun_Purview(Self,JBDM);
FlatEditbg.Text:=FormatDateTime('YYYY-MM',Date)+'-01';
FlatEditen.Text:=FormatDateTime('YYYY-MM-DD',Date);
FED_Name.SetFocus;
end;
procedure TForm_ArchivesGroupInfo.Co_Query_CITYCODEChange(Sender: TObject);
begin
Fun_GetCounty(Co_Query_OFF_NO_HOME,'',Co_Query_CITYCODE.Text,0,PS_HomeName);
Fun_GetCounty(FlatComboBox_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.FlatButtonSearchClick(Sender: TObject);
begin
with queryjtyh do
begin
if Active then close;
DisableControls;
SQL.clear;
sql.add(' SELECT JTYHDM,JTYHMC,SID,GH,JTLB,HYDM,LXR,JTQTJJ,CITYNO,Off_No_Home,ADDR,BGN_YH,END_YH,YHBL,YHGH,QID,VIP_NO,PASSWORD,VPNID,VPNJG,GROUPFLAG,JTBZ,DESCIPTION,FAX,POSTCODE,');
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 JTBZ<>1 And CITYNO=:CITYNO and Off_No_Home=:Off_No_Home ');
parambyname('CITYNO').asstring:=Fun_GetCity(Co_Query_CITYCODE,'',1);
parambyname('Off_No_Home').asstring:=Fun_GetCounty(Co_Query_OFF_NO_HOME,'',Co_Query_CITYCODE.text,1);
////////////////////////////////////////////////////////////
// 外围参数
if trim(FlatEditGroupId.Text) <> '' then
Sql.Add(' and JTYHDM='+FlatEditGroupId.Text+' ');
//传入参数写在这个地方，初始化的时候是''
// modify by zengzc 2002 08 26
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 Trim(FlatEditGH.Text) <> '' then
begin
sql.add(' and GH=:GH');
parambyname('GH').asstring:=Trim(FlatEditGH.Text);
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
begin
sql.add(' and HYDM=:HYDM');
parambyname('HYDM').asstring:=Fun_GetCodeName(FlatComboBoxhy);
end;
If Trim(FED_Name.Text)<>'' Then
SQL.Add(' And Jtyhmc Like ''%'+Trim(FED_Name.Text)+'%''');
open;
EnableControls;
end;
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
Fun_ComponentStatus(Self,1,False,Panel3); //清除集团集息控件资料
Btn_Add.enabled:=true;
Btn_Modify.enabled:=false;
Btn_Delete.enabled:=false;
Btn_Save.enabled:=false;
Btn_Cancel.enabled:=false;
End;
end;
procedure TForm_ArchivesGroupInfo.Btn_ModifyClick(Sender: TObject);
begin
Panelleft.Enabled:=False;
iSign:=2;
Case PageControl1.ActivePageIndex Of
0:
Begin
Fun_ButtonStatus(Self,True); //初始化按扭状态
Fun_ComponentStatus(Self,0,True,Panel3); //激活集团信息控件
FlatEdit_JTYHMC.SetFocus;
End;
1:
Begin
End;
2:
Begin
If QueryCustInfoMember.IsEmpty Then
Begin
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -