basesheettype.dfm

产品信息系统!关于产品基础信息的系统!功能强大!

inherited frmBaseSheetType: TfrmBaseSheetType
  Left = 289
  Top = 199
  Caption = #21333#25454#32534#30721#26041#26696
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter [0]
    Left = 221
    Top = 38
    Width = 3
    Height = 310
    Cursor = crHSplit
    Align = alRight
  end
  object Panel1: TPanel [2]
    Left = 224
    Top = 38
    Width = 312
    Height = 310
    Align = alRight
    TabOrder = 1
    object Panel2: TPanel
      Left = 24
      Top = 48
      Width = 258
      Height = 249
      BevelOuter = bvNone
      BorderStyle = bsSingle
      TabOrder = 0
      object Label1: TLabel
        Left = 0
        Top = 54
        Width = 73
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #21333#25454#32534#30721#65306
        Transparent = True
        Layout = tlCenter
      end
      object Label2: TLabel
        Left = 0
        Top = 94
        Width = 73
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #21333#25454#21517#31216#65306
        Transparent = True
        Layout = tlCenter
      end
      object Label3: TLabel
        Left = 8
        Top = 14
        Width = 177
        Height = 13
        AutoSize = False
        Caption = #21333#25454#32534#30721#30340#26368#22823#38271#24230#20026'4'#20301
        Font.Charset = ANSI_CHARSET
        Font.Color = clMaroon
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        Layout = tlCenter
      end
      object DBEdit2: TDBEdit
        Left = 78
        Top = 87
        Width = 155
        Height = 21
        DataField = 'fName'
        DataSource = dsBaseInfo
        ReadOnly = True
        TabOrder = 0
      end
      object DBEdit3: TDBEdit
        Left = 78
        Top = 55
        Width = 155
        Height = 21
        DataField = 'fCode'
        DataSource = dsBaseInfo
        MaxLength = 4
        TabOrder = 1
      end
    end
  end
  object DBGrid1: TDBGrid [3]
    Left = 0
    Top = 38
    Width = 221
    Height = 310
    Align = alClient
    DataSource = dsBaseInfo
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'fCode'
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'fName'
        Width = 100
        Visible = True
      end>
  end
  inherited ALToolbar: TActionList
    Top = 32
    
  end
  inherited QBaseInfo: TADOQuery
    Active = True
    SQL.Strings = (
      'select * from tBillType')
    Left = 312
    Top = 40
    object QBaseInfofID: TIntegerField
      FieldName = 'fID'
    end
    object QBaseInfofCode: TWideStringField
      DisplayLabel = #21333#25454#32534#30721
      FieldName = 'fCode'
      Size = 10
    end
    object QBaseInfofName: TWideStringField
      DisplayLabel = #21333#25454#21517#31216
      FieldName = 'fName'
      Size = 50
    end
    object QBaseInfofInNumber: TIntegerField
      FieldName = 'fInNumber'
    end
    object QBaseInfofOutNumber: TIntegerField
      FieldName = 'fOutNumber'
    end
    object QBaseInfofDefBeginDep: TIntegerField
      FieldName = 'fDefBeginDep'
    end
    object QBaseInfofDefEndDep: TIntegerField
      FieldName = 'fDefEndDep'
    end
  end
  inherited dsBaseInfo: TDataSource
    Left = 344
    Top = 40
  end
  inherited QIsUnique: TADOQuery
    Left = 416
    Top = 72
  end
  inherited wwLookupDlg: TwwLookupDialog
    Selected.Strings = (
      'fCode'#9'10'#9#21333#25454#32534#30721#9'F'
      'fName'#9'15'#9#21333#25454#21517#31216#9'F')
    Left = 272
    Top = 40
  end
end