main.dfm

商品批发管理系统ADO版

        OnKeyUp = DBGrid7KeyUp
        Columns = <
          item
            Expanded = False
            FieldName = 'ddbh'
            Title.Caption = #23450#21333#32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'khbh'
            Title.Caption = #23458#25143#32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'gybh'
            Title.Caption = #38599#21592#32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'dgrq'
            Title.Caption = #35746#36141#26085#26399
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'dhrq'
            Title.Caption = #35746#36141#26085#26399
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fhrq'
            Title.Caption = #21457#36135#26085#26399
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'yhsbh'
            Title.Caption = #36816#36135#21830#32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'yhf'
            Title.Caption = #36816#36135#36153
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'hzmc'
            Title.Caption = #36135#20027#21517#31216
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'hzdz'
            Title.Caption = #36135#20027#22320#22336
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'hzcs'
            Title.Caption = #36135#20027#22478#24066
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'hzdq'
            Title.Caption = #36135#20027#22320#21306
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'hzyzbm'
            Title.Caption = #36135#20027#37038#25919#32534#30721
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'hzgj'
            Title.Caption = #36135#20027#22269#23478
            Visible = True
          end>
      end
      object Panel4: TPanel
        Left = 0
        Top = 145
        Width = 611
        Height = 41
        Align = alTop
        TabOrder = 1
        object Button34: TButton
          Left = 8
          Top = 8
          Width = 105
          Height = 25
          Caption = #28155#21152#23450#21333#22522#26412#36164#26009
          TabOrder = 0
          OnClick = Button34Click
        end
        object Button35: TButton
          Left = 416
          Top = 8
          Width = 105
          Height = 25
          Caption = #28155#21152#35814#32454#23450#21333#36164#26009
          TabOrder = 1
          OnClick = Button35Click
        end
        object Button36: TButton
          Left = 112
          Top = 8
          Width = 105
          Height = 25
          Caption = #20462#25913#23450#21333#22522#26412#36164#26009
          TabOrder = 2
          OnClick = Button36Click
        end
        object Button37: TButton
          Left = 520
          Top = 8
          Width = 105
          Height = 25
          Caption = #20462#25913#23450#21333#35814#32454#36164#26009
          TabOrder = 3
          OnClick = Button37Click
        end
        object Button38: TButton
          Left = 216
          Top = 8
          Width = 105
          Height = 25
          Caption = #23450#21333#22522#26412#36164#26009#26597#35810
          TabOrder = 4
          OnClick = Button38Click
        end
        object Button40: TButton
          Left = 320
          Top = 8
          Width = 75
          Height = 25
          Caption = #21024#38500#23450#21333
          TabOrder = 5
          OnClick = Button40Click
        end
        object Button41: TButton
          Left = 624
          Top = 8
          Width = 81
          Height = 25
          Caption = #21024#38500#35814#32454#36164#26009
          TabOrder = 6
          OnClick = Button41Click
        end
      end
      object DBGrid9: TDBGrid
        Left = 289
        Top = 202
        Width = 322
        Height = 160
        Align = alClient
        DataSource = DM.DSddglMXGY
        ReadOnly = True
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'xm'
            Title.Caption = #22995#21517
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'tx'
            Title.Caption = #22836#34900
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'zc'
            Title.Caption = #23562#31216
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'csrq'
            Title.Caption = #20986#29983#26085#26399
            Width = 61
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'gyrq'
            Title.Caption = #38599#20323#26085#26399
            Width = 67
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'dz'
            Title.Caption = #22320#22336
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'cs'
            Title.Caption = #22478#24066
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'dq'
            Title.Caption = #22320#21306
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'yzbm'
            Title.Caption = #37038#25919#32534#30721
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'dh'
            Title.Caption = #30005#35805
            Width = 70
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'gj'
            Title.Caption = #22269#23478
            Width = 51
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'cz'
            Title.Caption = #22478#24066
            Width = 60
            Visible = True
          end>
      end
      object Panel5: TPanel
        Left = 0
        Top = 186
        Width = 611
        Height = 16
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 3
        object Label1: TLabel
          Left = 8
          Top = 0
          Width = 24
          Height = 13
          Caption = #23450#21333
        end
        object Label2: TLabel
          Left = 296
          Top = 0
          Width = 24
          Height = 13
          Caption = #38599#21592
        end
        object DBText1: TDBText
          Left = 40
          Top = 0
          Width = 25
          Height = 17
          DataField = 'ddbh'
          DataSource = DM.DSddglMX
        end
        object DBText2: TDBText
          Left = 328
          Top = 0
          Width = 25
          Height = 33
          DataField = 'gybh'
          DataSource = DM.DSddglMXGY
        end
        object Label3: TLabel
          Left = 64
          Top = 0
          Width = 65
          Height = 13
          AutoSize = False
          Caption = #35814#32454#36164#26009
        end
        object Label4: TLabel
          Left = 352
          Top = 0
          Width = 73
          Height = 13
          AutoSize = False
          Caption = #35814#32454#36164#26009
        end
      end
      object Panel10: TPanel
        Left = 0
        Top = 202
        Width = 289
        Height = 160
        Align = alLeft
        Anchors = [akLeft, akBottom]
        TabOrder = 4
        object Label8: TLabel
          Left = 8
          Top = 216
          Width = 145
          Height = 24
          AutoSize = False
          Caption = #24635#20215#20026#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label9: TLabel
          Left = 160
          Top = 216
          Width = 129
          Height = 16
          AutoSize = False
          Caption = #21033#28070#20026#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object DBGrid8: TDBGrid
          Left = 8
          Top = 9
          Width = 273
          Height = 200
          BiDiMode = bdLeftToRight
          DataSource = DM.DSddglMX
          ParentBiDiMode = False
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'cpbh'
              Title.Caption = #20135#21697#32534#21495
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'dj'
              Title.Caption = #21333#20215
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'sl'