fk_cailiao_caigouwenyuan.vb

来自「本软件设计为在"采购部""工程部""财务部""总经理"等部门之间的采购审核流转等」· VB 代码 · 共 1,424 行 · 第 1/4 页

        Me.Label12.Location = New System.Drawing.Point(280, 256)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(64, 16)
        Me.Label12.TabIndex = 72
        Me.Label12.Text = "帐    号"
        '
        'Label11
        '
        Me.Label11.Location = New System.Drawing.Point(32, 256)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(64, 16)
        Me.Label11.TabIndex = 71
        Me.Label11.Text = "开户银行"
        '
        'TextBox8
        '
        Me.TextBox8.Location = New System.Drawing.Point(368, 224)
        Me.TextBox8.Name = "TextBox8"
        Me.TextBox8.Size = New System.Drawing.Size(152, 21)
        Me.TextBox8.TabIndex = 70
        Me.TextBox8.Text = ""
        '
        'Label10
        '
        Me.Label10.Location = New System.Drawing.Point(280, 232)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(64, 16)
        Me.Label10.TabIndex = 69
        Me.Label10.Text = "收款单位"
        '
        'DateTimePicker2
        '
        Me.DateTimePicker2.Location = New System.Drawing.Point(112, 224)
        Me.DateTimePicker2.Name = "DateTimePicker2"
        Me.DateTimePicker2.Size = New System.Drawing.Size(152, 21)
        Me.DateTimePicker2.TabIndex = 68
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(32, 232)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(64, 16)
        Me.Label9.TabIndex = 67
        Me.Label9.Text = "付款日期"
        '
        'TextBox6
        '
        Me.TextBox6.Location = New System.Drawing.Point(368, 200)
        Me.TextBox6.Name = "TextBox6"
        Me.TextBox6.Size = New System.Drawing.Size(152, 21)
        Me.TextBox6.TabIndex = 65
        Me.TextBox6.Text = ""
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(280, 200)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(64, 16)
        Me.Label7.TabIndex = 64
        Me.Label7.Text = "付款内容"
        '
        'TextBox5
        '
        Me.TextBox5.BackColor = System.Drawing.Color.White
        Me.TextBox5.ForeColor = System.Drawing.SystemColors.WindowText
        Me.TextBox5.Location = New System.Drawing.Point(368, 176)
        Me.TextBox5.Name = "TextBox5"
        Me.TextBox5.ReadOnly = True
        Me.TextBox5.Size = New System.Drawing.Size(152, 21)
        Me.TextBox5.TabIndex = 63
        Me.TextBox5.Text = ""
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(32, 176)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(64, 16)
        Me.Label6.TabIndex = 62
        Me.Label6.Text = "工程编号"
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(280, 176)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(64, 16)
        Me.Label5.TabIndex = 61
        Me.Label5.Text = "工程名称"
        '
        'DateTimePicker1
        '
        Me.DateTimePicker1.Location = New System.Drawing.Point(112, 200)
        Me.DateTimePicker1.Name = "DateTimePicker1"
        Me.DateTimePicker1.Size = New System.Drawing.Size(152, 21)
        Me.DateTimePicker1.TabIndex = 60
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(32, 200)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(64, 16)
        Me.Label4.TabIndex = 59
        Me.Label4.Text = "发文日期"
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(352, 16)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(152, 21)
        Me.TextBox1.TabIndex = 54
        Me.TextBox1.Text = ""
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(272, 24)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(72, 16)
        Me.Label1.TabIndex = 53
        Me.Label1.Text = "申请单编号"
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.CheckBox2)
        Me.GroupBox1.Controls.Add(Me.Button7)
        Me.GroupBox1.Controls.Add(Me.ComboBox2)
        Me.GroupBox1.Controls.Add(Me.Label1)
        Me.GroupBox1.Controls.Add(Me.TextBox1)
        Me.GroupBox1.Location = New System.Drawing.Point(16, 64)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(520, 48)
        Me.GroupBox1.TabIndex = 88
        Me.GroupBox1.TabStop = False
        '
        'CheckBox2
        '
        Me.CheckBox2.Location = New System.Drawing.Point(8, 16)
        Me.CheckBox2.Name = "CheckBox2"
        Me.CheckBox2.Size = New System.Drawing.Size(80, 24)
        Me.CheckBox2.TabIndex = 74
        Me.CheckBox2.Text = "订购单号"
        '
        'Button7
        '
        Me.Button7.BackColor = System.Drawing.SystemColors.Control
        Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button7.ForeColor = System.Drawing.Color.Blue
        Me.Button7.Location = New System.Drawing.Point(192, 16)
        Me.Button7.Name = "Button7"
        Me.Button7.Size = New System.Drawing.Size(56, 24)
        Me.Button7.TabIndex = 70
        Me.Button7.Text = "查看"
        '
        'ComboBox2
        '
        Me.ComboBox2.Enabled = False
        Me.ComboBox2.Location = New System.Drawing.Point(96, 16)
        Me.ComboBox2.Name = "ComboBox2"
        Me.ComboBox2.Size = New System.Drawing.Size(88, 20)
        Me.ComboBox2.TabIndex = 68
        Me.ComboBox2.Text = "订购单号"
        '
        'CheckBox1
        '
        Me.CheckBox1.Checked = True
        Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
        Me.CheckBox1.Location = New System.Drawing.Point(24, 128)
        Me.CheckBox1.Name = "CheckBox1"
        Me.CheckBox1.Size = New System.Drawing.Size(80, 24)
        Me.CheckBox1.TabIndex = 73
        Me.CheckBox1.Text = "收货付款"
        '
        'Button6
        '
        Me.Button6.BackColor = System.Drawing.SystemColors.Control
        Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button6.ForeColor = System.Drawing.Color.Red
        Me.Button6.Location = New System.Drawing.Point(208, 128)
        Me.Button6.Name = "Button6"
        Me.Button6.Size = New System.Drawing.Size(56, 24)
        Me.Button6.TabIndex = 67
        Me.Button6.Text = "查看"
        '
        'ComboBox6
        '
        Me.ComboBox6.Enabled = False
        Me.ComboBox6.Location = New System.Drawing.Point(112, 128)
        Me.ComboBox6.Name = "ComboBox6"
        Me.ComboBox6.Size = New System.Drawing.Size(88, 20)
        Me.ComboBox6.TabIndex = 46
        Me.ComboBox6.Text = "收货单号"
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.Label2)
        Me.GroupBox2.Controls.Add(Me.TextBox2)
        Me.GroupBox2.Location = New System.Drawing.Point(16, 160)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(520, 184)
        Me.GroupBox2.TabIndex = 89
        Me.GroupBox2.TabStop = False
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(16, 152)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(64, 16)
        Me.Label2.TabIndex = 103
        Me.Label2.Text = "付款说明"
        '
        'TextBox2
        '
        Me.TextBox2.Location = New System.Drawing.Point(96, 152)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.Size = New System.Drawing.Size(408, 21)
        Me.TextBox2.TabIndex = 104
        Me.TextBox2.Text = ""
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.TextBox9)
        Me.GroupBox3.Controls.Add(Me.Label21)
        Me.GroupBox3.Controls.Add(Me.TextBox7)
        Me.GroupBox3.Controls.Add(Me.Label20)
        Me.GroupBox3.Controls.Add(Me.TextBox4)
        Me.GroupBox3.Controls.Add(Me.Label15)
        Me.GroupBox3.Location = New System.Drawing.Point(16, 344)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(520, 144)
        Me.GroupBox3.TabIndex = 90
        Me.GroupBox3.TabStop = False
        '
        'TextBox9
        '
        Me.TextBox9.Location = New System.Drawing.Point(352, 112)
        Me.TextBox9.Name = "TextBox9"
        Me.TextBox9.ReadOnly = True
        Me.TextBox9.Size = New System.Drawing.Size(152, 21)
        Me.TextBox9.TabIndex = 108
        Me.TextBox9.Text = "0"
        '
        'Label21
        '
        Me.Label21.Location = New System.Drawing.Point(256, 112)
        Me.Label21.Name = "Label21"
        Me.Label21.Size = New System.Drawing.Size(96, 16)
        Me.Label21.TabIndex = 107
        Me.Label21.Text = "占合同金额比例"
        '
        'TextBox7
        '
        Me.TextBox7.Location = New System.Drawing.Point(352, 80)
        Me.TextBox7.Name = "TextBox7"
        Me.TextBox7.ReadOnly = True
        Me.TextBox7.Size = New System.Drawing.Size(152, 21)
        Me.TextBox7.TabIndex = 106
        Me.TextBox7.Text = "0"
        '
        'Label20
        '
        Me.Label20.Location = New System.Drawing.Point(256, 80)
        Me.Label20.Name = "Label20"
        Me.Label20.Size = New System.Drawing.Size(96, 16)
        Me.Label20.TabIndex = 105
        Me.Label20.Text = "占合同金额比例"
        '
        'TextBox4
        '
        Me.TextBox4.Location = New System.Drawing.Point(352, 48)
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.ReadOnly = True
        Me.TextBox4.Size = New System.Drawing.Size(152, 21)
        Me.TextBox4.TabIndex = 104
        Me.TextBox4.Text = "0"
        '
        'Label15
        '
        Me.Label15.Location = New System.Drawing.Point(256, 48)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(96, 16)
        Me.Label15.TabIndex = 103
        Me.Label15.Text = "占合同金额比例"
        '
        'GroupBox4
        '
        Me.GroupBox4.Location = New System.Drawing.Point(544, 8)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(80, 480)
        Me.GroupBox4.TabIndex = 94
        Me.GroupBox4.TabStop = False
        Me.GroupBox4.Text = "操作区"
        '
        'Button4
        '
        Me.Button4.Location = New System.Drawing.Point(552, 64)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(64, 23)
        Me.Button4.TabIndex = 0
        Me.Button4.Text = "新 建"
        '
        'GroupBox5
        '
        Me.GroupBox5.Location = New System.Drawing.Point(16, 8)
        Me.GroupBox5.Name = "GroupBox5"
        Me.GroupBox5.Size = New System.Drawing.Size(520, 56)
        Me.GroupBox5.TabIndex = 101
        Me.GroupBox5.TabStop = False
        Me.GroupBox5.Text = "工程付款申请单"
        '
        'DataGrid1
        '
        Me.DataGrid1.CaptionText = "详细信息"
        Me.DataGrid1.DataMember = ""
        Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid1.Location = New System.Drawing.Point(16, 496)
        Me.DataGrid1.Name = "DataGrid1"
        Me.DataGrid1.Size = New System.Drawing.Size(608, 96)
        Me.DataGrid1.TabIndex = 103
        '
        'CheckBox3
        '
        Me.CheckBox3.Location = New System.Drawing.Point(288, 128)
        Me.CheckBox3.Name = "CheckBox3"
        Me.CheckBox3.TabIndex = 104
        Me.CheckBox3.Text = "预付款"
        '
        'GroupBox6
        '
        Me.GroupBox6.Location = New System.Drawing.Point(16, 112)
        Me.GroupBox6.Name = "GroupBox6"
        Me.GroupBox6.Size = New System.Drawing.Size(520, 48)
        Me.GroupBox6.TabIndex = 105
        Me.GroupBox6.TabStop = False
        Me.GroupBox6.Text = "选择付款原由"
        '
        'Button8
        '
        Me.Button8.Location = New System.Drawing.Point(552, 416)
        Me.Button8.Name = "Button8"
        Me.Button8.Size = New System.Drawing.Size(64, 23)
        Me.Button8.TabIndex = 106
        Me.Button8.Text = "预  览"
        '
        'Fk_cailiao_caigouwenyuan
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(640, 606)
        Me.Controls.Add(Me.Button8)
        Me.Controls.Add(Me.CheckBox3)
        Me.Controls.Add(Me.DataGrid1)
        Me.Controls.Add(Me.Button5)
        Me.Controls.Add(Me.ComboBox5)
        Me.Controls.Add(Me.ComboBox4)
        Me.Controls.Add(Me.RadioButton2)
        Me.Controls.Add(Me.RadioButton1)
        Me.Controls.Add(Me.ComboBox3)
        Me.Controls.Add(Me.ComboBox1)
        Me.Controls.Add(Me.Button3)