main_rcyw_sellth.frm

医药进销存管理系统 对医药的购买销售和库存进行系统管理

VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form main_rcyw_sellth 
   Caption         =   "销售退货"
   ClientHeight    =   2895
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   9390
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   2895
   ScaleWidth      =   9390
   WindowState     =   2  'Maximized
   Begin MSAdodcLib.Adodc Adodc1 
      Height          =   405
      Left            =   -165
      Top             =   2100
      Visible         =   0   'False
      Width           =   2580
      _ExtentX        =   4551
      _ExtentY        =   714
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   3
      CommandType     =   1
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   1
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=YYJXC"
      OLEDBString     =   "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=YYJXC"
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   "select * from tb_sell_detailed order by 销售单据号"
      Caption         =   "Adodc1"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   390
      Left            =   7785
      TabIndex        =   4
      Top             =   2415
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "退货"
      Height          =   390
      Left            =   6270
      TabIndex        =   3
      Top             =   2415
      Width           =   1455
   End
   Begin MSHierarchicalFlexGridLib.MSHFlexGrid mshg1 
      Bindings        =   "main_rcyw_sellth.frx":0000
      Height          =   1740
      Left            =   30
      TabIndex        =   2
      Top             =   585
      Width           =   9285
      _ExtentX        =   16378
      _ExtentY        =   3069
      _Version        =   393216
      Cols            =   14
      _NumberOfBands  =   1
      _Band(0).Cols   =   14
      _Band(0)._NumMapCols=   13
      _Band(0)._MapCol(0)._Name=   "药品编号"
      _Band(0)._MapCol(0)._RSIndex=   0
      _Band(0)._MapCol(0)._Alignment=   7
      _Band(0)._MapCol(1)._Name=   "药品名称"
      _Band(0)._MapCol(1)._RSIndex=   1
      _Band(0)._MapCol(2)._Name=   "单位"
      _Band(0)._MapCol(2)._RSIndex=   2
      _Band(0)._MapCol(3)._Name=   "规格"
      _Band(0)._MapCol(3)._RSIndex=   3
      _Band(0)._MapCol(4)._Name=   "产地"
      _Band(0)._MapCol(4)._RSIndex=   4
      _Band(0)._MapCol(5)._Name=   "批号"
      _Band(0)._MapCol(5)._RSIndex=   5
      _Band(0)._MapCol(6)._Name=   "数量"
      _Band(0)._MapCol(6)._RSIndex=   6
      _Band(0)._MapCol(6)._Alignment=   7
      _Band(0)._MapCol(7)._Name=   "零售价"
      _Band(0)._MapCol(7)._RSIndex=   7
      _Band(0)._MapCol(7)._Alignment=   7
      _Band(0)._MapCol(8)._Name=   "金额"
      _Band(0)._MapCol(8)._RSIndex=   8
      _Band(0)._MapCol(8)._Alignment=   7
      _Band(0)._MapCol(9)._Name=   "客户编号"
      _Band(0)._MapCol(9)._RSIndex=   9
      _Band(0)._MapCol(9)._Alignment=   7
      _Band(0)._MapCol(10)._Name=   "客户名称"
      _Band(0)._MapCol(10)._RSIndex=   10
      _Band(0)._MapCol(11)._Name=   "销售日期"
      _Band(0)._MapCol(11)._RSIndex=   11
      _Band(0)._MapCol(12)._Name=   "销售单据号"
      _Band(0)._MapCol(12)._RSIndex=   12
   End
   Begin VB.TextBox Text1 
      Height          =   315
      Left            =   1575
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   150
      Width           =   4125
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "销售退货单据号:"
      Height          =   240
      Left            =   165
      TabIndex        =   0
      Top             =   240
      Width           =   1890
   End
End
Attribute VB_Name = "main_rcyw_sellth"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
  For i = 1 To Adodc1.Recordset.RecordCount
    mshg1.TextMatrix(i, 0) = i
  Next i
  Text1.Text = ""
End Sub
Private Sub Text1_Change()
  Adodc1.RecordSource = "select * from tb_sell_detailed where 销售单据号='" + Text1 + "'"
  Adodc1.Refresh
End Sub
Private Sub Command1_Click()
  cnn.Execute ("insert into tb_sellth_detailed select * from tb_sell_detailed where tb_sell_detailed.销售单据号='" + Text1 + "'")
  MsgBox "退货成功！"
End Sub
Private Sub Command2_Click()
  Unload Me
End Sub