accountfrm.dfm

delphi 编制的服务器程序

inherited AccountForm: TAccountForm
  Left = -1
  Top = 35
  Width = 802
  Height = 538
  Caption = #24080#21153#31649#29702
  OldCreateOrder = True
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 15
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 794
    Height = 511
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvNone
    BorderStyle = bsSingle
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 302
      Top = 42
      Width = 3
      Height = 464
      Cursor = crHSplit
      Color = clActiveCaption
      ParentColor = False
    end
    object SpeedButton6: TSpeedButton
      Left = 704
      Top = 5
      Width = 36
      Height = 33
      Caption = #21024#38500
      OnClick = sbModifyClick
    end
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 788
      Height = 41
      Align = alTop
      TabOrder = 0
      object sbModify: TSpeedButton
        Left = 540
        Top = 6
        Width = 57
        Height = 33
        Caption = #20462#25913
        OnClick = sbModifyClick
      end
      object sbExit: TSpeedButton
        Left = 728
        Top = 6
        Width = 57
        Height = 33
        Caption = #36864#20986
        OnClick = sbExitClick
      end
      object sbQuery: TSpeedButton
        Left = 416
        Top = 6
        Width = 57
        Height = 33
        Caption = #26597#35810
        OnClick = sbQueryClick
      end
      object sbDelete: TSpeedButton
        Left = 478
        Top = 6
        Width = 57
        Height = 33
        Caption = #21024#38500
        OnClick = sbDeleteClick
      end
      object sbSave: TSpeedButton
        Left = 603
        Top = 6
        Width = 57
        Height = 33
        Caption = #20445#23384
        OnClick = sbSaveClick
      end
      object sbCancel: TSpeedButton
        Left = 665
        Top = 6
        Width = 57
        Height = 33
        Caption = #25918#24323
        OnClick = sbCancelClick
      end
      object Label1: TLabel
        Left = 8
        Top = 12
        Width = 30
        Height = 15
        Caption = #25340#38899
      end
      object Label2: TLabel
        Left = 111
        Top = 12
        Width = 75
        Height = 15
        Caption = #25110#36873#25321#29677#32423
      end
      object SpeedButton5: TSpeedButton
        Left = 289
        Top = 10
        Width = 29
        Height = 23
        Caption = '>>>'
        OnClick = SpeedButton5Click
      end
      object SpeedButton8: TSpeedButton
        Left = 322
        Top = 9
        Width = 87
        Height = 24
        Caption = #25972#29677#25805#20316
        Enabled = False
        OnClick = SpeedButton8Click
      end
      object Edit1: TEdit
        Left = 42
        Top = 8
        Width = 62
        Height = 23
        TabOrder = 0
        OnChange = Edit1Change
      end
      object Edit2: TEdit
        Left = 188
        Top = 9
        Width = 101
        Height = 23
        ReadOnly = True
        TabOrder = 1
        OnChange = Edit2Change
      end
    end
    object ListBox1: TListBox
      Left = 80
      Top = 160
      Width = 161
      Height = 185
      ItemHeight = 15
      TabOrder = 1
      Visible = False
    end
    object ListBox2: TListBox
      Left = 104
      Top = 208
      Width = 121
      Height = 97
      ItemHeight = 15
      TabOrder = 2
      Visible = False
    end
    object DBGrid1: TDBGrid
      Left = 305
      Top = 42
      Width = 484
      Height = 464
      Align = alClient
      DataSource = DataSource1
      ReadOnly = True
      TabOrder = 3
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -15
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'StudentCode'
          Title.Alignment = taCenter
          Width = 101
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'StudentName'
          Title.Alignment = taCenter
          Width = 63
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'AllMoney'
          Title.Alignment = taCenter
          Width = 57
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'MoneyClass'
          PickList.Strings = (
            #32493#36153
            #20813#36153
            #36864#36153)
          Title.Alignment = taCenter
          Width = 57
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'OccurDate'
          Title.Alignment = taCenter
          Width = 85
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ChargeMan'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ID'
          Visible = False
        end>
    end
    object DBGrid2: TDBGrid
      Left = 1
      Top = 42
      Width = 301
      Height = 464
      Hint = #35831#22312#35201#25805#20316#30340#35760#24405#19978#21452#20987
      Align = alLeft
      DataSource = DataSource2
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 4
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -15
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = DBGrid2DblClick
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'StudentCode'
          Title.Alignment = taCenter
          Title.Caption = #29992#25143#21495
          Width = 88
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'studentName'
          Title.Alignment = taCenter
          Width = 53
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ClassCaption'
          Title.Alignment = taCenter
          Width = 136
          Visible = True
        end>
    end
    object pnlQuery: TPanel
      Left = 248
      Top = 184
      Width = 313
      Height = 169
      BevelInner = bvLowered
      BorderStyle = bsSingle
      Color = clActiveBorder
      TabOrder = 5
      object Panel4: TPanel
        Left = 2
        Top = 122
        Width = 305
        Height = 41
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 0
        object BitBtn1: TBitBtn
          Left = 147
          Top = 8
          Width = 75
          Height = 25
          Caption = #30830#23450
          Default = True
          TabOrder = 0
          OnClick = BitBtn1Click
          Glyph.Data = {
            DE010000424DDE01000000000000760000002800000024000000120000000100
            0400000000006801000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333333333333333330000333333333333333333333333F33333333333
            00003333344333333333333333388F3333333333000033334224333333333333
            338338F3333333330000333422224333333333333833338F3333333300003342
            222224333333333383333338F3333333000034222A22224333333338F338F333
            8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
            33333338F83338F338F33333000033A33333A222433333338333338F338F3333
            0000333333333A222433333333333338F338F33300003333333333A222433333
            333333338F338F33000033333333333A222433333333333338F338F300003333
            33333333A222433333333333338F338F00003333333333333A22433333333333
            3338F38F000033333333333333A223333333333333338F830000333333333333
            333A333333333333333338330000333333333333333333333333333333333333
            0000}
          NumGlyphs = 2
        end
        object BitBtn2: TBitBtn
          Left = 229
          Top = 8
          Width = 75
          Height = 25
          Cancel = True
          Caption = #21462#28040
          TabOrder = 1
          OnClick = BitBtn2Click
          Glyph.Data = {
            DE010000424DDE01000000000000760000002800000024000000120000000100
            0400000000006801000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333333333333333000033338833333333333333333F333333333333
            0000333911833333983333333388F333333F3333000033391118333911833333
            38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
            911118111118333338F3338F833338F3000033333911111111833333338F3338
            3333F8330000333333911111183333333338F333333F83330000333333311111
            8333333333338F3333383333000033333339111183333333333338F333833333
            00003333339111118333333333333833338F3333000033333911181118333333
            33338333338F333300003333911183911183333333383338F338F33300003333
            9118333911183333338F33838F338F33000033333913333391113333338FF833
            38F338F300003333333333333919333333388333338FFF830000333333333333
            3333333333333333333888330000333333333333333333333333333333333333
            0000}
          NumGlyphs = 2
        end
      end
      object Rg: TRadioGroup
        Left = 2
        Top = 2
        Width = 305
        Height = 120
        Align = alClient
        Caption = ' '#35831#36873#25321#36755#20837#26597#35810#26465#20214' '
        ItemIndex = 0
        Items.Strings = (
          #29992#25143#21495
          #29992#25143#22995#21517
          #21457#29983#26085#26399
          #26080#26465#20214)
        TabOrder = 1
        OnClick = RgClick
      end
      object edtCode: TEdit
        Left = 92
        Top = 18
        Width = 121
        Height = 23
        TabOrder = 2
      end
      object edtName: TEdit
        Left = 93
        Top = 46
        Width = 121
        Height = 23
        TabOrder = 3
      end
      object DbdDate: TDateTimePicker
        Left = 93
        Top = 73
        Width = 132
        Height = 21
        CalAlignment = dtaLeft
        Date = 38560.4908615394
        Time = 38560.4908615394
        DateFormat = dfLong
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 4
      end
    end
  end
  object ADOQuery1: TADOQuery
    Connection = DmMain.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from studentFee')
    Left = 432
    Top = 184
    object ADOQuery1StudentCode: TWideStringField
      DisplayLabel = #29992#25143#21495
      FieldName = 'StudentCode'
      Size = 10
    end
    object ADOQuery1StudentName: TWideStringField
      DisplayLabel = #22995#21517
      FieldName = 'StudentName'
      Size = 10
    end
    object ADOQuery1AllMoney: TFloatField
      DisplayLabel = #21457#29983#39069
      FieldName = 'AllMoney'
    end
    object ADOQuery1OccurDate: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'OccurDate'
      DisplayFormat = 'yyyy.mm.dd'
      EditMask = '!0000/00/00;1;_'
    end
    object ADOQuery1ChargeMan: TWideStringField
      DisplayLabel = #32463#25163#20154
      FieldName = 'ChargeMan'
      Size = 10
    end
    object ADOQuery1MoneyClass: TWideStringField
      DisplayLabel = #31181#31867
      FieldName = 'MoneyClass'
      Size = 4
    end
    object ADOQuery1ID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 472
    Top = 184
  end
  object ADOQuery2: TADOQuery
    Connection = DmMain.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select a.StudentCode,a.studentName,b.ClassCaption from '
      'student a,Monitor b where a.ClassCode=b.ClassCode')
    Left = 168
    Top = 104
    object ADOQuery2StudentCode: TWideStringField
      DisplayLabel = #23398#21495
      FieldName = 'StudentCode'
      Size = 12
    end
    object ADOQuery2studentName: TWideStringField
      DisplayLabel = #22995#21517
      FieldName = 'studentName'
      Size = 10
    end
    object ADOQuery2ClassCaption: TWideStringField
      DisplayLabel = #29677#32423
      FieldName = 'ClassCaption'
      Size = 50
    end
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 232
    Top = 104
  end
end