csh550_01.dfm.svn-base

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

inherited Csh550_01Form: TCsh550_01Form
  Left = 157
  Top = 99
  Caption = #26032#24314#24080#25143
  PixelsPerInch = 96
  TextHeight = 12
  inherited PageControl1: TPageControl
    inherited TabSheet1: TTabSheet
      inherited ScrollBox2: TScrollBox
        inherited dxDBGrid1: TdxDBGrid
          Filter.Criteria = {00000000}
          object dxDBGrid1C550_002: TdxDBGridMaskColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 236
            BandIndex = 0
            RowIndex = 0
            FieldName = 'C550_002'
          end
          object dxDBGrid1C550_003: TdxDBGridMaskColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 214
            BandIndex = 0
            RowIndex = 0
            FieldName = 'C550_003'
          end
          object dxDBGrid1C550_004: TdxDBGridMaskColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'C550_004'
          end
          object dxDBGrid1G100_003: TdxDBGridMaskColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'G100_003'
          end
          object dxDBGrid1H150_003: TdxDBGridMaskColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'H150_003'
          end
          object dxDBGrid1C550_007: TdxDBGridDateColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            Width = 112
            BandIndex = 0
            RowIndex = 0
            FieldName = 'C550_007'
          end
          object dxDBGrid1C550_008: TdxDBGridMaskColumn
            DisableEditor = True
            HeaderAlignment = taCenter
            BandIndex = 0
            RowIndex = 0
            FieldName = 'C550_008'
          end
        end
      end
    end
    inherited TabSheet2: TTabSheet
      inherited ScrollBox1: TScrollBox
        object lblName: TLabel
          Tag = 1
          Left = 96
          Top = 36
          Width = 48
          Height = 12
          Alignment = taRightJustify
          Caption = #24080#25143#21517#31216
          FocusControl = edtName
        end
        object lblDesc: TLabel
          Left = 96
          Top = 68
          Width = 48
          Height = 12
          Alignment = taRightJustify
          Caption = #24080#25143#35828#26126
          FocusControl = edtDesc
        end
        object lblType: TLabel
          Tag = 1
          Left = 96
          Top = 100
          Width = 48
          Height = 12
          Alignment = taRightJustify
          Caption = #24080#25143#31867#22411
        end
        object lblCurr: TLabel
          Tag = 1
          Left = 320
          Top = 100
          Width = 24
          Height = 12
          Alignment = taRightJustify
          Caption = #24065#21035
        end
        object lblPerson: TLabel
          Left = 108
          Top = 132
          Width = 36
          Height = 12
          Alignment = taRightJustify
          Caption = #32463#21150#20154
        end
        object lblDate: TLabel
          Tag = 1
          Left = 96
          Top = 164
          Width = 48
          Height = 12
          Alignment = taRightJustify
          Caption = #24314#24080#26085#26399
        end
        object lblAmount: TLabel
          Tag = 1
          Left = 320
          Top = 164
          Width = 24
          Height = 12
          Alignment = taRightJustify
          Caption = #20313#39069
          FocusControl = edtAmount
        end
        object edtName: TDBEdit
          Left = 152
          Top = 32
          Width = 328
          Height = 20
          DataField = 'C550_002'
          DataSource = DataSource1
          ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
          TabOrder = 0
        end
        object edtDesc: TDBEdit
          Left = 152
          Top = 64
          Width = 328
          Height = 20
          DataField = 'C550_003'
          DataSource = DataSource1
          ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
          TabOrder = 1
        end
        object edtAmount: TDBEdit
          Left = 352
          Top = 160
          Width = 128
          Height = 20
          DataField = 'C550_008'
          DataSource = DataSource1
          ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
          TabOrder = 6
        end
        object cbPerson: TDBLookupComboBox
          Left = 152
          Top = 128
          Width = 129
          Height = 20
          DataField = 'C550_006'
          DataSource = DataSource1
          ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
          KeyField = 'H150_001'
          ListField = 'H150_003'
          ListSource = dsHrm150
          NullValueKey = 46
          TabOrder = 4
        end
        object cbType: TComboBox
          Left = 152
          Top = 96
          Width = 129
          Height = 20
          Style = csDropDownList
          ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
          ItemHeight = 12
          TabOrder = 2
          Items.Strings = (
            #29616#37329#24080
            #38134#34892#24080)
        end
        object cbCurr: TDBLookupComboBox
          Left = 352
          Top = 96
          Width = 129
          Height = 20
          DataField = 'C550_005'
          DataSource = DataSource1
          ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
          KeyField = 'G100_001'
          ListField = 'G100_003'
          ListSource = dsGld100
          NullValueKey = 46
          TabOrder = 3
        end
        object dtpDate: TwwDBDateTimePicker
          Left = 152
          Top = 160
          Width = 129
          Height = 20
          CalendarAttributes.Font.Charset = DEFAULT_CHARSET
          CalendarAttributes.Font.Color = clWindowText
          CalendarAttributes.Font.Height = -11
          CalendarAttributes.Font.Name = 'MS Sans Serif'
          CalendarAttributes.Font.Style = []
          CalendarAttributes.PopupYearOptions.ShowEditYear = True
          DataField = 'C550_007'
          DataSource = DataSource1
          Epoch = 1950
          ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
          ShowButton = True
          TabOrder = 5
        end
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    SQL.Strings = (
      'select * from CSH550')
    object ADOQuery1C550_001: TAutoIncField
      FieldName = 'C550_001'
      ReadOnly = True
      Visible = False
    end
    object ADOQuery1C550_002: TStringField
      DisplayLabel = #24080#25143#21517#31216
      FieldName = 'C550_002'
      Size = 50
    end
    object ADOQuery1C550_003: TStringField
      DisplayLabel = #24080#25143#35828#26126
      FieldName = 'C550_003'
      Size = 50
    end
    object ADOQuery1C550_004: TSmallintField
      DisplayLabel = #24080#25143#31867#22411
      FieldName = 'C550_004'
      OnGetText = ADOQuery1C550_004GetText
    end
    object ADOQuery1C550_005: TIntegerField
      DisplayLabel = #24065#21035
      FieldName = 'C550_005'
      Visible = False
    end
    object ADOQuery1G100_003: TStringField
      DisplayLabel = #24065#21035
      FieldKind = fkLookup
      FieldName = 'G100_003'
      LookupDataSet = qryGld100
      LookupKeyFields = 'G100_001'
      LookupResultField = 'G100_003'
      KeyFields = 'C550_005'
      Size = 30
      Lookup = True
    end
    object ADOQuery1C550_006: TIntegerField
      DisplayLabel = #32463#21150#20154
      FieldName = 'C550_006'
      Visible = False
    end
    object ADOQuery1H150_003: TStringField
      DisplayLabel = #32463#21150#20154
      FieldKind = fkLookup
      FieldName = 'H150_003'
      LookupDataSet = qryHrm150
      LookupKeyFields = 'H150_001'
      LookupResultField = 'H150_003'
      KeyFields = 'C550_006'
      Lookup = True
    end
    object ADOQuery1C550_007: TDateTimeField
      DisplayLabel = #24314#24080#26085#26399
      FieldName = 'C550_007'
    end
    object ADOQuery1C550_008: TFloatField
      DisplayLabel = #20313#39069
      FieldName = 'C550_008'
    end
  end
  object dsHrm150: TDataSource
    DataSet = qryHrm150
    Left = 160
    Top = 296
  end
  object qryHrm150: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select H150_001,H150_002,H150_003 from HRM150')
    Left = 192
    Top = 296
  end
  object dsGld100: TDataSource
    DataSet = qryGld100
    Left = 384
    Top = 296
  end
  object qryGld100: TADOQuery
    Connection = SYSDM.ADOC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from GLD100')
    Left = 416
    Top = 296
  end
end