📄 smssg_collect.~pas
字号:
Label127: TLabel;
DBxEdit64: TDBxEdit;
Label123: TLabel;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
v_samitemfrgt: TFloatField;
v_samitemfrgt_y: TFloatField;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
ComboBox5: TComboBox;
ComboBox6: TComboBox;
v_samelcda: TFloatField;
ppDBText118: TppDBText;
ppDBText119: TppDBText;
v_rep_jcpftype_a: TStringField;
v_rep_othftype_a: TStringField;
ppShape13: TppShape;
v_rep_samftype_a: TStringField;
dbjcpppField50: TppField;
ppShape14: TppShape;
lgmPanel2: TlgmPanel;
Label52: TLabel;
Label53: TLabel;
BitBtn18: TBitBtn;
BitBtn19: TBitBtn;
ComboEdit1: TComboEdit;
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;
Label129: TLabel;
Shape16: TShape;
Label130: TLabel;
Label131: TLabel;
Label132: 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;
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;
OTHerGrid: TDBGridEh;
bcGrid: TDBGridEh;
WJGrid: TDBGridEh;
bpgrid: TDBGridEh;
v_sumfqty7: TFloatField;
Shape15: TShape;
Label54: TLabel;
DBEdit4: TDBEdit;
RxSpinEdit2: TRxSpinEdit;
Edit25: TEdit;
ptcopy: TPopupMenu;
act_copy: TMenuButton;
N12: TMenuItem;
N13: TMenuItem;
lgmPanel4: TlgmPanel;
BitBtn20: TBitBtn;
BitBtn21: TBitBtn;
DBxEdit8: TEdit;
Label56: TLabel;
Label55: TLabel;
CheckListBox1: TCheckListBox;
Label57: TLabel;
ComboBox7: TComboBox;
ComboBox8: TComboBox;
procedure act_addExecute(Sender: TObject);
procedure act_editExecute(Sender: TObject);
procedure act_deleExecute(Sender: TObject);
procedure act_cancelExecute(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure DBGrid1SortMarkingChanged(Sender: TObject);
procedure v_mainNewRecord(DataSet: TDataSet);
procedure DBxEdit4DblClick(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
procedure DBxMemo1Enter(Sender: TObject);
procedure DBxMemo1Exit(Sender: TObject);
procedure sppicsolidClick(Sender: TObject);
procedure Image1DblClick(Sender: TObject);
procedure DSBase01DataChange(Sender: TObject; Field: TField);
procedure act_filterExecute(Sender: TObject);
procedure act_checkExecute(Sender: TObject);
procedure ppLabel4Print(Sender: TObject);
procedure ppLabel7Print(Sender: TObject);
procedure ppDetailBand1BeforePrint(Sender: TObject);
procedure act_prnExecute(Sender: TObject);
procedure v_mainAfterPost(DataSet: TDataSet);
procedure v_mainBeforePost(DataSet: TDataSet);
procedure RxRichEdit1Enter(Sender: TObject);
procedure RxRichEdit1Exit(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure v_mainBeforeDelete(DataSet: TDataSet);
procedure DSBase01StateChange(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure ACT_IEExecute(Sender: TObject);
procedure RxDBComboEdit2ButtonClick(Sender: TObject);
procedure TreeViewExpanded(Sender: TObject; Node: TTreeNode);
procedure PageControlChanging(Sender: TObject;
var AllowChange: Boolean);
procedure PageControlChange(Sender: TObject);
procedure TreeViewClick(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure act_caluExecute(Sender: TObject);
procedure DBGrid1GetCellParams(Sender: TObject; Column: TColumnEh;
AFont: TFont; var Background: TColor; State: TGridDrawState);
procedure FormShow(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure ScrollBarChange(Sender: TObject);
procedure imageshow(Sender: TObject);
procedure imagedbclick(Sender: TObject);
procedure ImageMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image3DblClick(Sender: TObject);
procedure MenuItem1Click(Sender: TObject);
procedure act_nocheckExecute(Sender: TObject);
procedure v_mainAfterScroll(DataSet: TDataSet);
procedure Label6Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure act_saveExecute(Sender: TObject);
procedure TreeViewChanging(Sender: TObject; Node: TTreeNode;
var AllowChange: Boolean);
procedure TreeView1Click(Sender: TObject);
procedure TreeView1Changing(Sender: TObject; Node: TTreeNode;
var AllowChange: Boolean);
procedure t_typefgAfterPost(DataSet: TDataSet);
procedure t_typefgBeforePost(DataSet: TDataSet);
procedure BitBtn10Click(Sender: TObject);
procedure BitBtn11Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure TreeView1Expanded(Sender: TObject; Node: TTreeNode);
procedure DBGrid1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure DBGrid1EndDrag(Sender, Target: TObject; X, Y: Integer);
procedure TreeViewDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure EditorEnter(Sender: TObject);
procedure v_samelcNewRecord(DataSet: TDataSet);
procedure v_samitemNewRecord(DataSet: TDataSet);
procedure act_add1Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure v_samitemfsgcodeValidate(Sender: TField);
procedure v_samitemffirstcostValidate(Sender: TField);
procedure v_samitemfmkcodeValidate(Sender: TField);
procedure v_samitemfupValidate(Sender: TField);
procedure v_samitemfnetValidate(Sender: TField);
procedure v_samitemestValidate(Sender: TField);
procedure v_samitemreserveValidate(Sender: TField);
procedure v_samiteminlandValidate(Sender: TField);
procedure v_samitemallowanceValidate(Sender: TField);
procedure v_samitemclubcostValidate(Sender: TField);
procedure v_samitemfup1Validate(Sender: TField);
procedure v_samitemffggsaValidate(Sender: TField);
procedure v_samitemffgpackpcsValidate(Sender: TField);
procedure v_samelcBeforeDelete(DataSet: TDataSet);
procedure v_samelcBeforePost(DataSet: TDataSet);
procedure v_samitemBeforeDelete(DataSet: TDataSet);
procedure v_samitemBeforePost(DataSet: TDataSet);
procedure samSourceStateChange(Sender: TObject);
procedure act_edit1Click(Sender: TObject);
procedure act_save1Click(Sender: TObject);
procedure act_cancel1Click(Sender: TObject);
procedure subGridKeyPress(Sender: TObject; var Key: Char);
procedure subGridEnter(Sender: TObject);
procedure subGridExit(Sender: TObject);
procedure v_samitemdutyValidate(Sender: TField);
procedure v_samitemfpcsValidate(Sender: TField);
procedure MaskEdit1Exit(Sender: TObject);
procedure jcpSourceStateChange(Sender: TObject);
procedure v_jcpelcBeforeDelete(DataSet: TDataSet);
procedure v_jcpelcBeforePost(DataSet: TDataSet);
procedure v_jcpelcNewRecord(DataSet: TDataSet);
procedure act_add2Click(Sender: TObject);
procedure v_jcpelcfccodeValidate(Sender: TField);
procedure v_jcpitemBeforeDelete(DataSet: TDataSet);
procedure v_jcpitemBeforePost(DataSet: TDataSet);
procedure v_jcpitemNewRecord(DataSet: TDataSet);
procedure v_jcpitemfsgcodeValidate(Sender: TField);
procedure v_jcpitemffirstcostValidate(Sender: TField);
procedure v_jcpitemfjcpsalesValidate(Sender: TField);
procedure v_jcpitemffgsaValidate(Sender: TField);
procedure v_jcpitemfup1Validate(Sender: TField);
procedure v_jcpitemffgpackpcsValidate(Sender: TField);
procedure BitBtn7Click(Sender: TObject);
procedure subGridColExit(Sender: TObject);
procedure Edit4Exit(Sender: TObject);
procedure subGridDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
procedure act_edit2Click(Sender: TObject);
procedure act_save2Click(Sender: TObject);
procedure act_cancel2Click(Sender: TObject);
procedure jcpGridEnter(Sender: TObject);
procedure jcpGridExit(Sender: TObject);
procedure jcpGridKeyPress(Sender: TObject; var Key: Char);
procedure v_othelcBeforeDelete(DataSet: TDataSet);
procedure v_othelcBeforePost(DataSet: TDataSet);
procedure v_othelcNewRecord(DataSet: TDataSet);
procedure v_othelcfccodeValidate(Sender: TField);
procedure othSourceStateChange(Sender: TObject);
procedure v_othitemBeforeDelete(DataSet: TDataSet);
procedure v_othitemBeforePost(DataSet: TDataSet);
procedure v_othitemNewRecord(DataSet: TDataSet);
procedure v_othitemfsgcodeValidate(Sender: TField);
procedure v_othitemffirstcostValidate(Sender: TField);
procedure v_othitemfupValidate(Sender: TField);
procedure v_othitemfjcpsalesValidate(Sender: TField);
procedure v_othitemfelcValidate(Sender: TField);
procedure v_othitemfmkcodeValidate(Sender: TField);
procedure v_othitemfjcpsalesmu_cValidate(Sender: TField);
procedure v_othitemgross_cValidate(Sender: TField);
procedure v_othitemffgsaValidate(Sender: TField);
procedure v_othitemfup1Validate(Sender: TField);
procedure v_othitemffgpackpcsValidate(Sender: TField);
procedure v_othitemfpcsValidate(Sender: TField);
procedure act_add3Click(Sender: TObject);
procedure act_edit3Click(Sender: TObject);
procedure act_save3Click(Sender: TObject);
procedure act_cancel3Click(Sender: TObject);
procedure BitBtn17Click(Sender: TObject);
procedure othGridEnter(Sender: TObject);
procedure othGridExit(Sender: TObject);
procedure othGridKeyPress(Sender: TObject; var Key: Char);
procedure MaskEdit2Exit(Sender: TObject);
procedure MaskEdit3Exit(Sender: TObject);
procedure ELC2Click(Sender: TObject);
procedure ELC1Click(Sender: TObject);
procedure MenuItem4Click(Sender: TObject);
procedure MenuItem5Click(Sender: TObject);
procedure MenuItem3Click(Sender: TObject);
procedure MenuItem2Click(Sender: TObject);
procedure Edit5Exit(Sender: TObject);
procedure Edit6Exit(Sender: TObject);
procedure jcpGridColExit(Sender: TObject);
procedure othGridColExit(Sender: TObject);
procedure jcpGridDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
procedure othGridDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
procedure PageControl2Change(Sender: TObject);
procedure v_sggjCalcFields(DataSet: TDataSet);
procedure v_sggjNewRecord(DataSet: TDataSet);
procedure act_add4Click(Sender: TObject);
procedure act_edit4Click(Sender: TObject);
procedure smgridEnter(Sender: TObject);
procedure smgridExit(Sender: TObject);
procedure smgridEditButtonClick(Sender: TObject);
procedure smgridKeyPress(Sender: TObject; var Key: Char);
procedure act_del4Click(Sender: TObject);
procedure act_save4Click(Sender: TObject);
procedure act_cancel4Click(Sender: TObject);
procedure v_sggjfnlValidate(Sender: TField);
procedure v_sggjBeforePost(DataSet: TDataSet);
procedure v_sggjfrmupValidate(Sender: TField);
procedure v_sggjBeforeInsert(DataSet: TDataSet);
procedure bsgridEditButtonClick(Sender: TObject);
procedure bsgridKeyPress(Sender: TObject; var Key: Char);
procedure WJGridEditButtonClick(Sender: TObject);
procedure WJGridKeyPress(Sender: TObject; var Key: Char);
procedure OTHerGridEditButtonClick(Sender: TObject);
procedure OTHerGridKeyPress(Sender: TObject; var Key: Char);
procedure bcGridEditButtonClick(Sender: TObject);
procedure bcGridKeyPress(Sender: TObject; var Key: Char);
procedure RxSpinEdit1Change(Sender: TObject);
procedure RxSpinEdit4Change(Sender: TObject);
procedure RxSpinEdit5Change(Sender: TObject);
procedure RxSpinEdit6Change(Sender: TObject);
procedure RxSpinEdit7Change(Sender: TObject);
procedure DBEdit3Change(Sender: TObject);
procedure Edit7Change(Sender: TObject);
procedure Edit12Change(Sender: TObject);
procedure Edit38Change(Sender: TObject);
procedure RxSpinEdit16Change(Sender: TObject);
procedure Edit28Change(Sender: TObject);
procedure Edit17Change(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure ppLabel21Print(Sender: TObject);
procedure ppLabel16Print(Sender: TObject);
procedure ppLabel22Print(Sender: TObject);
procedure ppGroupHeaderBand2BeforePrint(Sender: TObject);
procedure ppLabel28Print(Sender: TObject);
procedure ppDetailBand2AfterPrint(Sender: TObject);
procedure ppGroupHeaderBand4BeforePrint(Sender: TObject);
procedure BitBtn12Click(Sender: TObject);
procedure ppLabel30Print(Sender: TObject);
procedure RxSpinEdit19Change(Sender: TObject);
procedure ppSummaryBand1BeforePrint(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
procedure ppLabel148Print(Sender: TObject);
procedure ppLabel200Print(Sender: TObject);
procedure Edit31Change(Sender: TObject);
procedure Edit33Change(Sender: TObject);
procedure v_sggjBeforeClose(DataSet: TDataSet);
procedure Edit20Change(Sender: TObject);
procedure Edit21Change(Sender: TObject);
procedure Edit18Change(Sender: TObject);
procedure BitBtn14Click(Sender: TObject);
procedure BitBtn15Click(Sender: TObject);
procedure BitBtn13Click(Sender: TObject);
procedure subGridGetCellParams(Sender: TObject; Column: TColumnEh;
AFont: TFont; var Background: TColor; State: TGridDrawState);
procedure jcpGridGetCellParams(Sender: TObject; Column: TColumnEh;
AFont: TFont; var Background: TColor; State: TGridDrawState);
procedure othGridGetCellParams(Sender: TObject; Column: TColumnEh;
AFont: TFont; var Background: TColor; State: TGridDrawState);
procedure ppLabel147Print(Sender: TObject);
procedure ppLabel199Print(Sender: TObject);
procedure MaskEdit6Exit(Sender: TObject);
procedure jcpitemSourceDataChange(Sender: TObject; Field: TField);
procedure MaskEdit4Exit(Sender: TObject);
procedure v_jcpitemfobValidate(Sender: TField);
procedure v_othitemfobValidate(Sender: TField);
procedure v_samitemfobValidate(Sender: TField);
procedure v_mainffgglValidate(Sender: TField);
procedure RxDBComboEdit5ButtonClick(Sender: TObject);
procedure RxDBComboEdit4ButtonClick(Sender: TObject);
procedure RxDBComboEdit3ButtonClick(Sender: TObject);
procedure subGridColEnter(Sender: TObject);
procedure jcpGridColEnter(Sender: TObject);
procedure v_jcpitemdutyValidate(Sender: TField);
procedure othGridColEnter(Sender: TObject);
procedure v_othitemhmfValidate(Sender: TField);
procedure v_othitemmpfValidate(Sender: TField);
procedure v_othitemdutyValidate(Sender: TField);
procedure Edit5Enter(Sender: TObject);
procedure ppDetailBand3BeforePrint(Sender: TObject);
procedure ppDetailBand4BeforePrint(Sender: TObject);
procedure ppDetailBand5BeforePrint(Sender: TObject);
procedure ComboEdit1ButtonClick(Sender: TObject);
procedure BitBtn18Click(Sender: TObject);
procedure BitBtn19Click(Sender: TObject);
procedure bpgridEditButtonClick(Sender: TObject);
procedure bpgridKeyPress(Sender: TObject; var Key: Char);
procedure RxSpinEdit2Change(Sender: TObject);
procedure v_sggjfrmnameValidate(Sender: TField);
procedure RxDBComboEdit1ButtonClick(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure BitBtn21Click(Sender: TObject);
procedure BitBtn20Click(Sender: TObject);
procedure ComboBox7Change(Sender: TObject);
private
{ Private declarations }
basesql,ordersql,fpict,fpagecapt,ffilt1,ffilt2,fusrid_r,ftreeview,fptname,frmname : string;
node:ttreenode;
foldheight,index,acti_tag,fprnno,gridindex:integer;
fcheck,ftype_fg,ss : string;
images: array of TImage;
labels: array of TLabel;
Bevels: array of tktMultiBevel;
iecontrol : tiecontroller;
fitem : boolean;
SGC : TGridCoord;
tsg,tfggsa,tfup,tfirstcost,tfgpackpcs,tduty,tsales,tfob,thmf,tmpf : boolean; //琌⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -