jtyh.pas

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

unit jtyh;

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;

type
  TForm_ArchivesGroupInfo = class(TForm)
    Panelleft: TPanel;
    Splitter1: TSplitter;
    Panel1: TPanel;
    FlatPanelda: TFlatPanel;
    Querytemp: TQuery;
    Splitter2: TSplitter;
    Panel4: TPanel;
    Label89: TLabel;
    Label90: TLabel;
    Co_Query_CITYCODE: TFlatComboBox;
    Co_Query_OFF_NO_HOME: TFlatComboBox;
    Label32: TLabel;
    FlatComboBoxarea1: TFlatComboBox;
    FlatComboBoxgh: TFlatComboBox;
    FlatComboBoxhy: TFlatComboBox;
    FlatButton1: TFlatButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel3: TPanel;
    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;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label31: TLabel;
    Label15: TLabel;
    FlatEditjtyhdm: TFlatEdit;
    FlatEditJTYHMC: TFlatEdit;
    FlatComboBoxgh1: TFlatComboBox;
    FlatComboBoxJTLB: TFlatComboBox;
    FlatComboBoxHYDM: TFlatComboBox;
    FlatEditLXR: TFlatEdit;
    FlatComboBoxCityNo: TFlatComboBox;
    FlatComboBoxJX: TFlatComboBox;
    FlatEditADDR: TFlatEdit;
    FlatEditBGN_YH: TFlatEdit;
    FlatEditEND_YH: TFlatEdit;
    FlatEditYHBL: TFlatEdit;
    FlatComboBoxYHGH: TFlatComboBox;
    FlatEditVIP_NO: TFlatEdit;
    FlatEditPASSWORD: TFlatEdit;
    FlatEditVPNID: TFlatEdit;
    FlatEditVPNJG: TFlatEdit;
    FlatEditVPNBEGINDATA: TFlatEdit;
    FlatEditVPNENDDATA: TFlatEdit;
    FlatEditBe_G_Date: TFlatEdit;
    FlatEditEn_G_Date: TFlatEdit;
    FlatComboBoxGroupFlag: TFlatComboBox;
    FlatComboBoxJTBZ: TFlatComboBox;
    FlatMemoJTQTJJ: TFlatMemo;
    FlatComboBoxQID: TFlatComboBox;
    Splitter3: TSplitter;
    Panelbotton: TPanel;
    Label1: TLabel;
    Panel2: TPanel;
    Btn_Add: TFlatButton;
    Btn_Modify: TFlatButton;
    Btn_Delete: TFlatButton;
    Btn_Save: TFlatButton;
    Btn_Cancel: TFlatButton;
    Btn_Exit: TFlatButton;
    FlatEditbg: TFlatEdit;
    FlatEditen: TFlatEdit;
    Label35: TLabel;
    Label36: TLabel;
    FlatCheckBox1: TFlatCheckBox;
    queryjtyh: TQuery;
    DataSourcejtyh: TDataSource;
    Splitter4: TSplitter;
    DBGridjtyh: TDBGrid;
    Panel5: TPanel;
    Splitter5: TSplitter;
    Panel6: TPanel;
    DBGridt_f_custinfo: TDBGrid;
    Queryt_f_custinfo: TQuery;
    DataSourcet_f_custinfo: TDataSource;
    Label33: TLabel;
    Label34: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    FlatButton2: TFlatButton;
    FlatButton3: TFlatButton;
    TabSheet3: TTabSheet;
    Panel7: TPanel;
    Label39: TLabel;
    FlatEditjtymc1: TFlatEdit;
    FlatEditjtyhdm1: TFlatEdit;
    Label40: TLabel;
    Label41: TLabel;
    FlatEditINFOCODE: TFlatEdit;
    Label42: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    FlatEditINFONAME: TFlatEdit;
    FlatEditINFOSID: TFlatEdit;
    FlatComboBoxINFOGENDER: TFlatComboBox;
    FlatEditPHONE: TFlatEdit;
    FlatComboBoxEDUCODE: TFlatComboBox;
    Label45: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    FlatEditINFOJOB: TFlatEdit;
    FlatEditINFOADDR: TFlatEdit;
    FlatEditINFOPOSTCODE: TFlatEdit;
    FlatEditEMAIL: TFlatEdit;
    FlatEditIDCARD: TFlatEdit;
    FlatEditINFOBIRTH: TFlatEdit;
    DataSourceCustInfoMember: TDataSource;
    QueryCustInfoMember: TQuery;
    FlatEditgh: TFlatEdit;
    Label53: TLabel;
    Panel8: TPanel;
    DBGridCustInfoMember: TDBGrid;
    FlatPanel1: TFlatPanel;
    FlatButtoncancel1: TFlatButton;
    FlatButtonok1: TFlatButton;
    PopupMenu1: TPopupMenu;
    ImageList1: TImageList;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    Label54: TLabel;
    TabSheet4: TTabSheet;
    Label55: TLabel;
    Panel9: TPanel;
    Label57: TLabel;
    Label58: TLabel;
    Label59: TLabel;
    Label63: TLabel;
    FlatEditjtyhmc2: TFlatEdit;
    FlatEditjtyhdm2: TFlatEdit;
    Label64: TLabel;
    FlatEditGMEMO_SDATE: TFlatEdit;
    FlatEditGMEMO_EDATE: TFlatEdit;
    Label65: TLabel;
    FlatEditGMEMO_NAME: TFlatEdit;
    FlatMemoGMEMO_MEMO: TFlatMemo;
    Panel10: TPanel;
    DBGridQueryGroupMemoDay: TDBGrid;
    FlatPanel2: TFlatPanel;
    FlatButton4: TFlatButton;
    FlatButton5: TFlatButton;
    PopupMenu2: TPopupMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    QueryGroupMemoDay: TQuery;
    DataSourceQueryGroupMemoDay: TDataSource;
    Label56: TLabel;
    FlatEditsid: TFlatEdit;
    procedure FormShow(Sender: TObject);
    procedure FlatCheckBox1Click(Sender: TObject);
    procedure Co_Query_CITYCODEChange(Sender: TObject);
    procedure Co_Query_OFF_NO_HOMEChange(Sender: TObject);
    procedure FlatButton1Click(Sender: TObject);
    procedure Btn_ModifyClick(Sender: TObject);
    procedure Btn_SaveClick(Sender: TObject);
    procedure Btn_ExitClick(Sender: TObject);
    procedure FlatComboBoxCityNoChange(Sender: TObject);
    procedure FlatComboBoxJXChange(Sender: TObject);
    procedure Btn_AddClick(Sender: TObject);
    procedure DataSourcejtyhDataChange(Sender: TObject; Field: TField);
    procedure Btn_DeleteClick(Sender: TObject);
    procedure Btn_CancelClick(Sender: TObject);
    procedure FlatEditVPNJGKeyPress(Sender: TObject; var Key: Char);
    procedure PageControl1Change(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
    procedure DataSourceCustInfoMemberDataChange(Sender: TObject;
      Field: TField);
    procedure N1Click(Sender: TObject);
    procedure FlatButtonok1Click(Sender: TObject);
    procedure FlatButtoncancel1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure MenuItem1Click(Sender: TObject);
    procedure FlatButton5Click(Sender: TObject);
    procedure FlatButton4Click(Sender: TObject);
    procedure MenuItem2Click(Sender: TObject);
    procedure MenuItem3Click(Sender: TObject);
    procedure DataSourceQueryGroupMemoDayDataChange(Sender: TObject;
      Field: TField);
   
  private
    { Private declarations }
    procedure select_jtyh;
    procedure update_jtyh;
    procedure insert_jtyh;
    procedure select_CustInfoMember;
    procedure clear_CustInfoMember;
    procedure clearin;
    procedure set_enable(flag:boolean);
    procedure set_color(flag:Tcolor);
    procedure CustInfoMember_color(flag:tcolor);
    procedure CustInfoMember_enable(flag:boolean);
    procedure insert_CustInfoMember;
    procedure update_CustInfoMember;
    procedure  clear_GroupMemoDay;
    procedure enabled_GroupMemoDay(flag:boolean);
    procedure color_GroupMemoDay(flag:tcolor);
  public
    { Public declarations }
  end;

var
  Form_ArchivesGroupInfo: TForm_ArchivesGroupInfo;
  do_number,CustInfoMember_do_number,GroupMemoDay_do_number:string; 
implementation
 uses dmmain,main,Unit_Public;
{$R *.DFM}

procedure TForm_ArchivesGroupInfo.FormShow(Sender: TObject);
begin

 FlatComboBoxhy.ItemIndex:=0;
 FlatComboBoxgh.ItemIndex:=0;
//Pro_GFillInitValue(self);//初始化
Pro_GFillInitValue(Self,'所有');
Fun_GetCity(Co_Query_CITYCODE ,' ',0,PS_CITYNAME);//初始化地市
Fun_GetCity(FlatComboBoxCityNo,' ',0,PS_CITYNAME);//初始化地市
Co_Query_CITYCODEChange(Sender);FlatComboBoxCityNoChange(Sender);
Co_Query_OFF_NO_HOMEChange(Sender);FlatComboBoxJXChange(Sender);
if PS_CityNo<>'590' then
   begin
      Co_Query_CITYCODE.enabled:=false;
      FlatComboBoxCityNo.enabled:=false;
   end
else
   begin
      Co_Query_CITYCODE.enabled:=true;
      FlatComboBoxCityNo.enabled:=true;
      if JBDM>0 THEN
         begin
           FlatComboBoxCityNo.enabled:=false;
           Co_Query_CITYCODE.enabled:=false;
         end
      ELSE
         begin
           FlatComboBoxCityNo.enabled:=TRUE;
           Co_Query_CITYCODE.enabled:=true;
         end;
      
   end;

//Fun_GetCounty(FlatComboBoxJX);
//--
       FlatEditjtyhdm.enabled:=false;
       FlatComboBoxhy.ItemIndex:=0;
       FlatComboBoxgh.ItemIndex:=0;
       FlatComboBoxJTBZ.ItemIndex:=0;
       FlatComboBoxGroupFlag.ItemIndex:=0;      
       FlatCheckBox1Click(Sender);
       clearin;
       set_enable(false);
       set_color(clmenu);
//--
end;

procedure TForm_ArchivesGroupInfo.FlatCheckBox1Click(Sender: TObject);
begin
FlatEditen.Visible:=(FlatCheckBox1.Checked);
FlatEditbg.Visible:=(FlatCheckBox1.Checked);
label35.Visible:=(FlatCheckBox1.Checked);
label36.Visible:=(FlatCheckBox1.Checked);
end;

procedure TForm_ArchivesGroupInfo.clearin;
begin
       FlatEditsid.text:='';
       Flateditjtyhdm.text:='';
       FlatEditJTYHMC.text:='';
       FlatEditLXR.text:='';
       FlatEditADDR.text:='';
       FlatEditBGN_YH.text:='0';
       FlatEditEND_YH.text:='0';
       FlatEditYHBL.text:='0';
       FlatEditVIP_NO.text:='';
       FlatEditPASSWORD.text:='';
       FlatEditVPNID.text:='0';
       FlatEditVPNJG.text:='0';
       FlatEditVPNBEGINDATA.text:=formatdatetime('YYYY-MM-DD',DATE());
       FlatEditVPNENDDATA.text:=formatdatetime('YYYY-MM-DD',DATE());;
       FlatEditBe_G_Date.text:=formatdatetime('YYYY-MM-DD',DATE());;
       FlatEditEn_G_Date.text:=formatdatetime('YYYY-MM-DD',DATE());;
       FlatMemoJTQTJJ.lines.clear;
end;

procedure TForm_ArchivesGroupInfo.set_color(flag:Tcolor);
begin
       FlatEditsid.colorflat:=flag;
       FlatEditJTYHMC.colorflat:=flag;
       FlatEditLXR.colorflat:=flag;
       FlatEditADDR.colorflat:=flag;
       FlatEditBGN_YH.colorflat:=flag;
       FlatEditEND_YH.colorflat:=flag;
       FlatEditYHBL.colorflat:=flag;
       FlatEditVIP_NO.colorflat:=flag;
       FlatEditPASSWORD.colorflat:=flag;
       FlatEditVPNID.colorflat:=flag;
       FlatEditVPNJG.colorflat:=flag;
       FlatEditVPNBEGINDATA.colorflat:=flag;
       FlatEditVPNENDDATA.colorflat:=flag;
       FlatEditBe_G_Date.colorflat:=flag;
       FlatEditEn_G_Date.colorflat:=flag;
       FlatMemoJTQTJJ.colorflat:=flag;