📄 sedit.frm
字号:
DataField = "qty"
Caption = "qty"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column09
DataField = "rate"
Caption = "rate"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column10
DataField = "rebate"
Caption = "rebate"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
Object.Visible = 0 'False
ColumnWidth = 915.024
EndProperty
BeginProperty Column01
Object.Visible = 0 'False
ColumnWidth = 1739.906
EndProperty
BeginProperty Column02
Object.Visible = 0 'False
ColumnWidth = 1739.906
EndProperty
BeginProperty Column03
Object.Visible = 0 'False
ColumnWidth = 1739.906
EndProperty
BeginProperty Column04
ColumnWidth = 1289.764
EndProperty
BeginProperty Column05
ColumnWidth = 1244.976
EndProperty
BeginProperty Column06
ColumnWidth = 1319.811
EndProperty
BeginProperty Column07
ColumnWidth = 1379.906
EndProperty
BeginProperty Column08
ColumnWidth = 720
EndProperty
BeginProperty Column09
ColumnWidth = 989.858
EndProperty
BeginProperty Column10
ColumnWidth = 1049.953
EndProperty
EndProperty
End
Begin MSComDlg.CommonDialog cd
Left = 11400
Top = 4800
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "A/c ID"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 450
TabIndex = 29
Top = 75
Width = 855
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "Date"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Left = 6120
TabIndex = 28
Top = 75
Width = 855
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "Time"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 255
Left = 7755
TabIndex = 27
Top = 90
Width = 495
End
Begin VB.Line Line1
X1 = -30
X2 = 9450
Y1 = 675
Y2 = 675
End
Begin VB.Line Line2
X1 = -30
X2 = 9450
Y1 = 4155
Y2 = 4155
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "NET AMT"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 330
TabIndex = 26
Top = 4275
Width = 855
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "Pay Mode"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1890
TabIndex = 25
Top = 4275
Width = 1335
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "Amount PAID"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5370
TabIndex = 24
Top = 4275
Width = 1335
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "Balance"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 7320
TabIndex = 23
Top = 4260
Width = 855
End
Begin VB.Label Label8
Alignment = 2 'Center
BackStyle = 0 'Transparent
Height = 255
Left = 5595
TabIndex = 22
Top = 3795
Width = 765
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "Bill No."
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 375
Left = 4560
TabIndex = 21
Top = 75
Width = 1095
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "Cheque No."
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3570
TabIndex = 20
Top = 4275
Width = 1215
End
End
Begin VB.TextBox Text13
Height = 285
Left = -360
TabIndex = 7
Text = "Text13"
Top = 5070
Visible = 0 'False
Width = 615
End
Begin VB.Frame Frame3
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
Height = 735
Left = 105
TabIndex = 5
Top = 5490
Width = 8775
Begin VB.CommandButton Command11
BackColor = &H00FFFFFF&
Height = 630
Left = 7860
Picture = "Sedit.frx":0031
Style = 1 'Graphical
TabIndex = 6
Top = 60
Width = 810
End
End
Begin VB.TextBox Text15
DataField = "Ac_no"
DataSource = "Adodc2"
Height = 285
Left = 2940
TabIndex = 4
Text = "Text15"
Top = 6765
Width = 255
End
Begin VB.TextBox Text12
DataField = "ac_id"
DataSource = "Adodc1"
Height = 285
Left = 900
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -