zhixingjf.dfm

一个简单的学生费用管理系统

object Form3: TForm3
  Left = 198
  Top = 104
  BorderStyle = bsSingle
  Caption = #20132#36153
  ClientHeight = 366
  ClientWidth = 461
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000011
    1110011100000011111111111000000111000000003330011001100000000000
    0000000300030000000000000000000000000000333000000000000000000000
    0000000333330000000000000000000000000003000300000000000000000000
    0000000033300000000000000000000000000003333300000000000000000000
    0000000300030000000000000000000000000000333000000000000000000000
    0000000333300000000000000000000000000000300000000000000000000000
    0000000003300000000000000000000000A00000333000000000000000000000
    00A00000300000000A000000000000000AA00000033000000A00000000000000
    0AAA0000330000000A000000000000000AAA000030330000AAA0000000000000
    0AAA000003330000AAA00000000000000AAAA00003300000AA00000000000000
    00AAA0000303000AAA000000A000000000AAAAA0003300AAA000000AAA000000
    000AAAAAA0000AAA0000000AAA0000000000AAAAAAA0AA00000000AAA00000A0
    0000000000AA00AAA0000AAAA00000AAA0000AAAA0AA000AAAAAAAAA0000000A
    AAA0AAA000AA00000AAAAAA000000000AAAAAA0000AAA000000AA00000000000
    00AAA00000AAA000000000000000000000AA000000AAAA000000000000000000
    00000000000AAAA0000000000000000000000000000000000000000000000000
    000080000003E380063FFFC07FFFFFC07FFFFFC07FFFFFC07FFFFFC07FFFFFC0
    7FFFFFC0FFFFFFC0FFFFFDE0F9FFFCE0F9FFF8E0F9FFF8E0F1FFF060F1FFF060
    60FFF06060F3F03060F3F01040E3F80001C1F80001C1BC0003819C0003818200
    0003800040038000600FC008300FE0181C3FF8381FFFFCF80FFFFFFC0FFF}
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label2: TLabel
    Left = 306
    Top = 12
    Width = 66
    Height = 12
    Caption = ' '#20132#36153#24180#20221#65306
    Transparent = True
  end
  object Button1: TButton
    Left = 84
    Top = 330
    Width = 101
    Height = 25
    Caption = #25191#34892#24182#25171#21360#25910#25454
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button3: TButton
    Left = 284
    Top = 330
    Width = 85
    Height = 25
    Caption = #20851#38381
    TabOrder = 1
    OnClick = Button3Click
  end
  object ComboBox1: TComboBox
    Left = 376
    Top = 8
    Width = 65
    Height = 20
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ItemHeight = 12
    TabOrder = 2
    OnChange = ComboBox1Change
  end
  object CheckBox1: TCheckBox
    Left = 14
    Top = 10
    Width = 107
    Height = 17
    Caption = #26159#21542#37096#20998#20132#36153'   '
    TabOrder = 3
    OnClick = CheckBox1Click
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 262
    Width = 449
    Height = 57
    Caption = #26174#31034#36153#29992#24773#20917
    TabOrder = 4
    object Label3: TLabel
      Left = 13
      Top = 24
      Width = 60
      Height = 12
      Caption = #24212#20132#37329#39069#65306
      Transparent = True
    end
    object Label4: TLabel
      Left = 167
      Top = 24
      Width = 60
      Height = 12
      Caption = #27424#36153#37329#39069#65306
      Transparent = True
    end
    object Label1: TLabel
      Left = 305
      Top = 24
      Width = 66
      Height = 12
      Caption = ' '#23454#20132#37329#39069#65306
      Transparent = True
    end
    object DBEdit1: TDBEdit
      Left = 374
      Top = 21
      Width = 66
      Height = 20
      DataField = 'sj'
      DataSource = sum_DS
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 79
      Top = 21
      Width = 66
      Height = 20
      DataField = 'yj'
      DataSource = sum_DS
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 1
    end
    object Edit1: TEdit
      Left = 230
      Top = 21
      Width = 67
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 2
    end
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 30
    Width = 445
    Height = 227
    DataSource = lsb_DS
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ImeName = #26368#24378#20116#31508#36755#20837#27861
    Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnKeyDown = DBGrid1KeyDown
    Columns = <
      item
        Expanded = False
        FieldName = 'fym'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #36153#29992#39033#30446#21517#31216
        Width = 85
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'nf'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #24180#20221
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yj'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #26412#27425#24212#20132
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'qj'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #26412#27425#27424#36153
        Width = 80
        Visible = True
      end
      item
        Color = clSkyBlue
        Expanded = False
        FieldName = 'sj'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #26412#27425#23454#20132
        Width = 80
        Visible = True
      end>
  end
  object lsb_DS: TDataSource
    DataSet = lsb_T
    Left = 36
    Top = 81
  end
  object lsfyb_DS: TDataSource
    DataSet = djb_T
    Left = 36
    Top = 121
  end
  object fyb_DS: TDataSource
    DataSet = fyb_Q
    Left = 40
    Top = 184
  end
  object fyb_Q: TADOQuery
    Connection = DataModule1.ADOConnection1
    Parameters = <>
    Left = 8
    Top = 184
  end
  object lsb_T: TADOTable
    Connection = DataModule1.ADOConnection1
    CursorType = ctStatic
    AfterScroll = lsb_TAfterScroll
    TableName = 'ls_b'
    Left = 8
    Top = 80
  end
  object djb_T: TADOTable
    Connection = DataModule1.ADOConnection1
    TableName = 'dj_b'
    Left = 8
    Top = 120
  end
  object sum_Q: TADOQuery
    Connection = DataModule1.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select sum(sj) as sj,sum(yj) as yj,sum(qj) as qj from ls_b')
    Left = 8
    Top = 224
  end
  object sum_DS: TDataSource
    DataSet = sum_Q
    Left = 40
    Top = 224
  end
  object djmxb_T: TADOTable
    Connection = DataModule1.ADOConnection1
    TableName = 'djmx_b'
    Left = 8
    Top = 152
  end
  object DataSource1: TDataSource
    DataSet = djmxb_T
    Left = 32
    Top = 152
  end
end