uselectinitializeinput.dfm

天涯進銷存系統

      01010C0A17272501740074015E6351666666010101210101731B0C1A19182601
      740074014B51535352663401010101010F1C1A1A1A2A4201740074013166526E
      536651500101012F1C1C1A1A2C2D2B01740074014E6767676866510101010101
      1C2C2C2C2C2D5D0174007401506F556F67660101014E0101012C452C484A2E01
      740074015069695567010101634E310101012C48484A2E017400740151566A69
      01010151506D624B01010148304A2E01740074016657576A7101686651506D62
      62016B4B614A2E0174007401675937366A695554686666515163334E4B4A5D01
      7400740155385B59576A566955556F6767665163315F43017400740135705A58
      3556695555545467536651334B466402740074016C6A6F53516563634E4E4E4E
      4B4B605E294D3A01740074740102010101010101010101010101010101010174
      7400747474747474747474747474747474747474747474747400}
    OnClick = SysCloseButtonClick
    GlyphsTransparent = True
    Interval = 10
  end
  object WindowCaption: TLabel
    Left = 3
    Top = 9
    Width = 105
    Height = 14
    Caption = #21830#21697#26399#21021#20837#24211#21333
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Panel4: TPanel
    Left = 0
    Top = 30
    Width = 2
    Height = 355
    Align = alLeft
    BevelOuter = bvNone
    Color = 13003057
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
  end
  object Panel6: TPanel
    Left = 475
    Top = 30
    Width = 2
    Height = 355
    Align = alRight
    BevelOuter = bvNone
    Color = 13003057
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
  object Panel3: TPanel
    Left = 0
    Top = 385
    Width = 477
    Height = 2
    Align = alBottom
    BevelOuter = bvNone
    Color = 13003057
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
  end
  object BillCodeEdit: TLBEdit
    Left = 160
    Top = 35
    Width = 105
    Height = 18
    ParentColor = True
    TabOrder = 3
    OnChange = BillCodeEditChange
    OnKeyDown = BillCodeEditKeyDown
  end
  object DepotEdit: TLBComboBox
    Left = 315
    Top = 34
    Width = 150
    Height = 20
    ArrowColor = clBlack
    ButtonColor = 13741485
    ButStyle = cbsXp
    ItemHeight = 12
    Items.Strings = (
      #24050#25910#36135
      #26410#25910#36135)
    TabOrder = 4
    ItemIndex = -1
    OnChange = BillCodeEditChange
    OnDropDown = DepotEditDropDown
    OnEnter = DepotEditDropDown
  end
  object DataDBGrid: TLBDBGrid
    Left = 10
    Top = 84
    Width = 454
    Height = 292
    BorderStyle = bsNone
    DataSource = dsSelectBillData
    GridlineColor = clBackground
    ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
    Options = [dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ShowScrollBars = False
    SelectRowColor = 16774127
    SelectRowFontColor = clHighlight
    TabOrder = 5
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = Action2Execute
    OnKeyDown = DataDBGridKeyDown
    Columns = <
      item
        Expanded = False
        FieldName = 'BILLCODE'
        Width = 120
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DEPOTNAME'
        Width = 171
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BILLDATE'
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'State'
        Width = 42
        Visible = True
      end>
  end
  object Panel2: TPanel
    Left = 9
    Top = 63
    Width = 455
    Height = 21
    BevelOuter = bvNone
    Color = 14581072
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    object Label17: TLabel
      Left = 3
      Top = 5
      Width = 24
      Height = 12
      Caption = #21333#21495
    end
    object Label21: TLabel
      Left = 122
      Top = 5
      Width = 24
      Height = 12
      Caption = #20179#24211
    end
    object Label4: TLabel
      Left = 293
      Top = 5
      Width = 48
      Height = 12
      Caption = #20837#24211#26085#26399
    end
    object Label5: TLabel
      Left = 395
      Top = 5
      Width = 24
      Height = 12
      Caption = #29366#24577
    end
  end
  object LBDBScrollBar1: TLBDBScrollBar
    Left = 446
    Top = 83
    Width = 18
    Height = 294
    Color = 16774127
    LineColor = clBackground
    DownFontColor = clBlack
    Font.Charset = SYMBOL_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Marlett'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
    DataSource = sdsSelectBillData
  end
  object dsSelectBillData: TDataSource
    DataSet = sdsSelectBillData
    Left = 376
    Top = 224
  end
  object ActionList1: TActionList
    Images = frmMain.ToolbarImageList
    Left = 408
    Top = 224
    object Action1: TAction
      Caption = #21047#26032
      ImageIndex = 4
      OnExecute = Action1Execute
    end
    object Action2: TAction
      Caption = #36873#25321
      ImageIndex = 8
      OnExecute = Action2Execute
    end
  end
  object sdsSelectBillData: TSimpleDataSet
    Aggregates = <>
    Connection = dmData.SQLConnection
    DataSet.CommandText = 
      'Select BillCode, DepotName, BillDate, isExecute '#13#10'     from Part' +
      'sInPutHand '
    DataSet.MaxBlobSize = -1
    DataSet.Params = <>
    FetchOnDemand = False
    PacketRecords = 1000
    Params = <>
    OnCalcFields = sdsSelectBillDataCalcFields
    Left = 344
    Top = 224
    object StringField29: TStringField
      FieldName = 'BILLCODE'
      FixedChar = True
    end
    object SQLTimeStampField3: TSQLTimeStampField
      FieldName = 'BILLDATE'
    end
    object StringField33: TStringField
      FieldName = 'ISEXECUTE'
      FixedChar = True
      Size = 1
    end
    object StringField34: TStringField
      FieldKind = fkCalculated
      FieldName = 'State'
      Size = 6
      Calculated = True
    end
    object sdsSelectBillDataDEPOTNAME: TStringField
      FieldName = 'DEPOTNAME'
      Size = 50
    end
  end
end