号码.frm

以前写的一个销售的管理系统,是牙刷销存管理系统,有销售,进货等功能,刚学ＶＢ时写的

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   1680
      TabIndex        =   1
      Top             =   2040
      Width           =   1335
   End
   Begin VB.TextBox Text1 
      Height          =   615
      Left            =   1080
      TabIndex        =   0
      Top             =   480
      Width           =   2175
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
  i = Text1.Text
  j = Right(i, 3)
  k = CInt(j) + 1
  Select Case o < 10000
  Case k < 10
       
       Text1.Text = Left(Text1.Text, 10) & k
  Case k >= 10 And k < 100
       
       Text1.Text = Left(Text1.Text, 9) & k
  Case k >= 100 And k < 1000
       
       Text1.Text = Left(Text1.Text, 8) & k
  End Select
    
  
End Sub
'随机产生编号,格式为客户编号+日期+随机号
Private Sub Form_Load()
 Dim db As Database
 Dim rs As Recordset
 Dim str As String
 Set db = OpenDatabase("c:\my documents\test.mdb")
 Set rs = db.OpenRecordset("bh")
 Text1.Text = CStr(Year(Now) & Month(Now) & Day(Now)) & "001"
End Sub


DefaultType = dbUseODBC
  Dim db As Database
  Dim rs As Recordset
  Dim str As String
  Dim substr As String
  Dim yue As String
  Dim tian As String
  Dim totol As String
  yue = Month(Now)
  tian = Day(Now)
  If yue <= 9 Then
     yue = "0" & yue
  End If
  If tian <= 9 Then
     tian = "0" & tian
  End If
  cx = False
  On Error GoTo a
  Set db = OpenDatabase("xsys", dbDriverNoPrompt, False, "odbc;database=glxt;uid=;pwd=;dsn=xsys")
  Set rs = db.OpenRecordset("fdk", dbOpenDynaset, dbwrite, dbOptimistic)
  rs.MoveLast
  str = rs.Fields("发货单编号")
  substr = Mid(str, 5, 8)
  totol = Year(Now) & yue & tian
  If totol > substr Then
     txtfh.Text = txtkh.Text & CStr(Year(Now)) & yue & tian & "001"
  Else
     j = Right(str, 3)
     k = CInt(j) + 1
     Select Case k < 1000
     Case k < 10
          str = txtkh.Text & CStr(Year(Now)) & yue & tian & "0" & "0" & k
     Case k >= 10 And k < 100
          str = txtkh.Text & CStr(Year(Now)) & yue & tian & "0" & k
     Case k >= 100 And k < 1000
          str = txtkh.Text & CStr(Year(Now)) & yue & tian & k
     End Select
     txtfh.Text = str
  End If
a:
  If Err.Number = 3021 Then
     txtfh.Text = txtkh.Text & CStr(Year(Now)) & yue & tian & "001"
  End If
End Sub
'根据时间建表
Dim db As Database
  Dim str As String
  str = "rdk" & CStr(Year(Now))
  Set db = OpenDatabase("xsys", dbDriverNoPrompt, False, "odbc;database=glxt;uid=;pwd=;dsn=xsys")
  SQL = "create table [" + str + "]([合同号]text(10),[编号]text(10),[规格]text(20),[品名]text(40),[颜色]text(8),[数量]double,[单位]text(8),[产地]text(8),[备注]text(50),[入库日期]date)"
  db.Execute SQL