unit1.~dfm

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

object frmsetup: Tfrmsetup
  Left = 211
  Top = 158
  Width = 575
  Height = 444
  Caption = #22522#30784#25968#25454#35774#32622
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 328
    Top = 8
    Width = 225
    Height = 321
    TabOrder = 7
    object Label1: TLabel
      Left = 16
      Top = 224
      Width = 84
      Height = 12
      Caption = #36755#20837#32467#31639#26041#24335#65306
    end
  end
  object PageControl1: TPageControl
    Left = 4
    Top = 8
    Width = 309
    Height = 397
    ActivePage = TabSheet1
    BiDiMode = bdLeftToRight
    MultiLine = True
    ParentBiDiMode = False
    ParentShowHint = False
    ShowHint = True
    TabIndex = 0
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = #20184#27454#26041#24335
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 301
        Height = 370
        Align = alClient
        DataSource = DataSource1
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'SETTLEMENT'
            Title.Caption = #20184#27454#26041#24335
            Visible = True
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = #19994#21153#31867#22411
      ImageIndex = 1
      object DBGrid2: TDBGrid
        Left = 0
        Top = 0
        Width = 301
        Height = 370
        Align = alClient
        DataSource = DataSource2
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'BUSINES_STYPE'
            Title.Caption = #19994#21153#31867#22411
            Visible = True
          end>
      end
    end
    object TabSheet4: TTabSheet
      Caption = #20648#22791#24615#36136
      ImageIndex = 3
      object DBGrid4: TDBGrid
        Left = 0
        Top = 0
        Width = 301
        Height = 370
        Align = alClient
        DataSource = DataSource4
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ATTRIBUTE'
            Title.Caption = #20648#22791#24615#36136
            Visible = True
          end>
      end
    end
    object TabSheet5: TTabSheet
      Caption = #30452#23646#24615#36136
      ImageIndex = 4
      object DBGrid5: TDBGrid
        Left = 0
        Top = 0
        Width = 301
        Height = 370
        Align = alClient
        DataSource = DataSource5
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ATTACHMENT'
            Title.Caption = #30452#23646#24615#36136
            Visible = True
          end>
      end
    end
    object TabSheet6: TTabSheet
      Caption = #20179#24211#31867#22411
      ImageIndex = 5
      object DBGrid6: TDBGrid
        Left = 0
        Top = 0
        Width = 301
        Height = 370
        Align = alClient
        DataSource = DataSource6
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'DEPOT_TYPE'
            Title.Caption = #20179#24211#31867#22411
            Width = 113
            Visible = True
          end>
      end
    end
  end
  object btnnew: TBitBtn
    Left = 350
    Top = 51
    Width = 75
    Height = 25
    Caption = #22686#21152
    TabOrder = 1
    OnClick = btnnewClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333FF33333333FF333993333333300033377F3333333777333993333333
      300033F77FFF3333377739999993333333333777777F3333333F399999933333
      33003777777333333377333993333333330033377F3333333377333993333333
      3333333773333333333F333333333333330033333333F33333773333333C3333
      330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
      993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
      333333333337733333FF3333333C333330003333333733333777333333333333
      3000333333333333377733333333333333333333333333333333}
    NumGlyphs = 2
  end
  object btndelete: TBitBtn
    Left = 458
    Top = 51
    Width = 75
    Height = 25
    Caption = #21024#38500
    TabOrder = 2
    OnClick = btndeleteClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333FF33333333333330003333333333333777333333333333
      300033FFFFFF3333377739999993333333333777777F3333333F399999933333
      3300377777733333337733333333333333003333333333333377333333333333
      3333333333333333333F333333333333330033333F33333333773333C3333333
      330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
      993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
      333333377F33333333FF3333C333333330003333733333333777333333333333
      3000333333333333377733333333333333333333333333333333}
    NumGlyphs = 2
  end
  object btnmodify: TBitBtn
    Left = 350
    Top = 115
    Width = 75
    Height = 25
    Caption = #20462#25913
    TabOrder = 3
    OnClick = btnmodifyClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
      000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
      00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
      F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
      0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
      FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
      FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
      0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
      00333377737FFFFF773333303300000003333337337777777333}
    NumGlyphs = 2
  end
  object btnabandon: TBitBtn
    Left = 458
    Top = 115
    Width = 75
    Height = 25
    Caption = #21462#28040
    TabOrder = 4
    OnClick = btnabandonClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      8888888888888888888888808888888888088800088888888888880000888888
      8088888000888888088888880008888008888888800088008888888888000008
      8888888888800088888888888800000888888888800088008888888000088880
      0888880000888888008888000888888888088888888888888888}
  end
  object edtinput: TEdit
    Left = 360
    Top = 265
    Width = 169
    Height = 20
    Color = clBtnFace
    Enabled = False
    TabOrder = 5
    OnChange = edtinputChange
    OnKeyPress = edtinputkeypress
  end
  object btnapply: TBitBtn
    Left = 352
    Top = 368
    Width = 75
    Height = 25
    Caption = #20445#23384
    TabOrder = 6
    OnClick = btnapplyClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      555555555555555555555555555555555555555555FF55555555555559055555
      55555555577FF5555555555599905555555555557777F5555555555599905555
      555555557777FF5555555559999905555555555777777F555555559999990555
      5555557777777FF5555557990599905555555777757777F55555790555599055
      55557775555777FF5555555555599905555555555557777F5555555555559905
      555555555555777FF5555555555559905555555555555777FF55555555555579
      05555555555555777FF5555555555557905555555555555777FF555555555555
      5990555555555555577755555555555555555555555555555555}
    NumGlyphs = 2
  end
  object btnexit: TBitBtn
    Left = 472
    Top = 368
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 8
    OnClick = btnexitClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
      03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
      0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
      0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
      0333337F777FFFFF7F3333000000000003333377777777777333}
    NumGlyphs = 2
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 32
    Top = 136
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 64
    Top = 136
  end
  object DataSource4: TDataSource
    DataSet = Table4
    Left = 208
    Top = 136
  end
  object DataSource5: TDataSource
    DataSet = Table5
    Left = 240
    Top = 136
  end
  object DataSource6: TDataSource
    DataSet = Table6
    Left = 272
    Top = 136
  end
  object Table1: TTable
    DatabaseName = 'LYDB'
    FieldDefs = <
      item
        Name = 'SETTLEMENT'
        Attributes = [faRequired]
        DataType = ftString
        Size = 12
      end
      item
        Name = 'MEMO'
        DataType = ftString
        Size = 200
      end
      item
        Name = 'COM_FLAG'
        DataType = ftInteger
      end>
    IndexDefs = <
      item
        Name = 'PK_ENT_SETTLEMENT'
        Fields = 'SETTLEMENT'
        Options = [ixUnique]
      end>
    StoreDefs = True
    TableName = 'dbo.ENT_SETTLEMENT'
    Left = 32
    Top = 96
  end
  object Table2: TTable
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_BUSINESS_TYPE'
    Left = 64
    Top = 96
  end
  object Table4: TTable
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_ATTRIBUTE'
    Left = 208
    Top = 104
  end
  object Table5: TTable
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_ATTACHMENT'
    Left = 240
    Top = 104
  end
  object Table6: TTable
    DatabaseName = 'LYDB'
    TableName = 'dbo.ENT_DEPOTTYPE'
    Left = 272
    Top = 104
  end
  object qrycommon: TQuery
    DatabaseName = 'LYDB'
    Left = 136
    Top = 208
  end
end