mc_zhckxx.~dfm

1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库

object ZHCKXX: TZHCKXX
  Left = 361
  Top = 256
  Width = 479
  Height = 327
  Caption = '住户存款信息:'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Bevel1: TBevel
    Left = 8
    Top = 264
    Width = 457
    Height = 9
    Shape = bsTopLine
  end
  object GroupBox1: TGroupBox
    Left = 6
    Top = 6
    Width = 459
    Height = 51
    Caption = '住户信息：'
    TabOrder = 0
    object Label1: TLabel
      Left = 12
      Top = 23
      Width = 54
      Height = 12
      Caption = '业主代号:'
    end
    object Label2: TLabel
      Left = 232
      Top = 23
      Width = 54
      Height = 12
      Caption = '业主姓名:'
    end
    object DBText1: TDBText
      Left = 72
      Top = 23
      Width = 65
      Height = 17
      DataField = '业主代号'
      DataSource = YZXXDJ.DataSource4
    end
    object DBText2: TDBText
      Left = 288
      Top = 23
      Width = 65
      Height = 17
      DataField = '业主姓名'
      DataSource = YZXXDJ.DataSource4
    end
  end
  object DBGrid1: TDBGrid
    Left = 6
    Top = 69
    Width = 225
    Height = 188
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnKeyDown = DBGrid1KeyDown
    OnKeyPress = DBGrid1KeyPress
    Columns = <
      item
        Expanded = False
        FieldName = '费用科目'
        ReadOnly = True
        Visible = True
      end
      item
        Expanded = False
        FieldName = '剩余金额'
        Visible = True
      end>
  end
  object DBGrid2: TDBGrid
    Left = 238
    Top = 69
    Width = 227
    Height = 188
    DataSource = DataSource2
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnKeyDown = DBGrid2KeyDown
    OnKeyPress = DBGrid2KeyPress
    Columns = <
      item
        Expanded = False
        FieldName = '费用科目'
        ReadOnly = True
        Visible = True
      end
      item
        Expanded = False
        FieldName = '剩余金额'
        Visible = True
      end>
  end
  object BitBtn1: TBitBtn
    Left = 8
    Top = 272
    Width = 105
    Height = 25
    Caption = '保存退出[&S]'
    TabOrder = 3
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 116
    Top = 272
    Width = 97
    Height = 25
    Caption = '放弃退出[&Q]'
    TabOrder = 4
    OnClick = BitBtn2Click
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'WYGL'
    RequestLive = True
    SQL.Strings = (
      'Select * From 其它费用表')
    Left = 40
    Top = 184
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 72
    Top = 184
  end
  object Query2: TQuery
    Active = True
    DatabaseName = 'WYGL'
    RequestLive = True
    SQL.Strings = (
      'Select * From 常用费用')
    Left = 296
    Top = 176
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 344
    Top = 176
  end
end