?? yd_acc_gsm.pas
字號:
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 }
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -