planid.dfm

是分布式粮库程序,是采用Delphi实现的

object fplanid: Tfplanid
  Left = 313
  Top = 119
  BorderIcons = [biSystemMenu]
  BorderStyle = bsToolWindow
  Caption = #35745#21010#32534#21495
  ClientHeight = 357
  ClientWidth = 329
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 329
    Height = 321
    DataSource = planidDataSource
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'PLAN_ID'
        Title.Caption = #35745#21010#32534#21495
        Width = 58
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'UNIT_ID'
        Title.Caption = #20998#20844#21496
        Width = 56
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FOOD_TYPE'
        Title.Caption = #36135#29289#21517#31216
        Width = 63
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PLAN_QUANTITY'
        Title.Caption = #25968#37327
        Width = 48
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'START_TIME'
        Title.Caption = #35745#21010#24320#22987#26085#26399
        Width = 83
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FINISH_TIME'
        Title.Caption = #35745#21010#32467#26463#26085#26399
        Width = 88
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MAKE_TIME'
        Title.Caption = #35745#21010#21046#23450#26085#26399
        Width = 85
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CLERK'
        Title.Caption = #35745#21010#20154
        Visible = True
      end>
  end
  object BitBtn1: TBitBtn
    Left = 32
    Top = 328
    Width = 89
    Height = 25
    Caption = #30830'  '#23450
    TabOrder = 1
    OnClick = BitBtn1Click
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 200
    Top = 328
    Width = 89
    Height = 25
    Caption = #21462'  '#28040
    TabOrder = 2
    OnClick = BitBtn2Click
    Kind = bkClose
  end
  object planidTable: TTable
    DatabaseName = 'LYDB'
    ReadOnly = True
    TableName = 'dbo.ENT_PLAN_CASE'
    Left = 120
    Top = 96
  end
  object planidDataSource: TDataSource
    DataSet = planidTable
    Left = 152
    Top = 96
  end
end