unit_archivescustinfo.pas

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

//模块名称      : 大客户档案管理

unit unit_ArchivesCustInfo;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, DBCtrls, Buttons, TFlatComboBoxUnit, ExtCtrls,
  TFlatEditUnit, Mask, Grids, DBGrids, TFlatMemoUnit, TeEngine, Series,
  TeeProcs, Chart, DBChart, TFlatCheckListBoxUnit, TFlatButtonUnit,
  TFlatCheckBoxUnit, Db, DBTables, TFlatSpinEditUnit, TFlatPanelUnit,
  TFlatSpeedButtonUnit, ComObj , inifiles;

type
  TFrm_ArchivesCustInfo = class(TForm)
    PanelLeft: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    Btn_Add: TFlatButton;
    Panel_Cust_Info: TPanel;
    Btn_Modify: TFlatButton;
    Btn_Delete: TFlatButton;
    Btn_Save: TFlatButton;
    Btn_Cancel: TFlatButton;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    Co_XB: TFlatComboBox;
    Label9: TLabel;
    Label14: TLabel;
    Ed_sr: TFlatEdit;
    Label31: TLabel;
    Ed_JFD: TFlatEdit;
    Label34: TLabel;
    Label35: TLabel;
    Ed_vip_no: TFlatEdit;
    Ed_vip_pw: TFlatEdit;
    Label36: TLabel;
    Label37: TLabel;
    Ed_VIP_EFFECT: TFlatEdit;
    Label41: TLabel;
    Ed_SDATE: TFlatEdit;
    Panel7: TPanel;
    Btn_Print: TFlatButton;
    Btn_Exit: TFlatButton;
    Label42: TLabel;
    Ed_GH: TFlatEdit;
    Label46: TLabel;
    Label47: TLabel;
    TabSheet3: TTabSheet;
    Ed_fksj: TFlatEdit;
    Label39: TLabel;
    Label4: TLabel;
    Label18: TLabel;
    Label48: TLabel;
    Label49: TLabel;
    Label55: TLabel;
    Co_stat: TFlatComboBox;
    Ed_LXDH: TFlatEdit;
    Co_OFF_NO_HOME: TFlatComboBox;
    Co_DJDM: TFlatComboBox;
    Co_CITYNO: TFlatComboBox;
    Chk_CONF: TFlatCheckBox;
    Co_jtyhdm: TFlatComboBox;
    Co_Fdjdm: TFlatComboBox;
    Co_user_zjbs: TFlatComboBox;
    DBGrid2: TDBGrid;
    Label69: TLabel;
    Label73: TLabel;
    Label86: TLabel;
    Label88: TLabel;
    DBGrid_Normal: TDBGrid;
    Panel13: TPanel;
    Co_Query_CITYCODE: TFlatComboBox;
    Label71: TLabel;
    Btn_Query_Normal: TFlatButton;
    Label89: TLabel;
    Label90: TLabel;
    Co_Query_OFF_NO_HOME: TFlatComboBox;
    Label91: TLabel;
    Co_Query_GRADE_ID: TFlatComboBox;
    Label92: TLabel;
    Ed_Wk_No: TFlatEdit;
    Ed_Query_Sid: TFlatEdit;
    Co_Query_Property: TFlatComboBox;
    Label93: TLabel;
    Query_Normal: TQuery;
    DataSource_Normal: TDataSource;
    Query_qsb: TQuery;
    Label94: TLabel;
    Co_SXDM: TFlatComboBox;
    Ed_NLSR: TFlatEdit;
    Label3: TLabel;
    Label13: TLabel;
    Ed_ACT_USER: TFlatEdit;
    Label23: TLabel;
    Ed_ADDR: TFlatEdit;
    Label10: TLabel;
    Ed_ZJHM: TFlatEdit;
    Label25: TLabel;
    Ed_POSTCODE: TFlatEdit;
    Label56: TLabel;
    Ed_zw: TFlatEdit;
    Ed_EMAIL: TFlatEdit;
    Ed_FAX: TFlatEdit;
    Label26: TLabel;
    Label27: TLabel;
    Label5: TLabel;
    Ed_GXSJ: TFlatEdit;
    Label8: TLabel;
    Ed_BE_DH_T: TFlatEdit;
    Label12: TLabel;
    Ed_zy: TFlatEdit;
    TabSheet2: TTabSheet;
    Panel46: TPanel;
    Query_jtyh: TQuery;
    QueryHIS: TQuery;
    DataSourceHIS: TDataSource;
    SERV: TDataSource;
    QuerySERV: TQuery;
    DataSourceqsb: TDataSource;
    Querygxb: TQuery;
    DataSourcegxb: TDataSource;
    TabSheet8: TTabSheet;
    Panel5: TPanel;
    DataSourcecw_gsm_izd: TDataSource;
    Querycw_gsm_izd: TQuery;
    SaveDialog1: TSaveDialog;
    btn_outvip: TFlatButton;
    DBGrid3: TDBGrid;
    Panel6: TPanel;
    FlatButton1: TFlatButton;
    QueryAccGsm: TQuery;
    Quy_temp: TQuery;
    PageControlMain: TPageControl;
    TabSheetUSER: TTabSheet;
    Panel_accsid: TPanel;
    Label72: TLabel;
    Label63: TLabel;
    Panel_acc: TPanel;
    Label75: TLabel;
    Label76: TLabel;
    Label77: TLabel;
    Label78: TLabel;
    Label79: TLabel;
    Label80: TLabel;
    Label81: TLabel;
    Label82: TLabel;
    Label85: TLabel;
    Label95: TLabel;
    Label96: TLabel;
    Label113: TLabel;
    Label119: TLabel;
    Label68: TLabel;
    Label120: TLabel;
    edacc_SDATE: TFlatEdit;
    cbacc_off_no_home: TFlatComboBox;
    cbacc_USER_ZJBS: TFlatComboBox;
    edacc_xyd: TFlatEdit;
    edacc_TEL: TFlatEdit;
    edacc_POSTCODE: TFlatEdit;
    edacc_addr: TFlatEdit;
    edacc_WW_EDATE: TFlatEdit;
    edacc_user_id: TFlatEdit;
    edacc_IDCARD: TFlatEdit;
    cbacc_stat: TFlatComboBox;
    edacc_RLN_NAME: TFlatEdit;
    edacc_RLN_TEL: TFlatEdit;
    edacc_WW_SN: TFlatEdit;
    edacc_TERM_SN: TFlatEdit;
    Panelacc_fun: TPanel;
    DBCheckBox1: TDBCheckBox;
    ckacc_fun3: TFlatCheckBox;
    ckacc_fun4: TFlatCheckBox;
    ckacc_fun5: TFlatCheckBox;
    ckacc_fun6: TFlatCheckBox;
    ckacc_fun7: TFlatCheckBox;
    ckacc_fun8: TFlatCheckBox;
    ckacc_fun9: TFlatCheckBox;
    ckacc_fun10: TFlatCheckBox;
    ckacc_fun11: TFlatCheckBox;
    ckacc_fun12: TFlatCheckBox;
    ckacc_fun13: TFlatCheckBox;
    ckacc_fun14: TFlatCheckBox;
    ckacc_fun15: TFlatCheckBox;
    ckacc_fun18: TFlatCheckBox;
    ckacc_fun19: TFlatCheckBox;
    TabSheetQTZL: TTabSheet;
    Panel8: TPanel;
    Label57: TLabel;
    Label64: TLabel;
    Panel_qtzl: TPanel;
    Label122: TLabel;
    Label123: TLabel;
    Label124: TLabel;
    Label125: TLabel;
    Label126: TLabel;
    Label127: TLabel;
    Label128: TLabel;
    Label129: TLabel;
    edacc_MODI_REASON: TFlatEdit;
    edacc_DB_NAME: TFlatEdit;
    edacc_DB_TEL: TFlatEdit;
    edacc_MODI_DATE: TFlatEdit;
    edacc_DB_IDCARD: TFlatEdit;
    edacc_DB_ADDR: TFlatEdit;
    FlatEdit23: TFlatEdit;
    edacc_ACC_SRL_HIS: TFlatEdit;
    TabSheetFKZL: TTabSheet;
    Panel11: TPanel;
    Label60: TLabel;
    Label67: TLabel;
    Panelacc_fkzl: TPanel;
    Label131: TLabel;
    Label132: TLabel;
    Label133: TLabel;
    Label134: TLabel;
    Label135: TLabel;
    Label136: TLabel;
    Label137: TLabel;
    Label138: TLabel;
    Label139: TLabel;
    Label140: TLabel;
    cbacc_user_fkfs: TFlatComboBox;
    edacc_BANK: TFlatEdit;
    edacc_ACNT_NAME: TFlatEdit;
    edacc_TFJ_DATE: TFlatEdit;
    edacc_FKFS_SDATE: TFlatEdit;
    edacc_ACCOUNT_ID: TFlatEdit;
    edacc_BANK_CID: TFlatEdit;
    edacc_cz_xyd: TFlatEdit;
    edacc_QT_XYD: TFlatEdit;
    cbacc_CZ_LB: TFlatComboBox;
    TabSheet9: TTabSheet;
    Panel16: TPanel;
    LabelZje: TLabel;
    LabelZxzje: TLabel;
    LabelZqfje: TLabel;
    Label142: TLabel;
    Label143: TLabel;
    Label144: TLabel;
    Panel15: TPanel;
    Label141: TLabel;
    Label74: TLabel;
    FlatSpeedButton1: TFlatSpeedButton;
    DBGrid1: TDBGrid;
    Label97: TLabel;
    FlatEdit1: TFlatEdit;
    TabSheet10: TTabSheet;
    Panel1: TPanel;
    PageControl2: TPageControl;
    TabSheet12: TTabSheet;
    TabSheet13: TTabSheet;
    DBGrid6: TDBGrid;
    DBGrid7: TDBGrid;
    Query_CzMoney: TQuery;
    DataSourceCzMoney: TDataSource;
    Query_MonthMoney: TQuery;
    DataSourceMonthMoney: TDataSource;
    Query_AvgMoney: TQuery;
    DataSourceAvgMoney: TDataSource;
    Query_OwrFee: TQuery;
    DataSourceOwrFee: TDataSource;
    TabSheet15: TTabSheet;
    Panel_RObject: TPanel;
    DBGrid_RObject: TDBGrid;
    panel_gxb: TPanel;
    Label70: TLabel;
    cbgx_INDISEQ: TFlatComboBox;
    megx_LR: TFlatMemo;
    Label59: TLabel;
    Label87: TLabel;
    cbgx_INDICODE: TFlatComboBox;
    megx_BZ: TFlatMemo;
    Label52: TLabel;
    Label107: TLabel;
    FEDR_Sid: TFlatEdit;
    FEDR_LINKMAN: TFlatEdit;
    Label111: TLabel;
    Label112: TLabel;
    FEDR_LINKSID: TFlatEdit;
    Label121: TLabel;
    FedR_LINKTEL: TFlatEdit;
    Label130: TLabel;
    FEDR_LINKADDR: TFlatEdit;
    Label146: TLabel;
    FEDR_POSTCODE: TFlatEdit;
    Label147: TLabel;
    FCBR_LINKTYPE: TFlatComboBox;
    Query_RObject: TQuery;
    DataSource_RObject: TDataSource;
    Panel_qsb: TPanel;
    Label83: TLabel;
    Label98: TLabel;
    Label99: TLabel;
    Label100: TLabel;
    Label106: TLabel;
    Label108: TLabel;
    Label109: TLabel;
    Label110: TLabel;
    ecqs_name: TFlatEdit;
    cbqs_sex: TFlatComboBox;
    edqs_tel: TFlatEdit;
    edqs_Addr: TFlatEdit;
    cbqs_Rel_Type: TFlatComboBox;
    meqs_Intro: TFlatMemo;
    edqs_Job: TFlatEdit;
    DateTimePicker_BIRTHDAY: TDateTimePicker;
    DBGrid4: TDBGrid;
    TabSheet16: TTabSheet;
    Panel9: TPanel;
    Panel10: TPanel;
    Panel_Appeal: TPanel;
    Panel_FeedBack: TPanel;
    DBGrid_Appeal: TDBGrid;
    DBGrid_FeedBack: TDBGrid;
    Panel17: TPanel;
    Panel18: TPanel;
    Label84: TLabel;
    dtpED_AppTime: TDateTimePicker;
    Label148: TLabel;
    dtpED_ReplyTime: TDateTimePicker;
    Label149: TLabel;
    coED_AppLevel: TFlatComboBox;
    Label150: TLabel;
    COED_Subject_No: TFlatComboBox;
    Label151: TLabel;
    meED_AppContent: TFlatMemo;
    Label152: TLabel;
    meED_Intro: TFlatMemo;
    Label153: TLabel;
    edEDCL_WK_NO: TFlatEdit;
    Label154: TLabel;
    coEDCL_QUALITYCODE: TFlatComboBox;
    Label155: TLabel;
    dtpEDCL_DEALTIME: TDateTimePicker;
    Label156: TLabel;
    meEDCL_DEALCONTENT: TFlatMemo;
    Label157: TLabel;
    meEDCL_CUSTOPIN: TFlatMemo;
    Query_Appeal: TQuery;
    DataSource_Appeal: TDataSource;
    Query_FeedBack: TQuery;
    DataSource_FeedBack: TDataSource;
    Panel_Other: TPanel;
    Label7: TLabel;
    Label40: TLabel;
    Label11: TLabel;
    Label17: TLabel;
    Label6: TLabel;
    Label22: TLabel;
    ed_HOMEADDR: TFlatEdit;
    Ed_HOMETEL: TFlatEdit;
    ed_RLN_NAME: TFlatEdit;
    Ed_YDAB: TFlatEdit;
    cb_DJSJBZ: TFlatComboBox;
    Ed_LXDZ: TFlatEdit;
    Panel_fkzl: TPanel;
    Label16: TLabel;
    Label21: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    FlatEdit15: TFlatEdit;
    FlatEdit16: TFlatEdit;
    FlatEdit17: TFlatEdit;
    FlatEdit18: TFlatEdit;
    cb_user_fkfs: TFlatComboBox;
    FlatEdit12: TFlatEdit;
    FlatEdit13: TFlatEdit;
    Panel_jtyh: TPanel;
    Label65: TLabel;
    Label66: TLabel;
    Label32: TLabel;
    Label33: TLabel;