开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 医药行业 > 查看源码
frmManageFk.vb
资源名称：SALEOUTSYSTEM.rar　[点击查看]
上传用户：wj57717022
上传日期：2014-12-16
资源大小：4093k
文件大小：27k
源码类别：

医药行业

开发平台：

Visual Basic

frmManageFk.vb：源码内容
  1. Public Class frmManageFk
  2.     Inherits System.Windows.Forms.Form
  4. #Region " Windows 窗体设计器生成的代码 "
  6.     Public Sub New()
  7.         MyBase.New()
  9.         '该调用是 Windows 窗体设计器所必需的。
  10.         InitializeComponent()
  12.         '在 InitializeComponent() 调用之后添加任何初始化
  14.     End Sub
  16.     '窗体重写 dispose 以清理组件列表。
  17.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  18.         If disposing Then
  19.             If Not (components Is Nothing) Then
  20.                 components.Dispose()
  21.             End If
  22.         End If
  23.         MyBase.Dispose(disposing)
  24.     End Sub
  26.     'Windows 窗体设计器所必需的
  27.     Private components As System.ComponentModel.IContainer
  29.     '注意: 以下过程是 Windows 窗体设计器所必需的
  30.     '可以使用 Windows 窗体设计器修改此过程。
  31.     '不要使用代码编辑器修改它。
  32.     Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
  33.     Friend WithEvents tbnAdd As System.Windows.Forms.ToolBarButton
  34.     Friend WithEvents tbnSave As System.Windows.Forms.ToolBarButton
  35.     Friend WithEvents tbnPrint As System.Windows.Forms.ToolBarButton
  36.     Friend WithEvents tbnExit As System.Windows.Forms.ToolBarButton
  37.     Friend WithEvents Panel1 As System.Windows.Forms.Panel
  38.     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  39.     Friend WithEvents lstview As System.Windows.Forms.ListBox
  40.     Friend WithEvents txtdate As System.Windows.Forms.DateTimePicker
  41.     Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
  42.     Friend WithEvents txtJs As System.Windows.Forms.TextBox
  43.     Friend WithEvents txtzy As System.Windows.Forms.TextBox
  44.     Friend WithEvents Label14 As System.Windows.Forms.Label
  45.     Friend WithEvents txtdemo As System.Windows.Forms.TextBox
  46.     Friend WithEvents Label13 As System.Windows.Forms.Label
  47.     Friend WithEvents txtshy As System.Windows.Forms.ComboBox
  48.     Friend WithEvents Label12 As System.Windows.Forms.Label
  49.     Friend WithEvents txtczy As System.Windows.Forms.ComboBox
  50.     Friend WithEvents Label11 As System.Windows.Forms.Label
  51.     Friend WithEvents txtyemoney As System.Windows.Forms.TextBox
  52.     Friend WithEvents Label10 As System.Windows.Forms.Label
  53.     Friend WithEvents Label9 As System.Windows.Forms.Label
  54.     Friend WithEvents Label8 As System.Windows.Forms.Label
  55.     Friend WithEvents txtMoney As System.Windows.Forms.TextBox
  56.     Friend WithEvents Label7 As System.Windows.Forms.Label
  57.     Friend WithEvents txtFph As System.Windows.Forms.TextBox
  58.     Friend WithEvents Label6 As System.Windows.Forms.Label
  59.     Friend WithEvents txtCustName As System.Windows.Forms.TextBox
  60.     Friend WithEvents Label5 As System.Windows.Forms.Label
  61.     Friend WithEvents txtCustNumber As System.Windows.Forms.TextBox
  62.     Friend WithEvents Label4 As System.Windows.Forms.Label
  63.     Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
  64.     Friend WithEvents Label3 As System.Windows.Forms.Label
  65.     Friend WithEvents txtdateFk As System.Windows.Forms.DateTimePicker
  66.     Friend WithEvents Label2 As System.Windows.Forms.Label
  67.     Friend WithEvents txtbillnumber As System.Windows.Forms.TextBox
  68.     Friend WithEvents Label1 As System.Windows.Forms.Label
  69.     Friend WithEvents Panel2 As System.Windows.Forms.Panel
  70.     Friend WithEvents dgview As System.Windows.Forms.DataGrid
  71.     Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
  72.     Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider
  73.     Friend WithEvents txtYfmoney As System.Windows.Forms.TextBox
  74.     Friend WithEvents txtYmoney As System.Windows.Forms.TextBox
  75.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  76.         Me.components = New System.ComponentModel.Container
  77.         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmManageFk))
  78.         Me.ToolBar1 = New System.Windows.Forms.ToolBar
  79.         Me.tbnAdd = New System.Windows.Forms.ToolBarButton
  80.         Me.tbnSave = New System.Windows.Forms.ToolBarButton
  81.         Me.tbnPrint = New System.Windows.Forms.ToolBarButton
  82.         Me.tbnExit = New System.Windows.Forms.ToolBarButton
  83.         Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
  84.         Me.Panel1 = New System.Windows.Forms.Panel
  85.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  86.         Me.lstview = New System.Windows.Forms.ListBox
  87.         Me.txtdate = New System.Windows.Forms.DateTimePicker
  88.         Me.GroupBox4 = New System.Windows.Forms.GroupBox
  89.         Me.txtJs = New System.Windows.Forms.TextBox
  90.         Me.txtzy = New System.Windows.Forms.TextBox
  91.         Me.Label14 = New System.Windows.Forms.Label
  92.         Me.txtdemo = New System.Windows.Forms.TextBox
  93.         Me.Label13 = New System.Windows.Forms.Label
  94.         Me.txtshy = New System.Windows.Forms.ComboBox
  95.         Me.Label12 = New System.Windows.Forms.Label
  96.         Me.txtczy = New System.Windows.Forms.ComboBox
  97.         Me.Label11 = New System.Windows.Forms.Label
  98.         Me.txtyemoney = New System.Windows.Forms.TextBox
  99.         Me.Label10 = New System.Windows.Forms.Label
  100.         Me.txtYfmoney = New System.Windows.Forms.TextBox
  101.         Me.Label9 = New System.Windows.Forms.Label
  102.         Me.txtYmoney = New System.Windows.Forms.TextBox
  103.         Me.Label8 = New System.Windows.Forms.Label
  104.         Me.txtMoney = New System.Windows.Forms.TextBox
  105.         Me.Label7 = New System.Windows.Forms.Label
  106.         Me.txtFph = New System.Windows.Forms.TextBox
  107.         Me.Label6 = New System.Windows.Forms.Label
  108.         Me.txtCustName = New System.Windows.Forms.TextBox
  109.         Me.Label5 = New System.Windows.Forms.Label
  110.         Me.txtCustNumber = New System.Windows.Forms.TextBox
  111.         Me.Label4 = New System.Windows.Forms.Label
  112.         Me.GroupBox2 = New System.Windows.Forms.GroupBox
  113.         Me.Label3 = New System.Windows.Forms.Label
  114.         Me.txtdateFk = New System.Windows.Forms.DateTimePicker
  115.         Me.Label2 = New System.Windows.Forms.Label
  116.         Me.txtbillnumber = New System.Windows.Forms.TextBox
  117.         Me.Label1 = New System.Windows.Forms.Label
  118.         Me.Panel2 = New System.Windows.Forms.Panel
  119.         Me.dgview = New System.Windows.Forms.DataGrid
  120.         Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider
  121.         Me.Panel1.SuspendLayout()
  122.         Me.GroupBox1.SuspendLayout()
  123.         Me.Panel2.SuspendLayout()
  124.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).BeginInit()
  125.         Me.SuspendLayout()
  126.         '
  127.         'ToolBar1
  128.         '
  129.         Me.ToolBar1.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
  130.         Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbnAdd, Me.tbnSave, Me.tbnPrint, Me.tbnExit})
  131.         Me.ToolBar1.DropDownArrows = True
  132.         Me.ToolBar1.ImageList = Me.ImageList2
  133.         Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
  134.         Me.ToolBar1.Name = "ToolBar1"
  135.         Me.ToolBar1.ShowToolTips = True
  136.         Me.ToolBar1.Size = New System.Drawing.Size(694, 41)
  137.         Me.ToolBar1.TabIndex = 7
  138.         '
  139.         'tbnAdd
  140.         '
  141.         Me.tbnAdd.ImageIndex = 7
  142.         Me.tbnAdd.Text = "添加"
  143.         '
  144.         'tbnSave
  145.         '
  146.         Me.tbnSave.ImageIndex = 4
  147.         Me.tbnSave.Text = "保存"
  148.         '
  149.         'tbnPrint
  150.         '
  151.         Me.tbnPrint.ImageIndex = 12
  152.         Me.tbnPrint.Text = "打印"
  153.         '
  154.         'tbnExit
  155.         '
  156.         Me.tbnExit.ImageIndex = 11
  157.         Me.tbnExit.Text = "退出"
  158.         '
  159.         'ImageList2
  160.         '
  161.         Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
  162.         Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
  163.         Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
  164.         '
  165.         'Panel1
  166.         '
  167.         Me.Panel1.Controls.Add(Me.GroupBox1)
  168.         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
  169.         Me.Panel1.Location = New System.Drawing.Point(0, 41)
  170.         Me.Panel1.Name = "Panel1"
  171.         Me.Panel1.Size = New System.Drawing.Size(694, 207)
  172.         Me.Panel1.TabIndex = 8
  173.         '
  174.         'GroupBox1
  175.         '
  176.         Me.GroupBox1.Controls.Add(Me.lstview)
  177.         Me.GroupBox1.Controls.Add(Me.txtdate)
  178.         Me.GroupBox1.Controls.Add(Me.GroupBox4)
  179.         Me.GroupBox1.Controls.Add(Me.txtJs)
  180.         Me.GroupBox1.Controls.Add(Me.txtzy)
  181.         Me.GroupBox1.Controls.Add(Me.Label14)
  182.         Me.GroupBox1.Controls.Add(Me.txtdemo)
  183.         Me.GroupBox1.Controls.Add(Me.Label13)
  184.         Me.GroupBox1.Controls.Add(Me.txtshy)
  185.         Me.GroupBox1.Controls.Add(Me.Label12)
  186.         Me.GroupBox1.Controls.Add(Me.txtczy)
  187.         Me.GroupBox1.Controls.Add(Me.Label11)
  188.         Me.GroupBox1.Controls.Add(Me.txtyemoney)
  189.         Me.GroupBox1.Controls.Add(Me.Label10)
  190.         Me.GroupBox1.Controls.Add(Me.txtYfmoney)
  191.         Me.GroupBox1.Controls.Add(Me.Label9)
  192.         Me.GroupBox1.Controls.Add(Me.txtYmoney)
  193.         Me.GroupBox1.Controls.Add(Me.Label8)
  194.         Me.GroupBox1.Controls.Add(Me.txtMoney)
  195.         Me.GroupBox1.Controls.Add(Me.Label7)
  196.         Me.GroupBox1.Controls.Add(Me.txtFph)
  197.         Me.GroupBox1.Controls.Add(Me.Label6)
  198.         Me.GroupBox1.Controls.Add(Me.txtCustName)
  199.         Me.GroupBox1.Controls.Add(Me.Label5)
  200.         Me.GroupBox1.Controls.Add(Me.txtCustNumber)
  201.         Me.GroupBox1.Controls.Add(Me.Label4)
  202.         Me.GroupBox1.Controls.Add(Me.GroupBox2)
  203.         Me.GroupBox1.Controls.Add(Me.Label3)
  204.         Me.GroupBox1.Controls.Add(Me.txtdateFk)
  205.         Me.GroupBox1.Controls.Add(Me.Label2)
  206.         Me.GroupBox1.Controls.Add(Me.txtbillnumber)
  207.         Me.GroupBox1.Controls.Add(Me.Label1)
  208.         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Fill
  209.         Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
  210.         Me.GroupBox1.Name = "GroupBox1"
  211.         Me.GroupBox1.Size = New System.Drawing.Size(694, 207)
  212.         Me.GroupBox1.TabIndex = 5
  213.         Me.GroupBox1.TabStop = False
  214.         Me.GroupBox1.Text = "付款信息："
  215.         '
  216.         'lstview
  217.         '
  218.         Me.lstview.ItemHeight = 12
  219.         Me.lstview.Location = New System.Drawing.Point(8, 47)
  220.         Me.lstview.Name = "lstview"
  221.         Me.lstview.Size = New System.Drawing.Size(104, 148)
  222.         Me.lstview.TabIndex = 32
  223.         '
  224.         'txtdate
  225.         '
  226.         Me.txtdate.Location = New System.Drawing.Point(8, 22)
  227.         Me.txtdate.Name = "txtdate"
  228.         Me.txtdate.Size = New System.Drawing.Size(102, 21)
  229.         Me.txtdate.TabIndex = 31
  230.         Me.txtdate.Value = New Date(2006, 2, 20, 0, 0, 0, 0)
  231.         '
  232.         'GroupBox4
  233.         '
  234.         Me.GroupBox4.Location = New System.Drawing.Point(120, 0)
  235.         Me.GroupBox4.Name = "GroupBox4"
  236.         Me.GroupBox4.Size = New System.Drawing.Size(8, 208)
  237.         Me.GroupBox4.TabIndex = 30
  238.         Me.GroupBox4.TabStop = False
  239.         '
  240.         'txtJs
  241.         '
  242.         Me.txtJs.Location = New System.Drawing.Point(186, 24)
  243.         Me.txtJs.Name = "txtJs"
  244.         Me.txtJs.ReadOnly = True
  245.         Me.txtJs.Size = New System.Drawing.Size(90, 21)
  246.         Me.txtJs.TabIndex = 29
  247.         Me.txtJs.Text = ""
  248.         '
  249.         'txtzy
  250.         '
  251.         Me.txtzy.Location = New System.Drawing.Point(498, 160)
  252.         Me.txtzy.Name = "txtzy"
  253.         Me.txtzy.Size = New System.Drawing.Size(180, 21)
  254.         Me.txtzy.TabIndex = 28
  255.         Me.txtzy.Text = ""
  256.         '
  257.         'Label14
  258.         '
  259.         Me.Label14.AutoSize = True
  260.         Me.Label14.Location = New System.Drawing.Point(468, 168)
  261.         Me.Label14.Name = "Label14"
  262.         Me.Label14.Size = New System.Drawing.Size(42, 17)
  263.         Me.Label14.TabIndex = 27
  264.         Me.Label14.Text = "摘要："
  265.         '
  266.         'txtdemo
  267.         '
  268.         Me.txtdemo.Location = New System.Drawing.Point(498, 131)
  269.         Me.txtdemo.Name = "txtdemo"
  270.         Me.txtdemo.Size = New System.Drawing.Size(180, 21)
  271.         Me.txtdemo.TabIndex = 26
  272.         Me.txtdemo.Text = ""
  273.         '
  274.         'Label13
  275.         '
  276.         Me.Label13.AutoSize = True
  277.         Me.Label13.Location = New System.Drawing.Point(468, 136)
  278.         Me.Label13.Name = "Label13"
  279.         Me.Label13.Size = New System.Drawing.Size(42, 17)
  280.         Me.Label13.TabIndex = 25
  281.         Me.Label13.Text = "备注："
  282.         '
  283.         'txtshy
  284.         '
  285.         Me.txtshy.Location = New System.Drawing.Point(336, 128)
  286.         Me.txtshy.Name = "txtshy"
  287.         Me.txtshy.Size = New System.Drawing.Size(96, 20)
  288.         Me.txtshy.TabIndex = 24
  289.         '
  290.         'Label12
  291.         '
  292.         Me.Label12.AutoSize = True
  293.         Me.Label12.Location = New System.Drawing.Point(294, 136)
  294.         Me.Label12.Name = "Label12"
  295.         Me.Label12.Size = New System.Drawing.Size(54, 17)
  296.         Me.Label12.TabIndex = 23
  297.         Me.Label12.Text = "审核员："
  298.         '
  299.         'txtczy
  300.         '
  301.         Me.txtczy.Location = New System.Drawing.Point(186, 128)
  302.         Me.txtczy.Name = "txtczy"
  303.         Me.txtczy.Size = New System.Drawing.Size(88, 20)
  304.         Me.txtczy.TabIndex = 22
  305.         '
  306.         'Label11
  307.         '
  308.         Me.Label11.AutoSize = True
  309.         Me.Label11.Location = New System.Drawing.Point(144, 136)
  310.         Me.Label11.Name = "Label11"
  311.         Me.Label11.Size = New System.Drawing.Size(54, 17)
  312.         Me.Label11.TabIndex = 21
  313.         Me.Label11.Text = "操作员："
  314.         '
  315.         'txtyemoney
  316.         '
  317.         Me.txtyemoney.Location = New System.Drawing.Point(612, 96)
  318.         Me.txtyemoney.Name = "txtyemoney"
  319.         Me.txtyemoney.ReadOnly = True
  320.         Me.txtyemoney.Size = New System.Drawing.Size(66, 21)
  321.         Me.txtyemoney.TabIndex = 20
  322.         Me.txtyemoney.Text = ""
  323.         '
  324.         'Label10
  325.         '
  326.         Me.Label10.AutoSize = True
  327.         Me.Label10.Location = New System.Drawing.Point(582, 106)
  328.         Me.Label10.Name = "Label10"
  329.         Me.Label10.Size = New System.Drawing.Size(42, 17)
  330.         Me.Label10.TabIndex = 19
  331.         Me.Label10.Text = "余额："
  332.         '
  333.         'txtYfmoney
  334.         '
  335.         Me.txtYfmoney.Location = New System.Drawing.Point(336, 96)
  336.         Me.txtYfmoney.Name = "txtYfmoney"
  337.         Me.txtYfmoney.ReadOnly = True
  338.         Me.txtYfmoney.Size = New System.Drawing.Size(96, 21)
  339.         Me.txtYfmoney.TabIndex = 18
  340.         Me.txtYfmoney.Text = ""
  341.         '
  342.         'Label9
  343.         '
  344.         Me.Label9.AutoSize = True
  345.         Me.Label9.Location = New System.Drawing.Point(282, 104)
  346.         Me.Label9.Name = "Label9"
  347.         Me.Label9.Size = New System.Drawing.Size(66, 17)
  348.         Me.Label9.TabIndex = 17
  349.         Me.Label9.Text = "已付金额："
  350.         '
  351.         'txtYmoney
  352.         '
  353.         Me.txtYmoney.Location = New System.Drawing.Point(498, 96)
  354.         Me.txtYmoney.Name = "txtYmoney"
  355.         Me.txtYmoney.ReadOnly = True
  356.         Me.txtYmoney.Size = New System.Drawing.Size(72, 21)
  357.         Me.txtYmoney.TabIndex = 16
  358.         Me.txtYmoney.Text = ""
  359.         '
  360.         'Label8
  361.         '
  362.         Me.Label8.AutoSize = True
  363.         Me.Label8.Location = New System.Drawing.Point(444, 104)
  364.         Me.Label8.Name = "Label8"
  365.         Me.Label8.Size = New System.Drawing.Size(66, 17)
  366.         Me.Label8.TabIndex = 15
  367.         Me.Label8.Text = "应付金额："
  368.         '
  369.         'txtMoney
  370.         '
  371.         Me.txtMoney.Location = New System.Drawing.Point(186, 96)
  372.         Me.txtMoney.Name = "txtMoney"
  373.         Me.txtMoney.Size = New System.Drawing.Size(88, 21)
  374.         Me.txtMoney.TabIndex = 14
  375.         Me.txtMoney.Text = ""
  376.         '
  377.         'Label7
  378.         '
  379.         Me.Label7.AutoSize = True
  380.         Me.Label7.Location = New System.Drawing.Point(156, 104)
  381.         Me.Label7.Name = "Label7"
  382.         Me.Label7.Size = New System.Drawing.Size(42, 17)
  383.         Me.Label7.TabIndex = 13
  384.         Me.Label7.Text = "金额："
  385.         '
  386.         'txtFph
  387.         '
  388.         Me.txtFph.Location = New System.Drawing.Point(186, 160)
  389.         Me.txtFph.Name = "txtFph"
  390.         Me.txtFph.Size = New System.Drawing.Size(246, 21)
  391.         Me.txtFph.TabIndex = 12
  392.         Me.txtFph.Text = ""
  393.         '
  394.         'Label6
  395.         '
  396.         Me.Label6.AutoSize = True
  397.         Me.Label6.Location = New System.Drawing.Point(144, 168)
  398.         Me.Label6.Name = "Label6"
  399.         Me.Label6.Size = New System.Drawing.Size(60, 17)
  400.         Me.Label6.TabIndex = 11
  401.         Me.Label6.Text = "发票号： "
  402.         '
  403.         'txtCustName
  404.         '
  405.         Me.txtCustName.Location = New System.Drawing.Point(336, 64)
  406.         Me.txtCustName.Name = "txtCustName"
  407.         Me.txtCustName.ReadOnly = True
  408.         Me.txtCustName.Size = New System.Drawing.Size(234, 21)
  409.         Me.txtCustName.TabIndex = 10
  410.         Me.txtCustName.Text = ""
  411.         '
  412.         'Label5
  413.         '
  414.         Me.Label5.AutoSize = True
  415.         Me.Label5.Location = New System.Drawing.Point(282, 72)
  416.         Me.Label5.Name = "Label5"
  417.         Me.Label5.Size = New System.Drawing.Size(66, 17)
  418.         Me.Label5.TabIndex = 9
  419.         Me.Label5.Text = "客户名称："
  420.         '
  421.         'txtCustNumber
  422.         '
  423.         Me.txtCustNumber.Location = New System.Drawing.Point(186, 64)
  424.         Me.txtCustNumber.Name = "txtCustNumber"
  425.         Me.txtCustNumber.ReadOnly = True
  426.         Me.txtCustNumber.Size = New System.Drawing.Size(90, 21)
  427.         Me.txtCustNumber.TabIndex = 8
  428.         Me.txtCustNumber.Text = ""
  429.         '
  430.         'Label4
  431.         '
  432.         Me.Label4.AutoSize = True
  433.         Me.Label4.Location = New System.Drawing.Point(134, 72)
  434.         Me.Label4.Name = "Label4"
  435.         Me.Label4.Size = New System.Drawing.Size(66, 17)
  436.         Me.Label4.TabIndex = 7
  437.         Me.Label4.Text = "客户编号："
  438.         '
  439.         'GroupBox2
  440.         '
  441.         Me.GroupBox2.Location = New System.Drawing.Point(128, 48)
  442.         Me.GroupBox2.Name = "GroupBox2"
  443.         Me.GroupBox2.Size = New System.Drawing.Size(632, 6)
  444.         Me.GroupBox2.TabIndex = 6
  445.         Me.GroupBox2.TabStop = False
  446.         '
  447.         'Label3
  448.         '
  449.         Me.Label3.AutoSize = True
  450.         Me.Label3.Location = New System.Drawing.Point(134, 32)
  451.         Me.Label3.Name = "Label3"
  452.         Me.Label3.Size = New System.Drawing.Size(66, 17)
  453.         Me.Label3.TabIndex = 4
  454.         Me.Label3.Text = "结算方式："
  455.         '
  456.         'txtdateFk
  457.         '
  458.         Me.txtdateFk.Location = New System.Drawing.Point(336, 24)
  459.         Me.txtdateFk.Name = "txtdateFk"
  460.         Me.txtdateFk.Size = New System.Drawing.Size(102, 21)
  461.         Me.txtdateFk.TabIndex = 3
  462.         Me.txtdateFk.Value = New Date(2006, 4, 15, 0, 0, 0, 0)
  463.         '
  464.         'Label2
  465.         '
  466.         Me.Label2.AutoSize = True
  467.         Me.Label2.Location = New System.Drawing.Point(306, 32)
  468.         Me.Label2.Name = "Label2"
  469.         Me.Label2.Size = New System.Drawing.Size(42, 17)
  470.         Me.Label2.TabIndex = 2
  471.         Me.Label2.Text = "日期："
  472.         '
  473.         'txtbillnumber
  474.         '
  475.         Me.txtbillnumber.Location = New System.Drawing.Point(498, 24)
  476.         Me.txtbillnumber.Name = "txtbillnumber"
  477.         Me.txtbillnumber.ReadOnly = True
  478.         Me.txtbillnumber.Size = New System.Drawing.Size(114, 21)
  479.         Me.txtbillnumber.TabIndex = 1
  480.         Me.txtbillnumber.Text = ""
  481.         '
  482.         'Label1
  483.         '
  484.         Me.Label1.AutoSize = True
  485.         Me.Label1.Location = New System.Drawing.Point(468, 31)
  486.         Me.Label1.Name = "Label1"
  487.         Me.Label1.Size = New System.Drawing.Size(42, 17)
  488.         Me.Label1.TabIndex = 0
  489.         Me.Label1.Text = "票号："
  490.         '
  491.         'Panel2
  492.         '
  493.         Me.Panel2.Controls.Add(Me.dgview)
  494.         Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
  495.         Me.Panel2.Location = New System.Drawing.Point(0, 248)
  496.         Me.Panel2.Name = "Panel2"
  497.         Me.Panel2.Size = New System.Drawing.Size(694, 264)
  498.         Me.Panel2.TabIndex = 9
  499.         '
  500.         'dgview
  501.         '
  502.         Me.dgview.DataMember = ""
  503.         Me.dgview.Dock = System.Windows.Forms.DockStyle.Fill
  504.         Me.dgview.HeaderForeColor = System.Drawing.SystemColors.ControlText
  505.         Me.dgview.Location = New System.Drawing.Point(0, 0)
  506.         Me.dgview.Name = "dgview"
  507.         Me.dgview.Size = New System.Drawing.Size(694, 264)
  508.         Me.dgview.TabIndex = 6
  509.         '
  510.         'ErrorProvider1
  511.         '
  512.         Me.ErrorProvider1.ContainerControl = Me
  513.         '
  514.         'frmManageFk
  515.         '
  516.         Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
  517.         Me.ClientSize = New System.Drawing.Size(694, 512)
  518.         Me.Controls.Add(Me.Panel2)
  519.         Me.Controls.Add(Me.Panel1)
  520.         Me.Controls.Add(Me.ToolBar1)
  521.         Me.Name = "frmManageFk"
  522.         Me.Text = "frmManageFk"
  523.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  524.         Me.Panel1.ResumeLayout(False)
  525.         Me.GroupBox1.ResumeLayout(False)
  526.         Me.Panel2.ResumeLayout(False)
  527.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).EndInit()
  528.         Me.ResumeLayout(False)
  530.     End Sub
  532. #End Region
  533.     Public strquery As String
  534.     Public lsweb As New jxcmanage
  535.     Public dslocal As DataSet = lsweb.returndataset("select 日期,票号,结算方式,客户编号,客户名称,操作员,审核员,金额,应付金额,已付金额,余额,发票号,摘要,备注 from wz_rk_fk", "wz_rk_fk")
  536.     Private Sub DateTimePicker2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
  537.        
  539.     End Sub
  541.     Private Sub lstview_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
  542.         
  545.     End Sub
  546.     Private Sub save()
  548.         lsweb.runSql("update wz_rk_fk set 已付金额=" & CDec(txtMoney.Text) & ",操作员='" & txtczy.Text & "',审核员='" & txtshy.Text & "',发票号='" & txtFph.Text & "',摘要='" & txtzy.Text & "',备注='" & txtdemo.Text & "' from wz_rk_fk where 票号='" & strquery & "'")
  550.         MessageBox.Show("信息成功保存！", "提示", MessageBoxButtons.OK)
  552.     End Sub
  554.     Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
  555.         Select Case e.Button.Text
  556.             Case "保存"
  557.                 If txtMoney.Text = "" Then
  558.                     MessageBox.Show("信息不完整，保存失败！", "提示", MessageBoxButtons.OK)
  559.                 Else
  560.                     save()
  561.                     tbnAdd.Enabled = True
  562.                     tbnSave.Enabled = False
  565.                 End If
  567.             Case "添加"
  568.                 add()
  569.                 tbnAdd.Enabled = False
  570.                 tbnSave.Enabled = True
  574.             Case "退出"
  575.                 Me.Close()
  578.         End Select
  579.     End Sub
  581.     
  583.     Private Sub txtdate_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtdate.ValueChanged
  584.         Dim dslocal As New DataSet
  586.         dslocal = lsweb.runSql("select 票号 from wz_rk_fk where 日期='" & txtdate.Value & "'")
  587.         lstview.DataSource = dslocal.Tables(0).DefaultView
  588.         lstview.DisplayMember = "票号"
  589.         lstview.ValueMember = "票号"
  590.     End Sub
  592.     Private Sub lstview_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstview.SelectedIndexChanged
  593.         strquery = lstview.SelectedValue.ToString()
  595.         Dim dv As New DataView
  596.         Dim dtQuery As New DataTable
  598.         dtQuery = lsweb.runSql("select 日期,票号,结算方式,客户编号,客户名称,操作员,审核员,金额,应付金额,已付金额,余额,发票号,摘要,备注 from wz_rk_fk where 票号='" & strquery & "'").Tables(0)
  600.         dv = dtQuery.DefaultView
  602.         txtJs.Text = dv(0)("结算方式")
  603.         txtdateFk.Text = dv(0)("日期")
  604.         txtbillnumber.Text = dv(0)("票号")
  605.         txtCustNumber.Text = dv(0)("客户编号")
  606.         txtCustName.Text = dv(0)("客户名称")
  607.         txtFph.Text = dv(0)("发票号")
  608.         txtMoney.Text = dv(0)("金额")
  609.         txtYmoney.Text = dv(0)("应付金额")
  610.         txtYfmoney.Text = dv(0)("已付金额")
  611.         txtyemoney.Text = dv(0)("余额")
  612.         txtczy.Text = dv(0)("操作员")
  613.         txtshy.Text = dv(0)("审核员")
  614.         txtdemo.Text = dv(0)("备注")
  615.         txtzy.Text = dv(0)("摘要")
  617.         dtQuery = lsweb.runSql("select * from wz_rk where 票号='" & strquery & "'").Tables(0)
  618.         dgview.DataSource = dtQuery.DefaultView
  620.     End Sub
  621.     Public Sub add()
  623.         txtMoney.Text() = ""
  624.         txtMoney.Focus()
  625.        
  626.         txtdemo.Text = ""
  627.         txtFph.Text = ""
  628.         txtzy.Text = ""
  632.     End Sub
  633.     
  635.     Private Sub txtMoney_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtMoney.KeyDown
  636.         If e.KeyCode = Keys.Enter Then
  637.            
  638.             Me.txtczy.Focus()
  639.         End If
  640.     End Sub
  642.     Private Sub txtczy_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtczy.KeyDown
  643.         If e.KeyCode = Keys.Enter Then
  645.             Me.txtshy.Focus()
  646.         End If
  647.     End Sub
  649.    
  651.     Private Sub txtshy_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtshy.KeyDown
  652.         If e.KeyCode = Keys.Enter Then
  654.             Me.txtdemo.Focus()
  655.         End If
  656.     End Sub
  658.    
  660.     Private Sub txtdemo_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtdemo.KeyDown
  661.         If e.KeyCode = Keys.Enter Then
  663.             Me.txtFph.Focus()
  664.         End If
  665.     End Sub
  667.     
  669.     Private Sub txtFph_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtFph.KeyDown
  670.         If e.KeyCode = Keys.Enter Then
  672.             Me.txtzy.Focus()
  673.         End If
  674.     End Sub
  676.     Private Sub txtMoney_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtMoney.Validating
  677.         If Not IsNumeric(txtMoney.Text) Or txtMoney.Text = String.Empty Then
  678.             ErrorProvider1.SetError(txtMoney, "不是数值类型且不能为空。")
  679.             txtMoney.Focus()
  681.         Else
  682.             ErrorProvider1.SetError(txtMoney, "")
  683.         End If
  684.     End Sub
  686.     Private Sub txtczy_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtczy.Validating
  687.         If txtczy.Text = String.Empty Then
  688.             ErrorProvider1.SetError(txtczy, "不能为空。")
  689.             txtczy.Focus()
  690.         Else
  691.             ErrorProvider1.SetError(txtczy, "")
  692.         End If
  693.     End Sub
  695.     Private Sub txtshy_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtshy.Validating
  696.         If txtshy.Text = String.Empty Then
  697.             ErrorProvider1.SetError(txtshy, "不能为空。")
  698.             txtshy.Focus()
  699.         Else
  700.             ErrorProvider1.SetError(txtshy, "")
  701.         End If
  702.     End Sub
  704.     Private Sub frmManageFk_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  705.         txtdateFk.Value = Today.ToString
  706.         txtdate.Value = Today.ToString
  707.         Dim hwdr As System.Data.SqlClient.SqlDataReader
  708.         hwdr = lsweb.returnDataReader("select 操作员 from wz_mm")
  709.         Do While hwdr.Read()
  710.             txtczy.Items.Add(hwdr("操作员"))
  711.             txtshy.Items.Add(hwdr("操作员"))
  712.         Loop
  713.         tbnSave.Enabled = False
  715.     End Sub
  717.     Private Sub txtMoney_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtMoney.TextChanged
  719.     End Sub
  721.     Private Sub txtMoney_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtMoney.KeyUp
  722.         txtYfmoney.Text = txtMoney.Text
  724.     End Sub
  725. End Class