?? mains.pas
字號:
unit mains;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Spin, JEdit, ExtCtrls, ComCtrls, Buttons;
type
TFMMAINS = class(TForm)
BTNQUT: TBitBtn;
BTNCAL: TBitBtn;
PageControl1: TPageControl;
PAGE_A: TTabSheet;
PAGE_B: TTabSheet;
Panel1: TPanel;
GroupBox1: TGroupBox;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
IV_TC1: TJEdit;
IV_TC2: TJEdit;
IV_TS1: TSpinEdit;
IV_TS2: TSpinEdit;
GroupBox2: TGroupBox;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
IV_CC1: TComboBox;
IV_CC2: TComboBox;
IV_CC3: TComboBox;
IV_CC4: TComboBox;
IV_CS1: TSpinEdit;
IV_CS2: TSpinEdit;
IV_CS3: TSpinEdit;
IV_CP1: TSpinEdit;
IV_CP2: TSpinEdit;
IV_CP3: TSpinEdit;
IV_CP4: TSpinEdit;
GroupBox3: TGroupBox;
Label30: TLabel;
Label31: TLabel;
IV_EC1: TJEdit;
IV_EC2: TJEdit;
Panel2: TPanel;
Label1: TLabel;
Label6: TLabel;
ED_AUTO_SHOWPOSA: TCheckBox;
ED_PRN_PRINTING: TCheckBox;
ED_PRN_ALWAYSON: TCheckBox;
ED_PRN_CASHBOX: TCheckBox;
ED_CLEAR_INPUT: TCheckBox;
ED_MINUSP: TCheckBox;
ED_LAST_SUB: TCheckBox;
ED_AUTO_EAN13: TCheckBox;
ED_ALL_CASHIN: TCheckBox;
ED_RE_INPUT: TCheckBox;
ED_AUTO_ROUND: TCheckBox;
ED_SHOW_BGCOT: TCheckBox;
ED_CHECK_POSM: TCheckBox;
ED_CHECK_POSN: TCheckBox;
ED_CHECK_POSO: TCheckBox;
ED_CHECK_BGQTN: TCheckBox;
ED_CHECK_GIFT_NO: TCheckBox;
ED_SHOW_WARN: TCheckBox;
ED_SHOW_RUNLG: TCheckBox;
ED_SHOW_BGCOS: TCheckBox;
ED_SHOW_BGQTN: TCheckBox;
ED_SHOW_BGDSN: TCheckBox;
ED_SHOW_BMEMN: TCheckBox;
ED_DISC_ALL: TCheckBox;
ED_SHOW_BGQTS: TCheckBox;
ED_SET_ACUS: TCheckBox;
ED_SET_CHG_PRICE: TCheckBox;
ED_SET_INPUT_INV: TCheckBox;
ED_SET_LOWCOS: TCheckBox;
ED_SET_BMBPO: TSpinEdit;
ED_SET_WIN_PRICE: TCheckBox;
IV_RP1: TCheckBox;
IV_RP2: TCheckBox;
IV_RP3: TCheckBox;
ED_PRACTICE_MODE: TRadioGroup;
ED_SHOW_FUNCTION: TCheckBox;
procedure BTNQUTClick(Sender: TObject);
procedure BTNCALClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FMMAINS: TFMMAINS;
implementation
USES UN_UTL, DB_UTL, SYSINI,
MAIN;
{$R *.DFM}
procedure TFMMAINS.FormCreate(Sender: TObject);
begin
ED_PRACTICE_MODE.ITEMINDEX := _TB_PRACTICE_MODE ; //練習模式
ED_AUTO_SHOWPOSA.Checked := _TB_AUTO_SHOWPOSA; //自動激活 前臺程序
ED_PRN_ALWAYSON .Checked := _TB_PRN_ALWAYSON; //強迫一定要打印發票 ========== SET
ED_PRN_PRINTING .Checked := _TB_PRN_PRINTING; //是否印發票 ========== SET
ED_PRN_CASHBOX .Checked := _TB_PRN_CASHBOX ; //是否自動開錢箱 ========== SET
ED_CLEAR_INPUT .Checked := _TB_CLEAR_INPUT ; //輸入后是否清除輸入格
ED_MINUSP .Checked := _TB_MINUSP; //總計負數可結帳
ED_LAST_SUB .Checked := _TB_LAST_SUB; //去尾數另外打印
ED_DISC_ALL .Checked := _TB_DISC_ALL; //每筆都打折
ED_AUTO_EAN13 .Checked := _TB_AUTO_EAN13; //13碼數值自動補位
ED_ALL_CASHIN .Checked := _TB_ALL_CASHIN; //全部使用現金結帳
ED_RE_INPUT .Checked := _TB_RE_INPUT; //重復刷是否自動加
ED_AUTO_ROUND .Checked := _TB_AUTO_ROUND ; // 個位數四舍五入
ED_SHOW_FUNCTION.Checked := _TB_SHOW_FUNCTION; // 顯示功能鍵
ED_SHOW_BGCOS .Checked := _TB_SHOW_BGCOS ; // 顯示成本價
ED_SHOW_BGQTS .Checked := _TB_SHOW_BGQTS ; // 顯示安存量
ED_SHOW_BGQTN .Checked := _TB_SHOW_BGQTN ; // 顯示庫存量
ED_SHOW_BGDSN .Checked := _TB_SHOW_BGDSN ; // 顯示產品詳細資料
ED_SHOW_BMEMN .Checked := _TB_SHOW_BMEMN ; // 顯示會員詳細資料
ED_SHOW_RUNLG .Checked := _TB_SHOW_RUNLG ; // 顯示跑馬燈
ED_SHOW_WARN .Checked := _TB_SHOW_WARN ; // 刷無資料時要警告
;
ED_CHECK_POSM .Checked := _TB_CHECK_POSM ; // 檢查特價品資料
ED_CHECK_POSN .Checked := _TB_CHECK_POSN ; // 檢查組合銷售資料
ED_CHECK_POSO .Checked := _TB_CHECK_POSO ; // 檢查買二送一資料
ED_CHECK_BGQTN .Checked := _TB_CHECK_BGQTN ; // 檢查庫存量資料
ED_CHECK_GIFT_NO.Checked := _TB_CHECK_GIFT_NO; // 檢查禮券是否重復
ED_SET_ACUS .Checked := _TB_SET_ACUS ; // 是否輸入流動客戶分析
ED_SET_INPUT_INV.Checked := _TB_SET_INPUT_INV; // 是否必須輸入發票號碼
ED_SET_LOWCOS .Checked := _TB_SET_LOWCOS ; // 是否售價可低于預設成本
ED_SET_BMBPO .VALUE := _TB_SET_BMBPO ; // 會員點數
ED_SET_CHG_PRICE.Checked := _TB_SET_CHG_PRICE; // 是否可直接更改售價
ED_SET_WIN_PRICE.Checked := _TB_SET_WIN_PRICE; //開新窗口更改售價
IV_TS1.VALUE := _TB_INV_SET_IV_TS1; //發票 TITLE 空行
IV_TS2.VALUE := _TB_INV_SET_IV_TS2; //發票 TITLE 空行
IV_TC1.TEXT := _TB_INV_SET_IV_TC1; //發票 TITLE 1
IV_TC2.TEXT := _TB_INV_SET_IV_TC2; //發票 TITLE 2
IV_CC1.ItemIndex := _TB_INV_SET_IV_CC1; //發票 內容 1
IV_CC2.ItemIndex := _TB_INV_SET_IV_CC2; //發票 內容 2
IV_CC3.ItemIndex := _TB_INV_SET_IV_CC3; //發票 內容 3
IV_CC4.ItemIndex := _TB_INV_SET_IV_CC4; //發票 內容 4
IV_CS1.VALUE := _TB_INV_SET_IV_CS1; //發票 空格 1
IV_CS2.VALUE := _TB_INV_SET_IV_CS2; //發票 空格 2
IV_CS3.VALUE := _TB_INV_SET_IV_CS3; //發票 空格 3
IV_CP1.VALUE := _TB_INV_SET_IV_CP1; //發票 位數 1
IV_CP2.VALUE := _TB_INV_SET_IV_CP2; //發票 位數 2
IV_CP3.VALUE := _TB_INV_SET_IV_CP3; //發票 位數 3
IV_CP4.VALUE := _TB_INV_SET_IV_CP4; //發票 位數 4
IV_EC1.TEXT := _TB_INV_SET_IV_EC1; //發票 結尾 1
IV_EC2.TEXT := _TB_INV_SET_IV_EC2; //發票 結尾 2
IV_RP1.Checked := _TB_INV_SET_IV_RP1; //打印應找金額
IV_RP2.Checked := _TB_INV_SET_IV_RP2; //打印信用卡號
IV_RP3.Checked := _TB_INV_SET_IV_RP3; //打印禮券明細
end;
procedure TFMMAINS.FormShow(Sender: TObject);
begin
PAGE_A.SHOW;
end;
procedure TFMMAINS.BTNQUTClick(Sender: TObject);
begin
_TB_PRACTICE_MODE := ED_PRACTICE_MODE.ITEMINDEX; //練習模式
_TB_AUTO_SHOWPOSA := ED_AUTO_SHOWPOSA.Checked; //自動激活 前臺程序
_TB_PRN_ALWAYSON := ED_PRN_ALWAYSON .Checked; //強迫一定要打印發票 ========== SET
_TB_PRN_PRINTING := ED_PRN_PRINTING .Checked; //是否印發票 ========== SET
_TB_PRN_CASHBOX := ED_PRN_CASHBOX .Checked; //是否自動開錢箱 ========== SET
_TB_CLEAR_INPUT := ED_CLEAR_INPUT .Checked; //輸入后是否清除輸入格
_TB_MINUSP := ED_MINUSP .Checked; //總計負數可結帳
_TB_LAST_SUB := ED_LAST_SUB .Checked; //去尾數另外打印
_TB_DISC_ALL := ED_DISC_ALL .Checked; //每筆都打折
_TB_AUTO_EAN13 := ED_AUTO_EAN13 .Checked; //13碼數值自動補位
_TB_ALL_CASHIN := ED_ALL_CASHIN .Checked; //全部使用現金結帳
_TB_RE_INPUT := ED_RE_INPUT .Checked; //重復刷是否自動加
_TB_AUTO_ROUND := ED_AUTO_ROUND .Checked; // 個位數四舍五入
_TB_SHOW_FUNCTION := ED_SHOW_FUNCTION.Checked; // 顯示功能鍵
_TB_SHOW_BGCOS := ED_SHOW_BGCOS .Checked; // 顯示成本價
_TB_SHOW_BGQTS := ED_SHOW_BGQTS .Checked; // 顯示安存量
_TB_SHOW_BGQTN := ED_SHOW_BGQTN .Checked; // 顯示庫存量
_TB_SHOW_BGDSN := ED_SHOW_BGDSN .Checked; // 顯示產品詳細資料
_TB_SHOW_BMEMN := ED_SHOW_BMEMN .Checked; // 顯示會員詳細資料
_TB_SHOW_RUNLG := ED_SHOW_RUNLG .Checked; // 顯示跑馬燈
_TB_SHOW_WARN := ED_SHOW_WARN .Checked; // 刷無資料時要警告
_TB_CHECK_POSM := ED_CHECK_POSM .Checked; // 檢查特價品資料
_TB_CHECK_POSN := ED_CHECK_POSN .Checked; // 檢查組合銷售資料
_TB_CHECK_POSO := ED_CHECK_POSO .Checked; // 檢查買二送一資料
_TB_CHECK_BGQTN := ED_CHECK_BGQTN .Checked; // 檢查庫存量資料
_TB_CHECK_GIFT_NO := ED_CHECK_GIFT_NO.Checked; // 檢查禮券是否重復
_TB_SET_ACUS := ED_SET_ACUS .Checked; // 是否輸入流動客戶分析
_TB_SET_INPUT_INV := ED_SET_INPUT_INV.Checked; // 是否必須輸入發票號碼
_TB_SET_LOWCOS := ED_SET_LOWCOS .Checked; // 是否售價可低于預設成本
_TB_SET_BMBPO := ED_SET_BMBPO .VALUE ; // 會員點數
_TB_SET_CHG_PRICE := ED_SET_CHG_PRICE.Checked; // 是否可直接更改售價
_TB_SET_WIN_PRICE := ED_SET_WIN_PRICE.Checked; //開新窗口更改售價
_TB_INV_SET_IV_TS1 := IV_TS1.VALUE; //發票 TITLE 空行
_TB_INV_SET_IV_TS2 := IV_TS2.VALUE; //發票 TITLE 空行
_TB_INV_SET_IV_TC1 := IV_TC1.TEXT ; //發票 TITLE 1
_TB_INV_SET_IV_TC2 := IV_TC2.TEXT ; //發票 TITLE 2
_TB_INV_SET_IV_CC1 := IV_CC1.ItemIndex; //發票 內容 1
_TB_INV_SET_IV_CC2 := IV_CC2.ItemIndex; //發票 內容 2
_TB_INV_SET_IV_CC3 := IV_CC3.ItemIndex; //發票 內容 3
_TB_INV_SET_IV_CC4 := IV_CC4.ItemIndex; //發票 內容 4
_TB_INV_SET_IV_CS1 := IV_CS1.VALUE ; //發票 空格 1
_TB_INV_SET_IV_CS2 := IV_CS2.VALUE ; //發票 空格 2
_TB_INV_SET_IV_CS3 := IV_CS3.VALUE ; //發票 空格 3
_TB_INV_SET_IV_CP1 := IV_CP1.VALUE ; //發票 位數 1
_TB_INV_SET_IV_CP2 := IV_CP2.VALUE ; //發票 位數 2
_TB_INV_SET_IV_CP3 := IV_CP3.VALUE ; //發票 位數 3
_TB_INV_SET_IV_CP4 := IV_CP4.VALUE ; //發票 位數 4
_TB_INV_SET_IV_EC1 := IV_EC1.TEXT; //發票 結尾 1
_TB_INV_SET_IV_EC2 := IV_EC2.TEXT; //發票 結尾 2
_TB_INV_SET_IV_RP1 := IV_RP1.Checked; //打印應找金額
_TB_INV_SET_IV_RP2 := IV_RP2.Checked; //打印信用卡號
_TB_INV_SET_IV_RP3 := IV_RP3.Checked; //打印禮券明細
CLOSE;
end;
procedure TFMMAINS.BTNCALClick(Sender: TObject);
begin
CLOSE;
end;
procedure TFMMAINS.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FMMAINS.Release;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -