spzlgl.dfm

库房管理系统

object spzlglfrm: Tspzlglfrm
  Left = -4
  Top = -4
  Width = 1032
  Height = 748
  Caption = #29289#26009#22522#30784#20195#30721#24405#20837#30028#38754
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object grp1: TGroupBox
    Left = 0
    Top = 0
    Width = 1024
    Height = 721
    Align = alClient
    Anchors = [akLeft, akRight, akBottom]
    Caption = #29289#26009#20195#30721
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    DesignSize = (
      1024
      721)
    object grp2: TGroupBox
      Left = 2
      Top = 280
      Width = 1020
      Height = 439
      Align = alBottom
      Anchors = [akLeft, akTop, akRight, akBottom]
      TabOrder = 0
      object dbgrd1: TDBGrid
        Left = 2
        Top = 14
        Width = 1016
        Height = 423
        Align = alClient
        DataSource = ds_MtrCode
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'MtrCode'
            Title.Caption = #26009#20214#20195#30721
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'MtrName'
            Title.Caption = #26009#20214#21517#31216
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fWeightUnit'
            Title.Caption = #37325#37327#21333#20301
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fMeasureUnit'
            Title.Caption = #24230#37327#21333#20301
            Visible = True
          end>
      end
    end
    object grp3: TGroupBox
      Left = 8
      Top = 15
      Width = 1011
      Height = 48
      Anchors = [akLeft, akTop, akRight]
      Caption = #25805#20316#23548#33322
      TabOrder = 1
      object Button1: TButton
        Left = 404
        Top = 16
        Width = 61
        Height = 27
        Caption = #26597#35810
        Enabled = False
        TabOrder = 0
      end
      object Button3: TButton
        Left = 472
        Top = 16
        Width = 57
        Height = 27
        Caption = #25171#21360
        Enabled = False
        TabOrder = 1
        OnClick = Button3Click
      end
      object add: TBitBtn
        Left = 72
        Top = 16
        Width = 75
        Height = 25
        Caption = #26032#22686
        TabOrder = 2
        OnClick = addClick
      end
      object BitBtn2: TBitBtn
        Left = 152
        Top = 16
        Width = 75
        Height = 25
        Caption = #21024#38500
        TabOrder = 3
        OnClick = BitBtn2Click
      end
      object BitBtn3: TBitBtn
        Left = 232
        Top = 16
        Width = 75
        Height = 25
        Caption = #32534#36753
        TabOrder = 4
        OnClick = BitBtn3Click
      end
      object save: TBitBtn
        Left = 313
        Top = 16
        Width = 75
        Height = 25
        Caption = #20445#23384
        Enabled = False
        TabOrder = 5
        OnClick = saveClick
      end
    end
    object grp4: TGroupBox
      Left = 8
      Top = 65
      Width = 1011
      Height = 209
      Anchors = [akLeft, akTop, akRight]
      Caption = #29289#26009#20195'?'#20449#24687'?'#20837
      TabOrder = 2
      object Label1: TLabel
        Left = 32
        Top = 24
        Width = 54
        Height = 12
        Caption = #26009#20214#20195#30721':'
      end
      object Label2: TLabel
        Left = 32
        Top = 56
        Width = 54
        Height = 12
        Caption = #26009#20214#21517#31216':'
      end
      object Label3: TLabel
        Left = 32
        Top = 176
        Width = 54
        Height = 12
        Caption = #21830#21697#20195#30721':'
      end
      object Label4: TLabel
        Left = 32
        Top = 136
        Width = 54
        Height = 12
        Caption = #37325#37327#21333#20301':'
      end
      object Label5: TLabel
        Left = 32
        Top = 96
        Width = 54
        Height = 12
        Caption = #24230#37327#21333#20301':'
      end
      object Label6: TLabel
        Left = 288
        Top = 24
        Width = 54
        Height = 12
        Caption = #37319#36141#21333#20301':'
        Visible = False
      end
      object Label7: TLabel
        Left = 288
        Top = 56
        Width = 42
        Height = 12
        Caption = #20379#24212#21830':'
        Visible = False
      end
      object mtrcode: TDBEdit
        Left = 120
        Top = 24
        Width = 121
        Height = 20
        Color = clGradientActiveCaption
        DataField = 'MtrCode'
        DataSource = ds_MtrCode
        TabOrder = 0
      end
      object mtrname: TDBEdit
        Left = 120
        Top = 56
        Width = 121
        Height = 20
        Color = clSkyBlue
        DataField = 'MtrName'
        DataSource = ds_MtrCode
        TabOrder = 1
      end
      object DBEdit3: TDBEdit
        Left = 120
        Top = 168
        Width = 121
        Height = 20
        DataField = 'fMtrStyle'
        DataSource = ds_MtrCode
        TabOrder = 2
      end
      object DBEdit4: TDBEdit
        Left = 120
        Top = 128
        Width = 121
        Height = 20
        DataField = 'fWeightUnit'
        DataSource = ds_MtrCode
        TabOrder = 3
      end
      object unitbox: TDBComboBox
        Left = 120
        Top = 94
        Width = 121
        Height = 20
        Color = clGradientActiveCaption
        DataField = 'fMeasureUnit'
        DataSource = ds_MtrCode
        ItemHeight = 12
        TabOrder = 4
      end
    end
  end
  object AdoMtrCode: TADOQuery
    Active = True
    ConnectionString = 'file name=stockdb.udl'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tMtrCode')
    Left = 170
    Top = 352
  end
  object ds_MtrCode: TDataSource
    DataSet = AdoMtrCode
    Left = 202
    Top = 352
  end
  object ado_unit: TADOTable
    Active = True
    ConnectionString = 'file name=stockdb.udl'
    CursorType = ctStatic
    TableName = 'tUnits'
    Left = 296
    Top = 184
    object ado_unitfUnitCode: TWideStringField
      FieldName = 'fUnitCode'
      Size = 10
    end
    object ado_unitfbaseUnits: TWideStringField
      FieldName = 'fbaseUnits'
      Size = 10
    end
  end
end