Programmer 7500

home *** CD-ROM | disk | FTP | other *** search

/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / CALLBUTN / BTRV.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1995-03-14 | 9.7 KB | 356 lines

Sample program using CallBtrv() Form1% - Command18 ( Command17 Get > ' Command16 Get < Command4 & Command15 Get >= Text10 , Keylength Command3 Close % Command14 Get <= Command9 Delete $ Command13 Get = Text9 Command8 Insert # Command12 GetPrev Text8 Text7 Command7 Update Command6 GetNext Text6 Text5 . Command19 Create " Command11 Get Last Text4 Text3 Command2 Command5 Get First Text2 Text1 Command1 Command10 Label2 Label1 RetCode Label8 Key # Label7 File # Label6 Filename Label5 Keylen Label4 Keyval Label3 Command1_Click BStatus WBtrvInit Label2 Command4_Click WBtrvStop BStatt Form_Click MaxFile8 Caption @ Form_Load FileName~ Path% Command2_Clickb Btrv7 Command3_Click0 Command5_Click ChartRec BtrvBufv ShowAcctG Label3! Label4 GlAcctB Label5 GlName Label6# GlType Label7} GlParen Label8 GlMaster Label9K Label10 GlSort Label11 GlNoOfHist GlBalanceP Command6_Click Form1+ Command7_Click4 Text1 Text2 Text3 Textg4 Text5 Text4 Text6 Text7> Text8? Text9 Command8_Click Command9_ClickC Command10_Click^ KeyVal MultiUser LockType\ UpdateVars) KeyLen Command11_Clicki Command12_Click| Command13_Click Command14_Click Command15_Click Command16_Click Command17_Clickw KeyLength CallBtrv2 FileModeb OM_NORMALC B_USE B_GETFIRST B_GETLASTd B_GETNEXT B_GETPREVY B_GETEQN B_GETLEy B_GETGEu G_GETLT B_GETGT B_OPEN B_UPDATE B_INSERT B_DELETE B_CLOSE GET_FIRST GET_LAST GET_NEXTQ GET_PREV9 GET_EQ GET_GT GET_GE GET_LT GET_LEP B_CREATEn B_STAT- B_SETDIR B_GETDIRF B_BEGTRANS B_ENDTRAN, B_ABORTTRAN" B_GETPOS} B_GETDIRECT B_STEPNEXT5 B_STOP B_UNLOCK B_RESET B_STEPFIRST B_STEPLAST B_STEPPREV B_KEYONLY B_GET_FIRST BTRV_FILESPEC~ BTRV_KEYSPEC1 BTRV_KEYSPEC6 ParenCtrl Master LastDay LineColor InitBTRV BE_OK GlFile FileNo OpenBTRVfile hFile OM_NORNALR BE_FILENOTFOUND Length{ GlInfoLen PageSizei nbIndex FileFlags& KeyPos! KeyFlagsA KF_STRING KF_MODIFIABLE ExtKeyType KeyNull CreateBTRVfile GlAcctLenG Alloc KeyPos1 KeyLength1 KeyFlags1W ExtKeyType16 KeyNull1 KeyPos2 KeyLength2 KeyFlags2 KF_SEGMENTl ExtKeyType2n KeyNull2, KeyPos3: KeyLength3V KeyFlags3 ExtKeyType3 KeyNull3m KeyPos4{ KeyLength4 KeyFlags4 ExtKeyType4 KeyNull4 KeyPos5 KeyLength5 KeyFlags5 KF_DUPLICATE[ ExtKeyType5 KeyNull5 KeyPos6 KeyLength6) KeyFlags6 ExtKeyType6& KeyNull6e BatchLen KF_DESCENDING GJLen FF_VAR_LENGTH DeptLenc fsFileFlags= ExitBTRVI KeyNo Command18_Click Command19_Click Index0 KEY_1SEG Specs KEY_6SEG RecLen PgSize NoOfIndexR NotUsed& ResWrd KeyLen1 NotUsed1y Ext_Nul1 ResWrd1 KeyLen2 NotUsed2 Ext_Nul2T ResWrd2 KeyLen3 NotUsed3 Ext_Nul3 ResWrd3 KeyLen4 NotUsed4 Ext_Nul4 ResWrd4s KeyLen5 NotUsed5^ Ext_Nul5 ResWrd5 KeyLen6 NotUsed6 Ext_Nul6 ResWrd6 buffer FNo_Change FNo_LostFocus INo_Change INo_LostFocus Text10 OM_ACCELERATED OM_READONLY OM_VERIFY OM_EXCLUSIVE Switches Command1_Click set Btrieve switchesd /m:48 /p:2048 /b:16 /f:20 /l:20 /n:12 initialize Btrievee show Btrieve return code Command10_Click this returns the number of records in the filed Command11_Click Command12_Click Command13_Click Command14_Click Command15_Click Command16_Click Command17_Click Command18_Click Command19_Click disable this command so we don't delete the sample file given with programh this sample code is given to show how to set up a buffer to enableN a program to create a fileo dimension Specs for key characteristics for 6 segmentso the file number set KeyNo to 0 to create a file over an existing file set KeyNo to -1 if you do not want Btrieve to create a new file over an existing file - Btrieve will return an error code. assign file characteristics length of record page size number of keyss file specifications space to preallocates key specificationst position of first segment length of first segment key characteristics position of second segment ...r assign file characteristics to Btrieve buffer create the file Command2_Click open a Btrieve file the key number contains how the file is openedi OM_NORNAL = read/write using pre-imagingo OM_ACCELERATED = accelerated access OM_READONLY = read only OM_VERIFY = verifies data is correct on all writesp OM_EXCLUSIVE = exclusive mode Command3_Click Command4_Click stop Btrievep usually you would put this in a Form_Unload event be sure to close all files firsth Command5_Click Command6_Click Command7_Click Command8_Click Command9_Click FNo_LostFocus Form_Load change the path to your directory m:\vb\btrv\ GLACCT.BTR integer containing the length of each key in the form KeyLen(FileNo,KeyNo) default key numberk default file number INo_LostFocus ShowAcct ##,###,##0.00 UpdateVars