tfgl.dfm

房屋出租信息管理系统,房屋出租信息的录入、查询、删除以及用户管理等功能

object TfglForm: TTfglForm
  Left = 222
  Top = 146
  BorderStyle = bsDialog
  Caption = #36864#25151#31649#29702
  ClientHeight = 320
  ClientWidth = 499
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 499
    Height = 97
    Align = alTop
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label2: TLabel
      Left = 175
      Top = 20
      Width = 70
      Height = 14
      Caption = #23458#25143#22995#21517#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 175
      Top = 59
      Width = 70
      Height = 14
      Caption = #25151'    '#21495#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 7
      Top = 61
      Width = 70
      Height = 14
      Caption = #25276'    '#37329#65306
    end
    object Label5: TLabel
      Left = 343
      Top = 19
      Width = 70
      Height = 14
      Caption = #36215#31199#26085#26399#65306
    end
    object Label7: TLabel
      Left = 341
      Top = 57
      Width = 70
      Height = 14
      Caption = #29366'    '#24577#65306
    end
    object Label1: TLabel
      Left = 8
      Top = 19
      Width = 70
      Height = 14
      Caption = #23458#25143#32534#21495#65306
    end
    object Ed_Fh: TEdit
      Left = 238
      Top = 56
      Width = 85
      Height = 22
      Enabled = False
      TabOrder = 0
      OnChange = Ed_FhChange
      OnKeyDown = Ed_FhKeyDown
      OnKeyPress = Ed_FhKeyPress
    end
    object Ed_Xm: TEdit
      Left = 238
      Top = 17
      Width = 85
      Height = 22
      Color = clAqua
      Enabled = False
      TabOrder = 1
    end
    object Ed_BeginDate: TEdit
      Left = 404
      Top = 15
      Width = 85
      Height = 22
      Color = clAqua
      Enabled = False
      TabOrder = 2
    end
    object Ed_Yj: TEdit
      Left = 71
      Top = 58
      Width = 85
      Height = 22
      Color = clAqua
      Enabled = False
      TabOrder = 3
    end
    object Com_status: TComboBox
      Left = 404
      Top = 54
      Width = 85
      Height = 22
      Style = csDropDownList
      Enabled = False
      ItemHeight = 14
      TabOrder = 4
      Items.Strings = (
        #24050#36864#25151
        #26410#36864#25151)
    end
    object Ed_bh: TEdit
      Left = 71
      Top = 16
      Width = 85
      Height = 22
      Color = clAqua
      Enabled = False
      TabOrder = 5
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 97
    Width = 499
    Height = 41
    Align = alTop
    TabOrder = 1
    object bitbtn_insert: TBitBtn
      Left = 26
      Top = 9
      Width = 76
      Height = 25
      Caption = #36864#25151
      TabOrder = 0
      OnClick = bitbtn_insertClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333FF33333333FF333993333333300033377F3333333777333993333333
        300033F77FFF3333377739999993333333333777777F3333333F399999933333
        33003777777333333377333993333333330033377F3333333377333993333333
        3333333773333333333F333333333333330033333333F33333773333333C3333
        330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
        993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
        333333333337733333FF3333333C333330003333333733333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object bitbtn_post: TBitBtn
      Left = 118
      Top = 9
      Width = 76
      Height = 25
      Caption = #20445#23384
      Enabled = False
      TabOrder = 1
      OnClick = bitbtn_postClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
        00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
        00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
        00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
        0003737FFFFFFFFF7F7330099999999900333777777777777733}
      NumGlyphs = 2
    end
    object bitbtn_cancel: TBitBtn
      Left = 300
      Top = 8
      Width = 76
      Height = 25
      Caption = #21462#28040
      Enabled = False
      TabOrder = 2
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
        3333333777333777FF3333993333339993333377FF3333377FF3399993333339
        993337777FF3333377F3393999333333993337F777FF333337FF993399933333
        399377F3777FF333377F993339993333399377F33777FF33377F993333999333
        399377F333777FF3377F993333399933399377F3333777FF377F993333339993
        399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
        99333773FF3333777733339993333339933333773FFFFFF77333333999999999
        3333333777333777333333333999993333333333377777333333}
      NumGlyphs = 2
    end
    object bitbtn_quit: TBitBtn
      Left = 391
      Top = 8
      Width = 76
      Height = 25
      Caption = #36864#20986
      TabOrder = 3
      OnClick = bitbtn_quitClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
        0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
        0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
        0333337F777FFFFF7F3333000000000003333377777777777333}
      NumGlyphs = 2
    end
    object BBtn_Print: TBitBtn
      Left = 208
      Top = 8
      Width = 75
      Height = 25
      Caption = '&P'#25171#21360
      Enabled = False
      TabOrder = 4
      OnClick = BBtn_PrintClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 138
    Width = 499
    Height = 182
    Align = alClient
    TabOrder = 2
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 497
      Height = 180
      Align = alClient
      Color = clInfoBk
      DataSource = DS_Tfgl
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      Columns = <
        item
          Expanded = False
          FieldName = 'manid'
          Title.Alignment = taCenter
          Title.Caption = #29992#25143#32534#21495
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'manname'
          Title.Caption = #23458#25143#22995#21517
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fangno'
          Title.Alignment = taCenter
          Title.Caption = #25151#21495
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'begindate'
          Title.Alignment = taCenter
          Title.Caption = #36215#31199#26085#26399
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Tfdate'
          Title.Alignment = taCenter
          Title.Caption = #36864#25151#26085#26399
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Tfj'
          Title.Alignment = taCenter
          Title.Caption = #36864#25151#25276#37329
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'status'
          Title.Alignment = taCenter
          Title.Caption = #29366#24577
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -14
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Visible = True
        end>
    end
  end
  object ADOQry_insert: TADOQuery
    Connection = DB_module.ADOCon
    Parameters = <
      item
        Name = 'manid'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 8
        Value = Null
      end
      item
        Name = 'fangno'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 8
        Value = Null
      end
      item
        Name = 'begindate'
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'tfdate'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'tfj'
        Attributes = [paSigned, paNullable]
        DataType = ftBCD
        NumericScale = 2
        Precision = 11
        Size = 19
        Value = Null
      end
      item
        Name = 'status'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end>
    SQL.Strings = (
      'insert into zf_tf(manid,fangno,begindate,tfdate,tfj,status)'
      '       values(:manid,:fangno,:begindate,:tfdate,:tfj,:status)')
    Left = 25
    Top = 64
  end
  object ADQ_Tfgl: TADOQuery
    Connection = DB_module.ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT A.id,A.manid, B.manname, A.fangno, A.begindate,A.Tfdate, ' +
        'A.Tfj,      '
      'case A.status when '#39'0'#39' then '#39#24050#36864#25151#39' else '#39#26410#36864#25151#39' end as status'
      
        'FROM dbo.Zf_tf A INNER JOIN dbo.Zf_Man B ON A.manid = B.manid wh' +
        'ere status=0'
      '')
    Left = 232
    Top = 256
  end
  object DS_Tfgl: TDataSource
    DataSet = ADQ_Tfgl
    Left = 200
    Top = 256
  end
  object ADQ_Fh: TADOQuery
    Connection = DB_module.ADOCon
    CursorType = ctStatic
    Parameters = <>
    Left = 328
    Top = 56
  end
  object ADOQry_Del: TADOQuery
    Connection = DB_module.ADOCon
    Parameters = <>
    Left = 56
    Top = 64
  end
end