main.dfm

商品批发管理系统ADO版

          Top = 80
          Width = 200
          Height = 21
          AutoSize = False
          DataField = 'lbmc'
          DataSource = DM.DSlbgl
          ReadOnly = True
          TabOrder = 3
        end
        object DBEdit3: TDBEdit
          Left = 24
          Top = 120
          Width = 200
          Height = 21
          AutoSize = False
          DataField = 'sm'
          DataSource = DM.DSlbgl
          ReadOnly = True
          TabOrder = 4
        end
        object Button29: TButton
          Left = 112
          Top = 184
          Width = 75
          Height = 25
          Caption = #25552#20132#28155#21152
          TabOrder = 5
          OnClick = Button29Click
        end
        object Button30: TButton
          Left = 112
          Top = 232
          Width = 75
          Height = 25
          Caption = #25552#20132#20462#25913
          TabOrder = 6
          OnClick = Button30Click
        end
        object Button31: TButton
          Left = 200
          Top = 184
          Width = 75
          Height = 25
          Caption = #36864#20986#28155#21152
          TabOrder = 7
          OnClick = Button31Click
        end
        object Button32: TButton
          Left = 200
          Top = 232
          Width = 75
          Height = 25
          Caption = #36864#20986#20462#25913
          TabOrder = 8
          OnClick = Button32Click
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '--[ '#21830#21697#31649#29702' ]'
      ImageIndex = 1
      OnShow = TabSheet2Show
      object DBGrid3: TDBGrid
        Left = 0
        Top = 0
        Width = 611
        Height = 201
        Align = alTop
        DataSource = DM.DSspgl
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object RGspgl: TRadioGroup
        Left = 0
        Top = 201
        Width = 611
        Height = 49
        Align = alTop
        Caption = #26597#35810#23383#27573
        Columns = 5
        ItemIndex = 0
        Items.Strings = (
          #20135#21697#32534#21495
          #20135#21697#21517#31216
          #20379#24212#21830#32534#21495
          #31867#21035#32534#21495
          #21333#20301#25968#37327
          #21333#20215
          #24211#23384#37327
          #35746#36141#37327
          #20877#35746#36141#37327
          #32456#27490)
        TabOrder = 1
        OnClick = RGspglClick
      end
      object Panel2: TPanel
        Left = 0
        Top = 250
        Width = 611
        Height = 41
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 2
        object Button2: TButton
          Left = 136
          Top = 8
          Width = 65
          Height = 25
          Caption = #26597#35810
          TabOrder = 0
          OnClick = Button2Click
        end
        object Button3: TButton
          Left = 208
          Top = 8
          Width = 65
          Height = 25
          Caption = #27169#31946#26597#35810
          TabOrder = 1
          OnClick = Button3Click
        end
        object EspglCX: TEdit
          Left = 8
          Top = 8
          Width = 121
          Height = 21
          TabOrder = 2
          OnKeyPress = EspglCXKeyPress
        end
        object Button13: TButton
          Left = 288
          Top = 8
          Width = 89
          Height = 25
          Caption = #28155#21152#21830#21697#36164#26009
          TabOrder = 3
          OnClick = Button13Click
        end
        object Button14: TButton
          Left = 384
          Top = 8
          Width = 81
          Height = 25
          Caption = #20462#25913#21830#21697#36164#26009
          TabOrder = 4
          OnClick = Button14Click
        end
        object Button15: TButton
          Left = 472
          Top = 8
          Width = 89
          Height = 25
          Caption = #21024#38500#21830#21697#36164#26009
          TabOrder = 5
          OnClick = Button15Click
        end
        object DBEspglDW: TDBEdit
          Left = 8
          Top = 16
          Width = 0
          Height = 21
          DataField = 'cpbh'
          DataSource = DM.DSspgl
          TabOrder = 6
          Visible = False
        end
        object DBEspglCXDW: TDBEdit
          Left = 64
          Top = 16
          Width = 0
          Height = 21
          DataField = 'cpbh'
          DataSource = DM.DSspblCX
          TabOrder = 7
          Visible = False
        end
      end
      object DBGrid4: TDBGrid
        Left = 0
        Top = 291
        Width = 611
        Height = 71
        Align = alClient
        DataSource = DM.DSspblCX
        ReadOnly = True
        TabOrder = 3
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnCellClick = DBGrid4CellClick
        OnKeyUp = DBGrid4KeyUp
      end
    end
    object TabSheet3: TTabSheet
      Caption = #23458#25143#31649#29702
      ImageIndex = 2
      OnShow = TabSheet3Show
      object DBGrid5: TDBGrid
        Left = 0
        Top = 0
        Width = 611
        Height = 201
        Align = alTop
        DataSource = DM.DSkhgl
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object Panel3: TPanel
        Left = 0
        Top = 258
        Width = 611
        Height = 41
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        object Button4: TButton
          Left = 136
          Top = 8
          Width = 75
          Height = 25
          Caption = #26597#35810
          TabOrder = 0
          OnClick = Button4Click
        end
        object Button5: TButton
          Left = 216
          Top = 8
          Width = 75
          Height = 25
          Caption = #27169#31946#26597#35810
          TabOrder = 1
          OnClick = Button5Click
        end
        object EkhglCX: TEdit
          Left = 8
          Top = 8
          Width = 121
          Height = 21
          TabOrder = 2
          OnKeyPress = EkhglCXKeyPress
        end
        object Button16: TButton
          Left = 312
          Top = 8
          Width = 81
          Height = 25
          Caption = #28155#21152#23458#25143#36164#26009
          TabOrder = 3
          OnClick = Button16Click
        end
        object Button17: TButton
          Left = 400
          Top = 8
          Width = 75
          Height = 25
          Caption = #20462#25913#23458#25143#36164#26009
          TabOrder = 4
          OnClick = Button17Click
        end
        object Button18: TButton
          Left = 480
          Top = 8
          Width = 81
          Height = 25
          Caption = #21024#38500#23458#25143#36164#26009
          TabOrder = 5
          OnClick = Button18Click
        end
        object DBEkhglDW: TDBEdit
          Left = 8
          Top = 8
          Width = 0
          Height = 21
          DataField = 'khbh'
          DataSource = DM.DSkhgl
          TabOrder = 6
          Visible = False
        end
        object DBEkhglCXDW: TDBEdit
          Left = 16
          Top = 16
          Width = 0
          Height = 21
          DataField = 'khbh'
          DataSource = DM.DSkhglCX
          TabOrder = 7
          Visible = False
        end
      end
      object DBGrid6: TDBGrid
        Left = 0
        Top = 299
        Width = 611
        Height = 63
        Align = alClient
        DataSource = DM.DSkhglCX
        ReadOnly = True
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnCellClick = DBGrid6CellClick
        OnKeyUp = DBGrid6KeyUp
      end
      object RGkhgl: TRadioGroup
        Left = 0
        Top = 201
        Width = 611
        Height = 57
        Align = alTop
        Caption = #26597#35810#23383#27573
        Columns = 6
        ItemIndex = 0
        Items.Strings = (
          #23458#25143#32534#21495
          #23458#25143#21517#31216
          #32852#31995#20154#22995#21517
          #32852#31995#20154#22836#34900
          #22320#22336
          #22478#24066
          #22320#21306
          #37038#25919#32534#30721
          #22269#23478
          #30005#35805
          #20256#30495)
        TabOrder = 3
        OnClick = RGkhglClick
      end
    end
    object TabSheet6: TTabSheet
      Caption = #36816#36135#21830#31649#29702
      ImageIndex = 5
      OnShow = TabSheet6Show
      object DBGrid12: TDBGrid
        Left = 0
        Top = 0
        Width = 611
        Height = 193
        Align = alTop
        DataSource = DM.DSyhsgl
        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 = 'yhsbh'
            Title.Caption = #36816#36135#21830#32534#21495
            Width = 124
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'yhsmc'
            Title.Caption = #36816#36135#21830#21517#31216