unit5.dfm

这是个才财务管理系统！可能是哪个语言！但是我不认识！

object frm_setup: Tfrm_setup
  Left = 259
  Top = 175
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = '安装信息管理'
  ClientHeight = 345
  ClientWidth = 628
  Color = clGreen
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020000000000000A80800001600000028000000200000004000
    0000010008000000000080040000000000000000000000010000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C000C0DC
    C000F0CAA600CCFFFF0099FFFF0066FFFF0033FFFF00FFCCFF00CCCCFF0099CC
    FF0066CCFF0033CCFF0000CCFF00FF99FF00CC99FF009999FF006699FF003399
    FF000099FF00FF66FF00CC66FF009966FF006666FF003366FF000066FF00FF33
    FF00CC33FF009933FF006633FF003333FF000033FF00CC00FF009900FF006600
    FF003300FF00FFFFCC00CCFFCC0099FFCC0066FFCC0066FFCC0033FFCC0000FF
    CC00FFCCCC00CCCCCC0099CCCC0066CCCC0033CCCC0000CCCC00FF99CC00CC99
    CC009999CC006699CC003399CC000099CC00FF66CC00CC66CC009966CC006666
    CC003366CC000066CC00FF33CC00CC33CC009933CC006633CC003333CC000033
    CC00FF00CC00CC00CC009900CC006600CC003300CC000000CC00FFFF9900CCFF
    990099FF990066FF990033FF990000FF9900FFCC9900CCCC990099CC990066CC
    990033CC990000CC9900FF999900CC9999009999990066999900339999000099
    9900FF669900CC66990099669900666699003366990000669900FF339900CC33
    990099339900663399003333990000339900FF009900CC009900990099006600
    99003300990000009900FFFF6600CCFF660099FF660066FF660033FF660000FF
    6600FFCC6600CCCC660099CC660066CC660033CC660000CC6600FF996600CC99
    660099996600669966003399660000996600FF666600CC666600996666006666
    66003366660000666600FF336600CC3366009933660066336600333366000033
    6600FF006600CC00660099006600660066003300660000006600FFFF3300CCFF
    330099FF330066FF330033FF330000FF3300FFCC3300CCCC330099CC330066CC
    330033CC330000CC3300FF993300CC9933009999330066993300339933000099
    3300FF663300CC66330099663300666633003366330000663300FF333300CC33
    330099333300663333003333330000333300FF003300CC003300990033006600
    33003300330000003300CCFF000099FF000066FF000033FF0000FFCC0000CCCC
    000099CC000066CC000033CC000000CC0000FF990000CC990000999900006699
    00003399000000990000FF660000CC6600009966000066660000006600003366
    0000FF330000CC33000099330000663300003333000000330000CC0000009900
    000066000000330000000000DD000000BB000000AA0000008800000077000000
    5500000044000000220000DD000000BB000000AA000000880000007700000055
    00000044000000220000DDDDDD00555555007777770077777700444444002222
    22001111110077000000550000004400000022000000F0FBFF00A4A0A0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    00000000000000000000000000000000000000000000000000000000000000F9
    F9F9DCF9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9EDF9F9F90000F9
    F9F9DCF9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9EDF9F9F90000F9
    F9F9DCF9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9EDF9F9F90000F9
    F9F9DCF9F9F9F9F9F9F9F9F9F9F9F9F9F9F925252525F9F9F9EDF9F9F90000F9
    F9F9DCF9F9F9F9F9F9F9F9F9F925252525252525252525F9F9EDF9F9F9000013
    F9F9DCF925252525F9F9F9F9252525252525252525252525F9EDF9F9F90000EC
    1325DC25252525252525252525252525252513131325252525EDF9F9F90000EC
    EC25F925252525252525252525252525251313131313252525EDF9F9250000EC
    EC13F925251313131313252525252525251313ECECEC132525ED2525250000EC
    EC13F9251313131313131325251325252513ECECECECEC1325ED2525130000EC
    132519251313ECECEC131325251313252513ECECECECEC1325ED2513EC000013
    132519252513ECECECEC1325131313252513ECECECEC132525ED2513EC000013
    25131319F919F0F0F0F01919191919F9F919F0F0F0F019191925251313000013
    131313132513ECECEC131313131313252513ECECEC1313132525251313000013
    1313ECEC131313ECEC131313ECEC1313251313ECEC13132525252513130000EC
    1313ECECEC1313ECEC1313ECECECEC13132513ECEC13132525251313EC0000EC
    EC13ECECECEC13ECEC1313ECECECECEC13131313EC13131325131313EC0000EC
    ECEC13ECECEC13ECECEC13ECECECECEC13131313ECEC131325131313EC0000EC
    ECECECECECEC13ECECECEC13ECECECEC13131313ECEC131325251313130000EC
    ECECF0EDEDEDFBEDEDEDEDEDEDEDEDEDFBFBFBFBEDEDED1313251313130000EC
    ECECF0ECEC13000000000000000000000000000000ECED1313131313130000EC
    ECECF0ECEC00EBF7EB2AEB2AF7F7EB2A2A2A2AF72A00ED1313131313130000EC
    ECECF0ECEC00F7EBF7EBEBEBEBF7F70000002A2AF700ED131313EC13130000EC
    ECECF0ECEC00F7F7EBF7EB2AEB2A00EC1313002A2A00ED1313ECECEC130000EC
    ECECF0ECEC00F7F7F7EBF7EBEBEB00EC13EC002A2A00ED1313ECECEC130000EC
    ECECF0ECEC002AF7F7F7EBF7EB2A0013ECEC002A2A00EDEC13ECECEC130000EC
    ECECF0ECEC002A2AF7F7F7EBF7EB00ECECEC00F72A00EDECEC13EC13EC0000EC
    ECECF0ECEC002A2A2AF7F7F7EBF700ECECEC00EBF700EDECECECEC13EC0000EC
    ECECF0ECEC002A2A2A2AF7F7F7EBF7000000EBF72A00EDECECEC13EC000000EC
    ECECF0ECEC002A2A2A2A2AF7F7F7EBF7EBEB2AEBF700EDECEC13EC0000000000
    0000000000000000000000000000000000000000000000000000000000008000
    0001000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000010000000380000007}
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 464
    Top = 16
    Width = 81
    Height = 16
    AutoSize = False
    Caption = '现在日期：'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label3: TLabel
    Left = 32
    Top = 296
    Width = 73
    Height = 16
    AutoSize = False
    Caption = '记录数：'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object lbl_date: TLabel
    Left = 544
    Top = 16
    Width = 48
    Height = 16
    Caption = 'lbl_date'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object lbl_rec: TLabel
    Left = 112
    Top = 296
    Width = 40
    Height = 16
    Caption = 'lbl_rec'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label26: TLabel
    Left = 162
    Top = 9
    Width = 222
    Height = 35
    Caption = '安装信息管理'
    Font.Charset = GB2312_CHARSET
    Font.Color = clPurple
    Font.Height = -35
    Font.Name = '楷体_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object DBGrid1: TDBGrid
    Left = 24
    Top = 48
    Width = 585
    Height = 113
    Color = clInfoBk
    DataSource = DataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
    OnDrawColumnCell = DBGrid1DrawColumnCell
    OnKeyPress = DBGrid1KeyPress
    Columns = <
      item
        Expanded = False
        FieldName = '序号'
        Width = 30
        Visible = True
      end
      item
        Expanded = False
        FieldName = '空调名称'
        Width = 61
        Visible = True
      end
      item
        Expanded = False
        FieldName = '规格型号'
        Width = 147
        Visible = True
      end
      item
        Expanded = False
        FieldName = '用户姓名'
        Width = 57
        Visible = True
      end
      item
        Expanded = False
        FieldName = '用户地址'
        Width = 74
        Visible = True
      end
      item
        Expanded = False
        FieldName = '联系电话'
        Width = 95
        Visible = True
      end
      item
        Expanded = False
        FieldName = '购买日期'
        Width = 83
        Visible = True
      end>
  end
  object DBGrid2: TDBGrid
    Left = 24
    Top = 168
    Width = 585
    Height = 113
    Color = clInfoBk
    DataSource = DataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGrid2CellClick
    OnKeyPress = DBGrid2KeyPress
    Columns = <
      item
        Expanded = False
        FieldName = '购买商店'
        Width = 62
        Visible = True
      end
      item
        Expanded = False
        FieldName = '安装日期'
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = '主安装人'
        Width = 59
        Visible = True
      end
      item
        Expanded = False
        FieldName = '安装费'
        Width = 42
        Visible = True
      end
      item
        Expanded = False
        FieldName = '交通费'
        Width = 41
        Visible = True
      end
      item
        Expanded = False
        FieldName = '差旅费'
        Width = 40
        Visible = True
      end
      item
        Expanded = False
        FieldName = '材料费'
        Width = 43
        Visible = True
      end
      item
        Expanded = False
        FieldName = '是否结算'
        Width = 49
        Visible = True
      end
      item
        Expanded = False
        FieldName = '备注'
        Width = 137
        Visible = True
      end>
  end
  object btn_add: TButton
    Left = 360
    Top = 304
    Width = 57
    Height = 25
    Caption = '增加'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = btn_addClick
  end
  object btn_del: TButton
    Left = 424
    Top = 304
    Width = 57
    Height = 25
    Caption = '删除'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = btn_delClick
  end
  object Button4: TButton
    Left = 552
    Top = 304
    Width = 57
    Height = 25
    Caption = '返回'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = Button4Click
  end
  object btn_seek: TBitBtn
    Left = 488
    Top = 304
    Width = 57
    Height = 25
    Caption = '查询'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = btn_seekClick
  end
  object DataSource1: TDataSource
    DataSet = Table1
    OnDataChange = DataSource1DataChange
    Left = 8
    Top = 24
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 40
    Top = 24
  end
  object Table1: TTable
    Active = True
    TableName = '安装记录表.DB'
    Left = 8
  end
  object Table2: TTable
    Active = True
    TableName = '人员信息表.db'
    Left = 40
  end
  object Table3: TTable
    Active = True
    TableName = '空调名称及型号表.db'
    Left = 72
  end
  object DataSource3: TDataSource
    DataSet = Table3
    Left = 72
    Top = 24
  end
  object DataSource4: TDataSource
    DataSet = Query1
    Left = 104
    Top = 23
  end
  object Query1: TQuery
    Left = 104
    Top = 65532
  end
end