????ࡱ > 9 R , bjbj 2 i l C $ = ] @ 9 2 2 2 2 , 2 2 l 2 a 0 0 C @ 2 procedure Button1Click(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure SBMQryClick(Sender: TObject); procedure Button2Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure SBAppClick(Sender: TObject); procedure Button_StypeClick(Sender: TObject); procedure DBEdit_StypeExit(Sender: TObject); procedure Query_SOrdDNewRecord(DataSet: TDataSet); procedure Query_SOrdMAfterScroll(DataSet: TDataSet); procedure Query_SOrdDBeforePost(DataSet: TDataSet); procedure CreateSoNo; procedure Button_CusNoClick(Sender: TObject); procedure FormActivate(Sender: TObject); procedure DBEdit_CusNoExit(Sender: TObject); procedure Button_CusNoExit(Sender: TObject); procedure FormCreate(Sender: TObject); procedure _DBEdit_Mode(xState:Boolean); procedure DBGrid1ColExit(Sender: TObject); procedure DBGrid1EditButtonClick(Sender: TObject); procedure Query_SOrdDBeforeScroll(DataSet: TDataSet); procedure BitBtnApplyClick(Sender: TObject); procedure DBLookupComboBox_CorpNoClick(Sender: TObject); procedure Query_SOrdDAfterPost(DataSet: TDataSet); procedure DBGrid1ColEnter(Sender: TObject); procedure Query_SOrdDAfterScroll(DataSet: TDataSet); procedure Query_SOrdDCalcFields(DataSet: TDataSet); procedure Query_SOrdMBeforePost(DataSet: TDataSet); procedure Query_SOrdDBeforeInsert(DataSet: TDataSet); procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn); procedure Query_SOrdMBeforeDelete(DataSet: TDataSet); procedure Query_SOrdMarkBeforePost(DataSet: TDataSet); procedure DBNavigator3Click(Sender: TObject; Button: TNavigateBtn); procedure _Find_Null; procedure Query_SOrdDAfterDelete(DataSet: TDataSet); procedure Query_SOrdDBeforeDelete(DataSet: TDataSet); procedure TabSheetQueryShow(Sender: TObject); procedure DBGrid1KeyPress(Sender: TObject; var Key: Char); procedure DataSource_SearchDataChange(Sender: TObject; Field: TField); procedure DBEdit_CusNoEnter(Sender: TObject); procedure Query_SOrdMAfterClose(DataSet: TDataSet); procedure Query_SOrdMStypeValidate(Sender: TField); procedure Query_SOrdMCusNoValidate(Sender: TField); procedure Query_SOrdDProdNoValidate(Sender: TField); procedure Query_SOrdDCusPNo1Validate(Sender: TField); procedure Query_SOrdMAfterPost(DataSet: TDataSet); procedure DBEdit_OrdDayExit(Sender: TObject); procedure Query_SOrdMOrdDayValidate(Sender: TField); procedure Query_SOrdDPostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Query_SOrdDEditError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction); procedure Query_SOrdDDeleteError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction); private { Private declarations } public { Public declarations } end; var FSAL210: TFSAL210; xCo n t r o l : s t r i n g ; x S e q , x S e q S u b , x P r o d N o , x P a c k N o : S t r i n g ; / / * * vMRvS e q , S e q S u b v