control.frm
来自「很好一套库存管理」· FRM 代码 · 共 152 行
FRM
152 行
VERSION 5.00
Object = "{00025600-0000-0000-C000-000000000046}#5.2#0"; "Crystl32.OCX"
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
ClientHeight = 645
ClientLeft = 45
ClientTop = 330
ClientWidth = 3855
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 645
ScaleWidth = 3855
StartUpPosition = 3 'Windows Default
Begin Crystal.CrystalReport cr_ct_int_sales
Left = 2880
Top = 120
_ExtentX = 741
_ExtentY = 741
_Version = 348160
WindowTitle = "Internet Connection Sales Report"
WindowControlBox= -1 'True
WindowMaxButton = -1 'True
WindowMinButton = -1 'True
WindowState = 2
PrintFileLinesPerPage= 60
WindowShowCloseBtn= -1 'True
WindowShowSearchBtn= -1 'True
WindowShowPrintSetupBtn= -1 'True
WindowShowRefreshBtn= -1 'True
End
Begin Crystal.CrystalReport unpaid_sales
Left = 1920
Top = 120
_ExtentX = 741
_ExtentY = 741
_Version = 348160
WindowTitle = "Unpaid Sales Amount Report"
WindowControlBox= -1 'True
WindowMaxButton = -1 'True
WindowMinButton = -1 'True
WindowState = 2
PrintFileLinesPerPage= 60
WindowShowCloseBtn= -1 'True
WindowShowSearchBtn= -1 'True
WindowShowPrintSetupBtn= -1 'True
WindowShowRefreshBtn= -1 'True
End
Begin Crystal.CrystalReport CrystalReport1
Left = 0
Top = 120
_ExtentX = 741
_ExtentY = 741
_Version = 348160
WindowControlBox= -1 'True
WindowMaxButton = -1 'True
WindowMinButton = -1 'True
WindowState = 2
PrintFileLinesPerPage= 60
WindowShowCloseBtn= -1 'True
WindowShowSearchBtn= -1 'True
WindowShowPrintSetupBtn= -1 'True
WindowShowRefreshBtn= -1 'True
End
Begin Crystal.CrystalReport cr1
Left = 480
Top = 120
_ExtentX = 741
_ExtentY = 741
_Version = 348160
WindowTitle = "Purchase Book Report"
WindowControlBox= -1 'True
WindowMaxButton = -1 'True
WindowMinButton = -1 'True
WindowState = 2
PrintFileLinesPerPage= 60
WindowShowGroupTree= -1 'True
WindowShowCloseBtn= -1 'True
WindowShowSearchBtn= -1 'True
WindowShowPrintSetupBtn= -1 'True
WindowShowRefreshBtn= -1 'True
End
Begin Crystal.CrystalReport salesbill
Left = 1440
Top = 120
_ExtentX = 741
_ExtentY = 741
_Version = 348160
WindowTitle = "Sales Bill"
WindowControlBox= -1 'True
WindowMaxButton = -1 'True
WindowMinButton = -1 'True
WindowState = 2
PrintFileLinesPerPage= 60
WindowShowCloseBtn= -1 'True
WindowShowPrintSetupBtn= -1 'True
WindowShowRefreshBtn= -1 'True
End
Begin Crystal.CrystalReport int_expire
Left = 960
Top = 120
_ExtentX = 741
_ExtentY = 741
_Version = 348160
ReportFileName = "D:\Inventery System\Report\rpt_internet_expire.rpt"
WindowControlBox= -1 'True
WindowMaxButton = -1 'True
WindowMinButton = -1 'True
WindowState = 2
PrintFileLinesPerPage= 60
End
Begin Crystal.CrystalReport unpaid_purchase
Left = 2400
Top = 120
_ExtentX = 741
_ExtentY = 741
_Version = 348160
WindowTitle = "Unpaid Sales Amount Report"
WindowControlBox= -1 'True
WindowMaxButton = -1 'True
WindowMinButton = -1 'True
WindowState = 2
PrintFileLinesPerPage= 60
WindowShowCloseBtn= -1 'True
WindowShowSearchBtn= -1 'True
WindowShowPrintSetupBtn= -1 'True
WindowShowRefreshBtn= -1 'True
End
Begin Crystal.CrystalReport cr_int_pur_stock
Left = 3360
Top = 120
_ExtentX = 741
_ExtentY = 741
_Version = 348160
WindowTitle = "Internet Connection Stock"
WindowControlBox= -1 'True
WindowMaxButton = -1 'True
WindowMinButton = -1 'True
WindowState = 2
PrintFileLinesPerPage= 60
WindowShowCloseBtn= -1 'True
WindowShowSearchBtn= -1 'True
WindowShowPrintSetupBtn= -1 'True
WindowShowRefreshBtn= -1 'True
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?