csh600_02.dfm.svn-base

开源的网站整站程序,功能强大带采集系统.

inherited Csh600_02Form: TCsh600_02Form
  Left = 191
  Top = 121
  ActiveControl = cbInOut
  Caption = #20538#26435#20538#21153#35774#32622
  ClientHeight = 183
  ClientWidth = 537
  PixelsPerInch = 96
  TextHeight = 12
  inherited Bevel1: TBevel
    Width = 521
    Height = 137
  end
  object lblType: TLabel [1]
    Tag = 1
    Left = 184
    Top = 24
    Width = 48
    Height = 12
    Caption = #23545#35937#31867#22411
  end
  object lblCust: TLabel [2]
    Tag = 1
    Left = 24
    Top = 48
    Width = 48
    Height = 12
    Caption = #23545#35937#32534#21495
  end
  object lblCurr: TLabel [3]
    Tag = 1
    Left = 344
    Top = 24
    Width = 48
    Height = 12
    Caption = #24065#21035#32534#21495
  end
  object lblInOut: TLabel [4]
    Tag = 1
    Left = 24
    Top = 24
    Width = 48
    Height = 12
    Caption = #20538#26435#20538#21153
  end
  object lblDate: TLabel [5]
    Tag = 1
    Left = 24
    Top = 72
    Width = 48
    Height = 12
    Caption = #24314#31435#26085#26399
  end
  object lblAmount: TLabel [6]
    Tag = 1
    Left = 344
    Top = 72
    Width = 48
    Height = 12
    Caption = #26399#21021#37329#39069
  end
  object lblRemark: TLabel [7]
    Left = 24
    Top = 96
    Width = 48
    Height = 12
    Caption = #22791#27880#35828#26126
  end
  object sbCust: TSpeedButton [8]
    Left = 202
    Top = 40
    Width = 22
    Height = 20
    Flat = True
    Glyph.Data = {
      F6060000424DF606000000000000360000002800000018000000180000000100
      180000000000C006000000000000000000000000000000000000FF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000000000
      000000FF00FFFF00FFFF00FFFF00FFFF00FF000000000000000000FF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FF000000C0C0C0000000FF00FFFF00FFFF00FFFF00FFFF00FF000000C0C0C0
      000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FF000000000000000000808080FF00FFFF00FFFF00FF80
      8080000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0000000000000000000000000000
      00000000000000000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFBF0000BF0000BF0000BF0000000000C0C0C0
      000000000000000000000000C0C0C0000000000000000000000000FF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFFFFFFFFFF
      FFFF000000C0C0C0000000000000000000000000C0C0C0000000000000000000
      000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
      00FFFFFF80808080808000000000000000000000000000000000000000000000
      0000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFBF0000FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000
      00C0C0C0000000000000000000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFF808080808080FFFFFF808080
      000000000000808080808080FFFFFF000000000000FF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000FFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFF000000000000FF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
      00FFFFFF808080808080FFFFFF808080000000000000808080808080FFFFFF00
      0000000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFBF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFBF0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFBF0000BF0000BF0000BF0000BF0000BF0000
      BF0000BF0000BF0000BF0000BF0000BF0000FF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF0000C0C0C0BF0000BF
      0000C0C0C0BF0000BF0000C0C0C0BF0000BF0000C0C0C0BF0000FF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFBF00
      00BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF0000BF
      0000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
      FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
      FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
      00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
    OnClick = sbCustClick
  end
  inherited bbtnOk: TBitBtn
    Left = 352
    Top = 152
  end
  inherited bbtnExit: TBitBtn
    Left = 440
    Top = 152
  end
  object cbType: TComboBox [11]
    Left = 240
    Top = 16
    Width = 97
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    ItemIndex = 0
    TabOrder = 2
    Text = #23458#25143
    OnChange = cbTypeChange
    Items.Strings = (
      #23458#25143
      #21592#24037)
  end
  object cbCurr: TComboBox [12]
    Left = 400
    Top = 16
    Width = 113
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 3
    OnChange = cbCurrChange
  end
  object cbInOut: TComboBox [13]
    Left = 80
    Top = 16
    Width = 97
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    ItemIndex = 0
    TabOrder = 4
    Text = #20538#26435
    Items.Strings = (
      #20538#26435
      #20538#21153)
  end
  object edtDate: TwwDBDateTimePicker [14]
    Left = 80
    Top = 64
    Width = 113
    Height = 20
    CalendarAttributes.Font.Charset = DEFAULT_CHARSET
    CalendarAttributes.Font.Color = clWindowText
    CalendarAttributes.Font.Height = -11
    CalendarAttributes.Font.Name = 'MS Sans Serif'
    CalendarAttributes.Font.Style = []
    Epoch = 1950
    ShowButton = True
    TabOrder = 5
  end
  object edtAmount: TEdit [15]
    Left = 400
    Top = 64
    Width = 113
    Height = 20
    TabOrder = 6
    OnKeyPress = edtAmountKeyPress
  end
  object edtCust: TEdit [16]
    Left = 80
    Top = 40
    Width = 121
    Height = 20
    TabOrder = 7
    OnExit = edtCustExit
  end
  object edtCustName: TEdit [17]
    Left = 232
    Top = 40
    Width = 281
    Height = 20
    Color = clBtnFace
    Enabled = False
    ImeName = ''
    ReadOnly = True
    TabOrder = 8
  end
  object memRemark: TMemo [18]
    Left = 80
    Top = 88
    Width = 433
    Height = 49
    ScrollBars = ssVertical
    TabOrder = 9
  end
  inherited pmUISet: TPopupMenu
    Top = 152
  end
  inherited ADOQuery1: TADOQuery
    SQL.Strings = (
      
        'select AA.C600_001,AA.C600_002,AA.C600_003,BB.O150_002,BB.O150_0' +
        '03,BB.G100_002,BB.G100_003,AA.C600_004,AA.C600_005,AA.C600_006,A' +
        'A.C600_007'
      'from CSH600 AA,'
      '  (select A.C600_001,A.C600_002,A.C600_003,'
      '       B.O150_002,B.O150_003,'
      '       C.G100_002,C.G100_003'
      '  from CSH600 A,ORD150 B,GLD100 C'
      '  where C600_001=0 and C600_002=O150_001 and C600_003=G100_001'
      '  union'
      '  select A.C600_001,A.C600_002,A.C600_003,'
      '       B.H150_002,B.H150_003,'
      '       C.G100_002,C.G100_003'
      '  from CSH600 A,HRM150 B,GLD100 C'
      '  where C600_001=1 and C600_002=H150_001 and C600_003=G100_001'
      '  ) BB'
      
        'where AA.C600_001=BB.C600_001 and AA.C600_002=BB.C600_002 and AA' +
        '.C600_003=BB.C600_003'
      'order by AA.C600_001,BB.O150_002,BB.G100_002')
    Top = 152
  end
  object qryOrd150: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select O150_001 as FNo,O150_002 as FCode,O150_003 as FName from ' +
        'ORD150 order by O150_002')
    Left = 152
    Top = 40
    object qryOrd150FNo: TAutoIncField
      FieldName = 'FNo'
      ReadOnly = True
      Visible = False
    end
    object qryOrd150FCode: TWideStringField
      DisplayLabel = #23545#35937#32534#21495
      FieldName = 'FCode'
    end
    object qryOrd150FName: TWideStringField
      DisplayLabel = #23545#35937#21517#31216
      FieldName = 'FName'
      Size = 60
    end
  end
  object qryGld100: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from GLD100 order by G100_002')
    Left = 432
    Top = 16
  end
  object qryCsh610: TADOQuery
    Connection = SYSDM.ADOC
    Parameters = <>
    Left = 168
    Top = 152
  end
end