📄 frmsystemset.frm
字号:
TabIndex = 45
Top = 720
Width = 1620
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "连锁店销售报表"
Height = 180
Left = 1050
TabIndex = 15
Top = 1845
Width = 1260
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "经营公司销售报表"
Height = 180
Left = 900
TabIndex = 13
Top = 2385
Width = 1440
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "经营公司库存报表"
Height = 180
Left = 870
TabIndex = 11
Top = 1275
Width = 1440
End
End
Begin VB.Frame Frame1
Height = 3690
Left = -74790
TabIndex = 1
Top = 450
Width = 7080
Begin VB.CheckBox chkPreview
Caption = "显示打印预览窗口"
Height = 285
Left = 780
TabIndex = 56
Top = 3285
Width = 2700
End
Begin VB.TextBox txtConvCap
Height = 315
Left = 1305
TabIndex = 51
Text = "调拨单"
Top = 1995
Width = 2160
End
Begin VB.TextBox txtSend
Height = 315
Left = 1290
TabIndex = 7
Text = "配送单"
Top = 1440
Width = 2160
End
Begin VB.TextBox txtSale
Height = 315
Left = 1290
TabIndex = 4
Text = "销售单"
Top = 930
Width = 2160
End
Begin VB.TextBox txtConv
Height = 315
Left = 1290
TabIndex = 3
Text = "进货单"
Top = 405
Width = 2160
End
Begin VB.Label Label27
AutoSize = -1 'True
Caption = "销调拨单"
Height = 180
Left = 390
TabIndex = 52
Top = 2070
Width = 720
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "配送单"
Height = 180
Left = 615
TabIndex = 6
Top = 1545
Width = 540
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "销售单"
Height = 180
Left = 570
TabIndex = 5
Top = 1005
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "进货单"
Height = 180
Left = 555
TabIndex = 2
Top = 450
Width = 540
End
End
End
End
Attribute VB_Name = "frmSystemSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Temp
Private Sub Command1_Click()
SaveSetting "LSDSTAR", "单据标题", "进货单", txtConv.Text
SaveSetting "LSDSTAR", "单据标题", "销售单", txtSale.Text
SaveSetting "LSDSTAR", "单据标题", "配送单", txtSend.Text
SaveSetting "LSDSTAR", "单据标题", "调拨单", txtConvCap.Text
SaveSetting "LSDSTAR", "单据标题", "显示预览窗口", Abs(chkPreview.Value)
SaveSetting "LSDSTAR", "程序标题", "进销存管理系统程序标题", txtMainTitle.Text
SaveSetting "LSDSTAR", "报表标题", "经营公司库存报表", txtMainStore.Text
SaveSetting "LSDSTAR", "报表标题", "分店库存报表", txtChainStore.Text
SaveSetting "LSDSTAR", "报表标题", "经营公司销售报表", txtMainSale.Text
SaveSetting "LSDSTAR", "数据库信息", "数据库连接方式", Abs(optODBC.Value)
SaveSetting "LSDSTAR", "数据库信息", "机器名", txtMachine.Text
SaveSetting "LSDSTAR", "数据库信息", "数据库名", txtDatabase.Text
SaveSetting "LSDSTAR", "数据库信息", "用户名", txtUid.Text
SaveSetting "LSDSTAR", "数据库信息", "口令", txtPwd.Text
SaveSetting "LSDSTAR", "数据库信息", "R机器名", txtRMachine.Text
SaveSetting "LSDSTAR", "数据库信息", "R数据库名", txtRDatabase.Text
SaveSetting "LSDSTAR", "数据库信息", "R用户名", txtRUid.Text
SaveSetting "LSDSTAR", "数据库信息", "R口令", txtRPwd.Text
SaveSetting "LSDSTAR", "进销管理", "进货单单号是否自动生成", Abs(chkStockPurcode.Value)
SaveSetting "LSDSTAR", "进销管理", "销售单单号是否自动生成", Abs(chkSalePurcode.Value)
SaveSetting "LSDSTAR", "进销管理", "调拨单单号是否自动生成", Abs(chkConv.Value)
SaveSetting "LSDSTAR", "库存设置", "允许负库存销售", Abs(chkAllowNagativeStoreSell.Value)
SaveSetting "LSDSTAR", "库存设置", "允许负库存调拨", Abs(chkAllowNagativeStoreConv.Value)
SaveSetting "LSDSTAR", "库存设置", "配送单自动保存", Abs(chkAutoSave.Value)
SaveSetting "LSDSTAR", "库存设置", "配送单加点提示", Abs(chkPSDJD.Value)
SaveSetting "LSDSTAR", "库存设置", "显示付款方式", Abs(chkPayType.Value)
SaveSetting "LSDSTAR", "库存设置", "显示业务员", Abs(chkYWY.Value)
SaveSetting "LSDSTAR", "库存设置", "显示订单", Abs(chkDD.Value)
SaveSetting "LSDSTAR", "库存设置", "打印零售价", Abs(chkPrintLSJ.Value)
SaveSetting "LSDSTAR", "库存设置", "打印税金", Abs(chkPrintSJ.Value)
SaveSetting "LSDSTAR", "库存设置", "盘点提示", Abs(chkPD.Value)
SaveSetting "LSDSTAR", "库存设置", "进货打印含税价", Abs(chkINHS.Value)
SaveSetting "LSDSTAR", "库存设置", "配送库存计算", Abs(chkPSKC.Value)
SaveSetting "LSDSTAR", "库存设置", "使用存储过程", Abs(chkUsePro.Value)
SaveSetting "LSDSTAR", "库存设置", "货币小数位数", Abs(optOne.Value)
If optIprc.Value Then
SaveSetting "LSDSTAR", "库存设置", "销售价格提示", "1"
ElseIf optRprc.Value Then
SaveSetting "LSDSTAR", "库存设置", "销售价格提示", "2"
ElseIf optPF1.Value Then
SaveSetting "LSDSTAR", "库存设置", "销售价格提示", "3"
ElseIf optPF2.Value Then
SaveSetting "LSDSTAR", "库存设置", "销售价格提示", "4"
End If
If optIprc2.Value Then
SaveSetting "LSDSTAR", "库存设置", "配送价格提示", "1"
ElseIf optRprc2.Value Then
SaveSetting "LSDSTAR", "库存设置", "配送价格提示", "2"
ElseIf optPF12.Value Then
SaveSetting "LSDSTAR", "库存设置", "配送价格提示", "3"
ElseIf optPF22.Value Then
SaveSetting "LSDSTAR", "库存设置", "配送价格提示", "4"
End If
If optIprc3.Value Then
SaveSetting "LSDSTAR", "库存设置", "进货价格提示", "1"
ElseIf optRprc3.Value Then
SaveSetting "LSDSTAR", "库存设置", "进货价格提示", "2"
ElseIf optPF13.Value Then
SaveSetting "LSDSTAR", "库存设置", "进货价格提示", "3"
ElseIf optPF23.Value Then
SaveSetting "LSDSTAR", "库存设置", "进货价格提示", "4"
End If
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
Dim Temp
Temp = "若用ODBC连接，则数据库名为ODBC数据源名。"
Temp = Temp & vbCrLf & "若用直接数据库连接，则数据库名为SQL SERVER数据库名。"
MsgBox Temp, vbInformation, "提示窗口"
End Sub
Private Sub Form_Load()
Dim t
Dim tt
txtConv.Text = GetSetting("LSDSTAR", "单据标题", "进货单", "进货单")
txtSale.Text = GetSetting("LSDSTAR", "单据标题", "销售单", "销售单")
txtSend.Text = GetSetting("LSDSTAR", "单据标题", "配送单", "配送单")
txtConvCap.Text = GetSetting("LSDSTAR", "单据标题", "调拨单", "调拨单")
chkPreview.Value = GetSetting("LSDSTAR", "单据标题", "显示预览窗口", "1")
txtMainTitle.Text = GetSetting("LSDSTAR", "程序标题", "进销存管理系统程序标题", "LSDSTAR")
txtMainStore.Text = GetSetting("LSDSTAR", "报表标题", "经营公司库存报表", "经营公司库存报表")
txtChainStore.Text = GetSetting("LSDSTAR", "报表标题", "分店库存报表", "分店库存报表")
txtMainSale.Text = GetSetting("LSDSTAR", "报表标题", "经营公司销售报表", "经营公司销售报表")
optODBC.Value = GetSetting("LSDSTAR", "数据库信息", "数据库连接方式", "1")
optNonODBC.Value = Not optODBC.Value
txtMachine.Text = GetSetting("LSDSTAR", "数据库信息", "机器名", "NT_SERVER")
txtDatabase.Text = GetSetting("LSDSTAR", "数据库信息", "数据库名", "DSTAR")
txtUid.Text = GetSetting("LSDSTAR", "数据库信息", "用户名", "ad")
txtPwd.Text = GetSetting("LSDSTAR", "数据库信息", "口令", "ad")
txtRMachine.Text = GetSetting("LSDSTAR", "数据库信息", "R机器名", "SERVER01")
txtRDatabase.Text = GetSetting("LSDSTAR", "数据库信息", "R数据库名", "DSTAR_C")
txtRUid.Text = GetSetting("LSDSTAR", "数据库信息", "R用户名", "ad")
txtRPwd.Text = GetSetting("LSDSTAR", "数据库信息", "R口令", "ad")
chkStockPurcode.Value = GetSetting("LSDSTAR", "进销管理", "进货单单号是否自动生成", "1")
chkSalePurcode.Value = GetSetting("LSDSTAR", "进销管理", "销售单单号是否自动生成", "1")
chkConv.Value = GetSetting("LSDSTAR", "进销管理", "调拨单单号是否自动生成", "1")
chkAllowNagativeStoreSell.Value = GetSetting("LSDSTAR", "库存设置", "允许负库存销售", "1")
chkAllowNagativeStoreConv.Value = GetSetting("LSDSTAR", "库存设置", "允许负库存调拨", "1")
chkAutoSave.Value = GetSetting("LSDSTAR", "库存设置", "配送单自动保存", "1")
chkPSDJD.Value = GetSetting("LSDSTAR", "库存设置", "配送单加点提示", "1")
chkPayType.Value = GetSetting("LSDSTAR", "库存设置", "显示付款方式", "1")
chkYWY.Value = GetSetting("LSDSTAR", "库存设置", "显示业务员", "1")
chkDD.Value = GetSetting("LSDSTAR", "库存设置", "显示订单", "1")
chkPrintLSJ.Value = GetSetting("LSDSTAR", "库存设置", "打印零售价", "1")
chkPrintSJ.Value = GetSetting("LSDSTAR", "库存设置", "打印税金", "1")
chkPD.Value = GetSetting("LSDSTAR", "库存设置", "盘点提示", "1")
chkINHS.Value = GetSetting("LSDSTAR", "库存设置", "进货打印含税价", "1")
chkPSKC.Value = GetSetting("LSDSTAR", "库存设置", "配送库存计算", "1")
chkUsePro.Value = GetSetting("LSDSTAR", "库存设置", "使用存储过程", "1")
optOne.Value = GetSetting("LSDSTAR", "库存设置", "货币小数位数", "1")
optTwo.Value = Not optOne.Value
tt = GetSetting("LSDSTAR", "库存设置", "销售价格提示", "1")
Select Case tt
Case "1"
optIprc.Value = True
Case "2"
optRprc.Value = True
Case "3"
optPF1.Value = True
Case "4"
optPF2.Value = True
End Select
tt = GetSetting("LSDSTAR", "库存设置", "配送价格提示", "1")
Select Case tt
Case "1"
optIprc2.Value = True
Case "2"
optRprc2.Value = True
Case "3"
optPF12.Value = True
Case "4"
optPF22.Value = True
End Select
tt = GetSetting("LSDSTAR", "库存设置", "进货价格提示", "1")
Select Case tt
Case "1"
optIprc3.Value = True
Case "2"
optRprc3.Value = True
Case "3"
optPF13.Value = True
Case "4"
optPF23.Value = True
End Select
' optIprc.Value = GetSetting("LSDSTAR", "库存设置", "销售价格提示", "1")
' optRprc.Value = Not optIprc.Value
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -