main.dfm

商品批发管理系统ADO版

object Form1: TForm1
  Left = 191
  Top = 105
  Width = 627
  Height = 480
  Caption = #21830#21697#25209#21457#31649#29702#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object jibie: TEdit
    Left = 0
    Top = 368
    Width = 121
    Height = 21
    TabOrder = 3
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 36
    Width = 619
    Height = 393
    ActivePage = TabSheet4
    Align = alClient
    Style = tsButtons
    TabIndex = 6
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #20379#24212#21830#31649#29702
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 611
        Height = 185
        Align = alTop
        DataSource = DM.DSgysb
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object RGgysb: TRadioGroup
        Left = 0
        Top = 185
        Width = 611
        Height = 64
        Align = alTop
        Caption = #26597#35810#23383#27573
        Columns = 6
        ItemIndex = 0
        Items.Strings = (
          #20379#24212#21830#32534#21495
          #20379#24212#21830#21517#31216
          #32852#31995#20154#22995#21517
          #32852#31995#20154#22836#34900
          #30005#35805
          #22320#22336
          #22478#24066
          #22320#21306
          #37038#25919#32534#30721
          #22269#31821
          #20256#30495)
        TabOrder = 1
        OnClick = RGgysbClick
      end
      object DBGrid2: TDBGrid
        Left = 0
        Top = 286
        Width = 611
        Height = 76
        Align = alClient
        DataSource = DM.DSgysbCX
        ReadOnly = True
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnCellClick = DBGrid2CellClick
        OnKeyUp = DBGrid2KeyUp
      end
      object Panel1: TPanel
        Left = 0
        Top = 249
        Width = 611
        Height = 37
        Align = alTop
        BevelOuter = bvNone
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 3
        object Button10: TButton
          Left = 296
          Top = 8
          Width = 91
          Height = 25
          Caption = #28155#21152#20379#24212#21830#36164#26009
          TabOrder = 0
          OnClick = Button10Click
        end
        object Button11: TButton
          Left = 488
          Top = 8
          Width = 97
          Height = 25
          Caption = #21024#38500#20379#24212#21830#36164#26009
          TabOrder = 1
          OnClick = Button11Click
        end
        object Button12: TButton
          Left = 392
          Top = 8
          Width = 89
          Height = 25
          Caption = #20462#25913#20379#24212#21830#36164#26009
          TabOrder = 2
          OnClick = Button12Click
        end
        object Bt1: TButton
          Left = 128
          Top = 8
          Width = 73
          Height = 25
          Caption = #26597#35810
          TabOrder = 3
          OnClick = Bt1Click
        end
        object EditCX: TEdit
          Left = 0
          Top = 8
          Width = 121
          Height = 21
          TabOrder = 4
          OnKeyPress = EditCXKeyPress
        end
        object Button1: TButton
          Left = 208
          Top = 8
          Width = 73
          Height = 25
          Caption = #27169#31946#26597#35810
          TabOrder = 5
          OnClick = Button1Click
        end
      end
      object DBEgysbCXDW: TDBEdit
        Left = 432
        Top = 160
        Width = 0
        Height = 21
        DataField = 'gysbh'
        DataSource = DM.DSgysbCX
        TabOrder = 4
        Visible = False
      end
      object DBEgysbDW: TDBEdit
        Left = 432
        Top = 184
        Width = 0
        Height = 21
        DataField = 'gysbh'
        DataSource = DM.DSgysb
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        Visible = False
      end
    end
    object TabSheet7: TTabSheet
      Caption = #20135#21697#31867#21035#31649#29702
      ImageIndex = 6
      OnShow = TabSheet7Show
      object Panel8: TPanel
        Left = 0
        Top = 0
        Width = 417
        Height = 362
        Align = alLeft
        TabOrder = 0
        object DBGrid14: TDBGrid
          Left = 1
          Top = 1
          Width = 415
          Height = 192
          Align = alTop
          DataSource = DM.DSlbgl
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
        end
        object RGlbgl: TRadioGroup
          Left = 1
          Top = 193
          Width = 415
          Height = 33
          Align = alTop
          Caption = #26597#35810#23383#27573
          Columns = 3
          ItemIndex = 0
          Items.Strings = (
            #31867#21035#32534#21495
            #31867#21035#21517#31216
            #35828#26126)
          TabOrder = 1
          OnClick = RGlbglClick
        end
        object DBGrid15: TDBGrid
          Left = 1
          Top = 267
          Width = 415
          Height = 94
          Align = alClient
          DataSource = DM.DSlbglCX
          ReadOnly = True
          TabOrder = 2
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnCellClick = DBGrid15CellClick
          OnKeyUp = DBGrid15KeyUp
        end
        object Panel9: TPanel
          Left = 1
          Top = 226
          Width = 415
          Height = 41
          Align = alTop
          TabOrder = 3
          object ElbglCX: TEdit
            Left = 8
            Top = 12
            Width = 121
            Height = 21
            TabOrder = 0
            OnKeyPress = ElbglCXKeyPress
          end
          object Button25: TButton
            Left = 136
            Top = 8
            Width = 75
            Height = 25
            Caption = #26597#35810
            TabOrder = 1
            OnClick = Button25Click
          end
          object Button26: TButton
            Left = 224
            Top = 8
            Width = 75
            Height = 25
            Caption = #27169#31946#26597#35810
            TabOrder = 2
            OnClick = Button26Click
          end
          object Button33: TButton
            Left = 312
            Top = 8
            Width = 81
            Height = 25
            Caption = #21024#38500#31867#21035#36164#26009
            TabOrder = 3
            OnClick = Button33Click
          end
          object DBElbglDW: TDBEdit
            Left = 16
            Top = 16
            Width = 0
            Height = 21
            DataField = 'lbbh'
            DataSource = DM.DSlbgl
            TabOrder = 4
            Visible = False
          end
          object DBElbglCXDW: TDBEdit
            Left = 32
            Top = 16
            Width = 0
            Height = 21
            DataField = 'lbbh'
            DataSource = DM.DSlbglCX
            TabOrder = 5
            Visible = False
          end
        end
      end
      object GBlbgl: TGroupBox
        Left = 417
        Top = 0
        Width = 194
        Height = 362
        Align = alClient
        Caption = #31867#21035#24405#20837#31649#29702
        TabOrder = 1
        object Label5: TLabel
          Left = 24
          Top = 24
          Width = 137
          Height = 13
          AutoSize = False
          Caption = #31867#21035#32534#21495
          FocusControl = DBEdit1
        end
        object Label6: TLabel
          Left = 24
          Top = 64
          Width = 137
          Height = 13
          AutoSize = False
          Caption = #31867#21035#21517#31216
          FocusControl = DBEdit2
        end
        object Label7: TLabel
          Left = 24
          Top = 104
          Width = 137
          Height = 13
          AutoSize = False
          Caption = #35828#26126
          FocusControl = DBEdit3
        end
        object Button27: TButton
          Left = 16
          Top = 184
          Width = 89
          Height = 25
          Caption = #28155#21152#20135#21697#31867#21035
          TabOrder = 0
          OnClick = Button27Click
        end
        object Button28: TButton
          Left = 16
          Top = 232
          Width = 89
          Height = 25
          Caption = #20462#25913#20135#21697#31867#21035
          TabOrder = 1
          OnClick = Button28Click
        end
        object DBEdit1: TDBEdit
          Left = 24
          Top = 40
          Width = 200
          Height = 21
          AutoSize = False
          DataField = 'lbbh'
          DataSource = DM.DSlbgl
          ReadOnly = True
          TabOrder = 2
        end
        object DBEdit2: TDBEdit
          Left = 24