frmset.frm

服装销售系统,VB开发.没有解压密码

VERSION 5.00
Begin VB.Form frmSet 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "自动设置"
   ClientHeight    =   4185
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5490
   Icon            =   "frmSet.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4185
   ScaleWidth      =   5490
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command2 
      Caption         =   "取消[&C]"
      Height          =   450
      Left            =   3075
      TabIndex        =   10
      Top             =   3450
      Width           =   1185
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定[&O]"
      Height          =   450
      Left            =   885
      TabIndex        =   9
      Top             =   3450
      Width           =   1185
   End
   Begin VB.Frame Frame3 
      Caption         =   "时间设定"
      Height          =   1200
      Left            =   210
      TabIndex        =   7
      Top             =   2085
      Width           =   4980
      Begin VB.TextBox txtTime 
         Height          =   345
         Left            =   2100
         TabIndex        =   11
         Top             =   465
         Width           =   1560
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "自动工作时间："
         Height          =   180
         Left            =   495
         TabIndex        =   8
         Top             =   510
         Width           =   1260
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "内容"
      Height          =   1740
      Left            =   2610
      TabIndex        =   3
      Top             =   195
      Width           =   2595
      Begin VB.CheckBox chkLog 
         Caption         =   "保存日志"
         Height          =   285
         Left            =   705
         TabIndex        =   6
         Top             =   1230
         Width           =   1020
      End
      Begin VB.CheckBox chkCode 
         Caption         =   "生成编码"
         Height          =   270
         Left            =   705
         TabIndex        =   5
         Top             =   765
         Width           =   1260
      End
      Begin VB.CheckBox chkReceive 
         Caption         =   "接收"
         Height          =   180
         Left            =   705
         TabIndex        =   4
         Top             =   315
         Width           =   1245
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "是否自动"
      Height          =   1740
      Left            =   180
      TabIndex        =   0
      Top             =   180
      Width           =   2325
      Begin VB.OptionButton optNo 
         Caption         =   "否"
         Height          =   330
         Left            =   570
         TabIndex        =   2
         Top             =   975
         Value           =   -1  'True
         Width           =   1305
      End
      Begin VB.OptionButton optYes 
         Caption         =   "是"
         Height          =   270
         Left            =   570
         TabIndex        =   1
         Top             =   375
         Width           =   1275
      End
   End
End
Attribute VB_Name = "frmSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
    SaveSetting "LSDSTAR", "数据接收", "是否自动", CStr(Abs(optYes.Value))
    SaveSetting "LSDSTAR", "数据接收", "接收自动", CStr(Abs(chkReceive.Value))
    SaveSetting "LSDSTAR", "数据接收", "编码自动", CStr(Abs(chkCode.Value))
    SaveSetting "LSDSTAR", "数据接收", "日志自动", CStr(Abs(chkLog.Value))
    SaveSetting "LSDSTAR", "数据接收", "工作时间", Format(txtTime.Text, "HH:MM")
    If optYes.Value Then frm数据接收.Timer1.Enabled = True
    Unload Me
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    optYes.Value = GetSetting("LSDSTAR", "数据接收", "是否自动", "0")
    optNo.Value = Not optYes.Value
    chkReceive.Value = GetSetting("LSDSTAR", "数据接收", "接收自动", "0")
    chkCode.Value = GetSetting("LSDSTAR", "数据接收", "编码自动", "0")
    chkLog.Value = GetSetting("LSDSTAR", "数据接收", "日志自动", "0")
    txtTime.Text = GetSetting("LSDSTAR", "数据接收", "工作时间", "12:00")
End Sub

Private Sub txtTime_Validate(Cancel As Boolean)
    On Error Resume Next
    txtTime.Text = Format(txtTime.Text, "HH:MM")
End Sub