?? base.~pas
字號:
unit BASE;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables, XPMenu, ppCtrls, ppBands, ppClass,
ppVar, ppPrnabl, ppCache, ppProd, ppReport, ppDB, ppComm, ppRelatv,
ppDBPipe, Mask, ToolEdit, CheckLst, Buttons, ExtCtrls, lgmPanel, Menus,
DBCtrls, MenBtn, ADODB, RXSpin, Grids, DBGridEh, ComCtrls;
type
TFRMcost = class(TForm)
XPMenu1: TXPMenu;
ds_sum: TDataSource;
DSUP: TDataSource;
ds_rep_gj: TDataSource;
ppDBPipeline2: TppDBPipeline;
ptcopy: TPopupMenu;
N12: TMenuItem;
N13: TMenuItem;
Panel16: TPanel;
act_del4: TMenuButton;
act_copy: TMenuButton;
act_add4: TBitBtn;
act_edit4: TBitBtn;
act_save4: TBitBtn;
act_cancel4: TBitBtn;
Panel17: TPanel;
DBNavigator4: TDBNavigator;
BitBtn12: TBitBtn;
PageControl2: TPageControl;
sm: TTabSheet;
smgrid: TDBGridEh;
wb: TTabSheet;
bsgrid: TDBGridEh;
wj: TTabSheet;
bpgrid: TDBGridEh;
bt: TTabSheet;
WJGrid: TDBGridEh;
other: TTabSheet;
bcGrid: TDBGridEh;
tot: TTabSheet;
OTHerGrid: TDBGridEh;
TabSheet7: TTabSheet;
Panel15: TPanel;
Label99: TLabel;
Label106: TLabel;
Label107: TLabel;
Label108: TLabel;
Label110: TLabel;
Label111: TLabel;
Label112: TLabel;
Label113: TLabel;
Label114: TLabel;
Label115: TLabel;
Label116: TLabel;
Label117: TLabel;
Shape1: TShape;
Shape2: TShape;
Shape3: TShape;
Shape4: TShape;
Shape5: TShape;
Shape6: TShape;
Shape7: TShape;
Shape8: TShape;
Shape9: TShape;
Label119: TLabel;
Shape10: TShape;
Shape11: TShape;
Shape12: TShape;
Shape13: TShape;
Shape14: TShape;
Label120: TLabel;
Label121: TLabel;
Shape16: TShape;
Label130: TLabel;
Label131: TLabel;
Shape17: TShape;
Label133: TLabel;
Label134: TLabel;
Label136: TLabel;
Label137: TLabel;
Shape18: TShape;
Shape19: TShape;
Shape20: TShape;
Shape21: TShape;
Shape22: TShape;
Shape23: TShape;
Shape24: TShape;
Label135: TLabel;
Label138: TLabel;
Label139: TLabel;
Label140: TLabel;
Label109: TLabel;
Label118: TLabel;
Label122: TLabel;
Shape15: TShape;
Label54: TLabel;
RxSpinEdit1: TRxSpinEdit;
DBEdit3: TDBEdit;
DBEdit6: TDBEdit;
RxSpinEdit4: TRxSpinEdit;
DBEdit8: TDBEdit;
RxSpinEdit5: TRxSpinEdit;
DBEdit10: TDBEdit;
RxSpinEdit6: TRxSpinEdit;
DBEdit12: TDBEdit;
RxSpinEdit7: TRxSpinEdit;
RxSpinEdit16: TRxSpinEdit;
RxSpinEdit19: TRxSpinEdit;
BitBtn9: TBitBtn;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
Edit27: TEdit;
Edit28: TEdit;
Edit29: TEdit;
Edit31: TEdit;
Edit33: TEdit;
Edit34: TEdit;
Edit35: TEdit;
Edit38: TEdit;
Edit39: TEdit;
Edit16: TEdit;
Edit17: TEdit;
Edit18: TEdit;
Edit19: TEdit;
Edit20: TEdit;
Edit21: TEdit;
Edit22: TEdit;
Edit23: TEdit;
Edit24: TEdit;
DBEdit4: TDBEdit;
RxSpinEdit2: TRxSpinEdit;
Edit25: TEdit;
v_ins: TADOQuery;
v_sggj: TADOQuery;
v_sggjfsgcode: TStringField;
v_sggjfptname: TStringField;
v_sggjfunit: TStringField;
v_sggjfrmname: TStringField;
v_sggjfrtname: TStringField;
v_sggjfsno: TIntegerField;
v_rep_gj: TADOQuery;
v_sum: TADOQuery;
lgmPanel2: TlgmPanel;
Label52: TLabel;
Label53: TLabel;
BitBtn18: TBitBtn;
BitBtn19: TBitBtn;
ComboEdit1: TComboEdit;
DBxEdit8: TEdit;
lgmPanel4: TlgmPanel;
Label56: TLabel;
Label55: TLabel;
Label57: TLabel;
BitBtn20: TBitBtn;
BitBtn21: TBitBtn;
CheckListBox1: TCheckListBox;
ComboBox7: TComboBox;
ComboBox8: TComboBox;
v_main: TADOTable;
v_mainfsgcode: TWideStringField;
v_mainfsgname: TWideStringField;
ds_main: TDataSource;
Panel1: TPanel;
Panel2: TPanel;
DBGridEh1: TDBGridEh;
v_sggjfnl: TFloatField;
v_sggjfnw: TFloatField;
v_sggjfnh: TFloatField;
v_sggjfsize1: TFloatField;
v_sggjfsize2: TFloatField;
v_sggjfqty: TFloatField;
v_sggjfrmup: TFloatField;
v_sggjfamt: TFloatField;
v_sggjfowcode: TIntegerField;
v_sggjfbl: TFloatField;
v_sggjfbw: TFloatField;
v_sumfsgcode: TWideStringField;
v_sumfqty1: TFloatField;
v_sumfqty2: TFloatField;
v_sumfqty3: TFloatField;
v_sumfqty4: TFloatField;
v_sumfqty5: TFloatField;
v_sumfqty6: TFloatField;
v_sumfqty7: TFloatField;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
v_sggjfusize: TFloatField;
v_sggjfcsize: TFloatField;
v_sggj_tot: TADOQuery;
v_sggj_totfsgcode: TWideStringField;
v_sggj_totsp1: TIntegerField;
v_sggj_totsp2: TIntegerField;
v_sggj_totsp3: TIntegerField;
v_sggj_totsp4: TIntegerField;
v_sggj_totsp5: TIntegerField;
v_sggj_totsp6: TIntegerField;
v_sggj_totsp7: TIntegerField;
v_sggj_totsp8: TIntegerField;
v_sggj_totffggsa: TFloatField;
v_sggj_totfup_ntd: TFloatField;
v_sggj_totfup_usd: TFloatField;
v_sggj_totjg: TFloatField;
v_sggj_totjggz: TFloatField;
v_sggj_totcg: TFloatField;
v_sggj_totcggz: TFloatField;
v_sggj_totzl: TFloatField;
v_sggj_totzlgz: TFloatField;
v_sggj_totbz: TFloatField;
v_sggj_totbzgz: TFloatField;
v_sggj_totfb: TFloatField;
v_sggj_totfbgz: TFloatField;
v_mainfsize: TWideStringField;
v_rep_gjfsgcode: TWideStringField;
v_rep_gjfsno: TAutoIncField;
v_rep_gjfptname: TWideStringField;
v_rep_gjfunit: TWideStringField;
v_rep_gjfnl: TFloatField;
v_rep_gjfnw: TFloatField;
v_rep_gjfnh: TFloatField;
v_rep_gjfsize1: TFloatField;
v_rep_gjfusize: TFloatField;
v_rep_gjfsize2: TFloatField;
v_rep_gjfcsize: TFloatField;
v_rep_gjfqty: TFloatField;
v_rep_gjfrmname: TWideStringField;
v_rep_gjfrmup: TFloatField;
v_rep_gjfamt: TFloatField;
v_rep_gjfowcode: TIntegerField;
v_rep_gjfbl: TFloatField;
v_rep_gjfbw: TFloatField;
v_rep_gjfsize: TWideStringField;
v_rep_gjfsgname: TWideStringField;
Label1: TLabel;
v_sggjback: TADOQuery;
v_sggjbackfsgcode: TWideStringField;
v_sggjbackfsno: TAutoIncField;
v_sggjbackfptname: TWideStringField;
v_sggjbackfunit: TWideStringField;
v_sggjbackfnl: TFloatField;
v_sggjbackfnw: TFloatField;
v_sggjbackfnh: TFloatField;
v_sggjbackfsize1: TFloatField;
v_sggjbackfusize: TFloatField;
v_sggjbackfsize2: TFloatField;
v_sggjbackfcsize: TFloatField;
v_sggjbackfqty: TFloatField;
v_sggjbackfrmname: TWideStringField;
v_sggjbackfrmup: TFloatField;
v_sggjbackfamt: TFloatField;
v_sggjbackfowcode: TIntegerField;
v_sggjbackfbl: TFloatField;
v_sggjbackfbw: TFloatField;
t_sggj_tot: TADOQuery;
t_sggj_totfsgcode: TWideStringField;
t_sggj_totsp1: TIntegerField;
t_sggj_totsp2: TIntegerField;
t_sggj_totsp3: TIntegerField;
t_sggj_totsp4: TIntegerField;
t_sggj_totsp5: TIntegerField;
t_sggj_totsp6: TIntegerField;
t_sggj_totsp7: TIntegerField;
t_sggj_totsp8: TIntegerField;
t_sggj_totffggsa: TFloatField;
t_sggj_totfup_ntd: TFloatField;
t_sggj_totfup_usd: TFloatField;
t_sggj_totjg: TFloatField;
t_sggj_totjggz: TFloatField;
t_sggj_totcg: TFloatField;
t_sggj_totcggz: TFloatField;
t_sggj_totzl: TFloatField;
t_sggj_totzlgz: TFloatField;
t_sggj_totbz: TFloatField;
t_sggj_totbzgz: TFloatField;
t_sggj_totfb: TFloatField;
t_sggj_totfbgz: TFloatField;
ppReport3: TppReport;
ppHeaderBand2: TppHeaderBand;
ppLabel16: TppLabel;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -