yd_acc_gsm.pas

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

unit yd_acc_gsm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ExtCtrls, Menus, Grids, StdCtrls, Mask, DBCtrls, DBTables,
  Buttons, Db, DBGrids , ComObj , inifiles, TFlatEditUnit,
  TFlatComboBoxUnit, TFlatCheckBoxUnit, TFlatSpeedButtonUnit,
  TFlatButtonUnit;

type
  TFormACC_GSM = class(TForm)
    Panel1: TPanel;
    Panel4: TPanel;
    Querycw_gsm_izd: TQuery;
    Querycw_gsm_izdSID: TFloatField;
    Querycw_gsm_izdCZ_DATE: TDateTimeField;
    Querycw_gsm_izdGK_JE: TFloatField;
    Querycw_gsm_izdGKZNJ_JE: TFloatField;
    Querycw_gsm_izdZZD_JE: TFloatField;
    Querycw_gsm_izdXZ_JE: TFloatField;
    Querycw_gsm_izdZNJ_JE: TFloatField;
    Querycw_gsm_izdXZ_DATE: TDateTimeField;
    Querycw_gsm_izdXZ_BZ: TFloatField;
    Querycw_gsm_izdBA_JE: TFloatField;
    Querycw_gsm_izdFJGN_JE: TFloatField;
    Querycw_gsm_izdWW_JE: TFloatField;
    Querycw_gsm_izdSH_JE: TFloatField;
    Querycw_gsm_izdNH_JE: TFloatField;
    Querycw_gsm_izdCH_JE: TFloatField;
    Querycw_gsm_izdFJ_JE: TFloatField;
    Querycw_gsm_izdGJ_JE: TFloatField;
    Querycw_gsm_izdSNSH_JE: TFloatField;
    Querycw_gsm_izdSNNH_JE: TFloatField;
    Querycw_gsm_izdSNCH_JE: TFloatField;
    Querycw_gsm_izdSNFJ_JE: TFloatField;
    Querycw_gsm_izdSNGJ_JE: TFloatField;
    Querycw_gsm_izdSJSH_JE: TFloatField;
    Querycw_gsm_izdSJCH_JE: TFloatField;
    Querycw_gsm_izdSJFJ_JE: TFloatField;
    Querycw_gsm_izdSJNH_JE: TFloatField;
    Querycw_gsm_izdSJGJ_JE: TFloatField;
    Querycw_gsm_izdGMTH_JE: TFloatField;
    Querycw_gsm_izdGMCH_JE: TFloatField;
    Querycw_gsm_izdXZ_ERRO: TFloatField;
    Querycw_gsm_izdUSER_ZJBS: TStringField;
    Querycw_gsm_izdXZBZ: TStringField;
    DataSourcecw_gsm_izd: TDataSource;
    QueryXZ_BZ: TQuery;
    SaveDialog1: TSaveDialog;
    Table1: TTable;
    Querycw_gsm_izdYW_JE: TFloatField;
    Querycw_gsm_izdDK_JE: TFloatField;
    Querycw_gsm_izdZD_JE: TFloatField;
    Querycw_gsm_izdZYH_JE: TFloatField;
    PageControlMain: TPageControl;
    TabSheetUSER: TTabSheet;
    Panel_accsid: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    Label68: TLabel;
    Panel_acc: TPanel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label67: TLabel;
    Panel12: TPanel;
    Label30: TLabel;
    Label31: TLabel;
    Label35: TLabel;
    DBEdLXDH: TDBEdit;
    DBEdJSXH: TDBEdit;
    TabSheetQTZL: TTabSheet;
    Panel8: TPanel;
    Label9: TLabel;
    Panel_qtzl: TPanel;
    Label11: TLabel;
    Label12: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label43: TLabel;
    TabSheetFKZL: TTabSheet;
    Panel3: TPanel;
    Label1: TLabel;
    Panel_fkzl: TPanel;
    Label7: TLabel;
    Label8: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    Label58: TLabel;
    Label59: TLabel;
    TabSheet1: TTabSheet;
    Panel10: TPanel;
    Label3: TLabel;
    DBGrid1: TDBGrid;
    Panel14: TPanel;
    LabelZje: TLabel;
    LabelZxzje: TLabel;
    LabelZqfje: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    LabelZNJ: TLabel;
    edacc_name: TFlatEdit;
    edacc_WW_SN: TFlatEdit;
    edacc_SDATE: TFlatEdit;
    cbacc_off_no_home: TFlatComboBox;
    cbacc_USER_ZJBS: TFlatComboBox;
    edacc_xyd: TFlatEdit;
    edacc_qtxyd: TFlatEdit;
    edacc_TEL: TFlatEdit;
    edacc_POSTCODE: TFlatEdit;
    edacc_addr: TFlatEdit;
    edacc_WW_EDATE: TFlatEdit;
    edacc_user_id: TFlatEdit;
    edacc_IDCARD: TFlatEdit;
    cbacc_stat: TFlatComboBox;
    Panel_lxr: TPanel;
    Label15: TLabel;
    Label16: TLabel;
    Label26: TLabel;
    edacc_RLN_NAME: TFlatEdit;
    edacc_RLN_TEL: TFlatEdit;
    edacc_TERM_SN: TFlatEdit;
    Panel_Fun: TPanel;
    DBCBSLMY: TDBCheckBox;
    chk_fun3: TFlatCheckBox;
    chk_fun4: TFlatCheckBox;
    chk_fun5: TFlatCheckBox;
    chk_fun6: TFlatCheckBox;
    chk_fun7: TFlatCheckBox;
    chk_fun8: TFlatCheckBox;
    chk_fun9: TFlatCheckBox;
    chk_fun10: TFlatCheckBox;
    chk_fun11: TFlatCheckBox;
    chk_fun12: TFlatCheckBox;
    chk_fun13: TFlatCheckBox;
    chk_fun14: TFlatCheckBox;
    chk_fun15: TFlatCheckBox;
    chk_fun18: TFlatCheckBox;
    chk_fun19: TFlatCheckBox;
    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;
    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;
    Btn_Exit: TFlatButton;
    FlatButton1: TFlatButton;
    FlatSpeedButton1: TFlatSpeedButton;
    edacc_sid: TFlatEdit;
    procedure SetFunSTAT;
    procedure SetNull;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TabSheetQTZLShow(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
    procedure letdb;//显示数据
    procedure selectrecord;//查询档案
    function  let_dict(v1,v2:string):string;
    function  let_dict_hz(STR1,STR2:STRING):STRING;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure PageControlMainChange(Sender: TObject);

    procedure edacc_sidKeyPress(Sender: TObject; var Key: Char);
    procedure FlatSpeedButton1Click(Sender: TObject);
    procedure Btn_ExitClick(Sender: TObject);
    procedure FlatButton1Click(Sender: TObject);


  private
    { Private declarations }

  public

    JTMC: string;
    { Public declarations }
  end;

var
  FormACC_GSM: TFormACC_GSM;


implementation

uses dmmain,main,Unit_Public,unit_ArchivesCustInfo,crypt,selectviplx;
  //输框状态控制
//  Function Fun_ComponentStatus(pFormName:TForm;pStatusStyle:Integer=0;pStatus:Boolean=False):Integer;stdCall;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 TFormACC_GSM.letdb; // 填写信息
begin
  if  dm_main.QueryACC_GSM.Active=false then
    dm_main.QueryACC_GSM.Active:=true;

  Fun_ComponentStatus(self,0,True);  // 使输入框有效,用户可以输入数值
  ShowRecord(dm_main.QueryACC_GSM, Panel_accsid); //客户资料
  ShowRecord(dm_main.QueryACC_GSM, Panel_acc); //客户资料
  ShowRecord(dm_main.QueryACC_GSM, Panel_lxr);  //客户资料
  ShowRecord(dm_main.QueryACC_GSM, Panel_qtzl); //客户其它资料
  ShowRecord(dm_main.QueryACC_GSM, Panel_Fun); //客户业务资料
  ShowRecord(dm_main.QueryACC_GSM, Panel_fkzl); //客户付款方式资料
  edacc_sid.Text:=dm_main.QueryACC_GSM.FieldByName('sid').AsString;
  edacc_BANK.Text:=let_dict('BANK_ID',dm_main.QueryACC_GSM.FieldByName('BANK_ID').AsString);
  Fun_ComponentStatus(self,0,False)  // 使输入框无效,用户不可以输入数值
end;


procedure TFormACC_GSM.SetFunSTAT;
begin
 {if  dm_main.QueryACC_GSM.Active then
  with dm_main.QueryACC_GSM do
    begin
       if FieldByName('FUN3').AsString='1'  then  DBCBGJCQ.Checked:=true else DBCBGJCQ.Checked:=false;
       if FieldByName('FUN4').AsString='1'  then  DBCBSLMY.Checked:=true else DBCBSLMY.Checked:=false;
       if FieldByName('FUN5').AsString='1'  then  DBCBSJMY.Checked:=true else DBCBSJMY.Checked:=false;
       if FieldByName('FUN6').AsString='1'  then  DBCBGJMY.Checked:=true else DBCBGJMY.Checked:=false;
       if FieldByName('FUN7').AsString='1'  then  DBCBHJDD.Checked:=true else DBCBHJDD.Checked:=false;
       if FieldByName('FUN8').AsString='1'  then  DBCBSFTH.Checked:=true else DBCBSFTH.Checked:=false;
       if FieldByName('FUN9').AsString='1'  then  DBCBHJZY.Checked:=true else DBCBHJZY.Checked:=false;
       if FieldByName('FUN10').AsString='1' then  DBCBHJXZ.Checked:=true else DBCBHJXZ.Checked:=false;
       if FieldByName('FUN11').AsString='1' then  DBCBZJXS.Checked:=true else DBCBZJXS.Checked:=false;
       if FieldByName('FUN12').AsString='1' then  DBCBDXX.Checked:=true else DBCBDXX.Checked:=false;
       if FieldByName('FUN13').AsString='1' then  DBCBYYXX.Checked:=true else DBCBYYXX.Checked:=false;
       if FieldByName('FUN14').AsString='1' then  DBCBSJTX.Checked:=true else DBCBSJTX.Checked:=false;
       if FieldByName('FUN15').AsString='1' then  DBCBCZ.Checked:=true else DBCBCZ.Checked:=false;
       if FieldByName('FUN18').AsString='1' then  DBCBMST.Checked:=true else DBCBMST.Checked:=false;
       if FieldByName('FUN19').AsString='1' then  DBCBSJYH.Checked:=true else DBCBSJYH.Checked:=false;
    end; }
end;

procedure TFormACC_GSM.SetNull;
begin
{  ///
 // DBEDNAME.Text:='';
 // EditDHHM.Text:='';
  DBEdMSP.Text:='';
 // DBEdWWSN.Text:='';
  Editstat.Text:='';
  Editjb.Text:='';
  Editlb.Text:='';
  Editzjlb.Text:='';
  DBEdUSEID.Text:='';
  DBEdAdd.Text:='';
  dbedxyd.Text:='';
  DBEDMSP.Text:='';
  dbedlxr.Text:='';
  dbedqtxyd.Text:='';
  dbedit9.Text:='';
  dbedpwd.Text:='';
  dbedit17.Text:='';
  dbedlxdh.Text:='';
  dbedtel.text:='';
  dbedid.text:='';
  editstat.Text:='';
  dbedkhrq.Text:='';
  dbedit1.Text:='';
  dbeddbyh.Text:='';
  dbeddbtel.Text:='';
  dbedit4.Text:='';
  dbeddbid.Text:='';
  dbeddbadd.Text:='';
  dbedit5.Text:='';
  dbeditacc_his.Text:='';
  editfkfs.Text:='';
  editbank.Text:='';
  dbeditacntname.Text:='';
  dbedtjsj.Text:='';
  editcz_lb.Text:='';
  dbedqsdate.Text:='';
  dbedxyk.Text:='';
  dbedbankcid.Text:='';
  dbedczxyd.Text:='';
  dbedtfjxyd.Text:='';


    }

end;

procedure TFormACC_GSM.SpeedButton1Click(Sender: TObject);
begin
  Close;
end;


procedure TFormACC_GSM.FormShow(Sender: TObject);
begin
//  SetNull;
 { dm_main.QueryAcc_Gsm.Close;
  dm_main.QueryAcc_Gsm.SQL.Clear;
  dm_main.QueryAcc_Gsm.SQL.Add(' select * from acc_gsm ');

  if dm_main.Txtpzb.FieldByName('RIST_HOME').AsString='1' then  //1-对局向进行限制
    if jbdm<>0 then
      dm_main.QueryAcc_Gsm.SQL.Add(' where off_no_home='+IntToStr(jx));

  dm_main.QueryACC_GSM.Open;
  dm_main.QueryACC_GSM.First;}

  crypt.UserEnter_Log(Caption,'浏览',-1,Gh,'登入窗体');
  PageControlMain.ActivePageIndex:=0;
  Fun_GetCounty(cbacc_off_no_home,' ',Frm_ArchivesCustInfo.Co_Query_CITYCODE.text);//初始下拉框值
  Fun_ComponentStatus(self,1,False);  // 清空输入框数值
  Fun_ComponentStatus(self,0,False);  // 使输入框无效,用户不可以输入数值
  if trim(Frm_ArchivesCustInfo.Ed_Query_Sid.Text)<>'' then  //传送查询的手机号码
    begin
      edacc_sid.Text :=trim(Frm_ArchivesCustInfo.Ed_Query_Sid.Text);
      selectrecord ; //查询档案
//      edacc_sidKeyPress(nil); //触发回车事件
    end
  else
     edacc_sid.Text :='';
 // setFunVisible(Self,gh);
  //dm_main.QueryACC_GSM.Close;   linlong 20010226   }