这个文件是用什么语言编写的

yin2099 2011-01-13 02:55:46

object Form5: TFormDesigned
Left = -4
Top = -4
Width = 1032
Height = 748
Caption = '雪域之鹰ERP'
Color = 16427939
Constraints.MinHeight = 600
Constraints.MinWidth = 800
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
KeyPreview = True
Menu = YQMainMenu0
OldCreateOrder = False
ShowHint = True
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
OnKeyDown = FormKeyDown
OnPaint = FormPaint
OnResize = FormResize
OnShow = FormShow
TrayIconVisible = False
StayOnToped = False
DrawStyle = bdsNone
IsModal = True
AlphaBlend = False
AlphaBlendValue = 200
TransparentColor = False
TransparentColorValue = clWhite
ControlName = '主窗体'
BoxLinkItems = <>
ExpItems = <>
ExpSortedItems = <>
WinControlExps.Strings = (

'状态栏0.标题:=数据源1.公司全称+'#39' 数据帐套:'#39'+取项目文件信息(4' +
') +'#39' 登陆时间:'#39' +取日期时间() +'#39' 星期'#39' +数字转中文(取星期' +
'号()-1,0,'#39'日'#39')+'#39' 农历:'#39' +日期转农历(取日期时间())+'#39' 用户:' +
#39'+数据源2.部门+ '#39'__'#39'+数据源2.姓名;'
'按钮6.可视:=数据源3.MA1=1;')
PromptOnClose = True
BevelInner = False
PositionRun = poScreenCenter
WindowStateRun = wsMaximized
ExpManualSort = False
FieldList = Owner
ConstraintMinWidth = 800
ConstraintMaxWidth = 0
ConstraintMinHeight = 600
ConstraintMaxHeight = 0
PixelsPerInch = 96
TextHeight = 12
object YPanel0: TYPanel
Left = 630
Top = 340
Width = 330
Height = 250
BevelOuter = bvNone
ParentShowHint = False
ShowHint = True
TabOrder = 0
TabStop = True
Transparent = True
FrameLine = True
FrameColor = clGray
ControlName = '面板0'
DataSource = YPanel0
object YQLabelEx0: TYQLabelEx
Left = 162
Top = 5
Width = 44
Height = 18
GradColor = 16750230
GradEffect = False
GradKind = gdLeft
InnerColor = clWindow
OuterColor = clWindow
Text3D = True
Alignment = taCenter
Caption = '文件名:'
Color = clBtnFace
ParentColor = False
BlendType = lt100
DataSource = YQLabelEx0
DisplayMask = '%s'
ControlName = '标签0'
FrameLine = False
FrameColor = clGray
end
object YQDriveComboBoxEx0: TYQDriveComboBoxEx
Left = 10
Top = 0
Width = 140
Height = 18
DirList = YQDirectoryListBoxEx0
ParentShowHint = False
ShowHint = True
TabOrder = 0
TextCase = tcUpperCase
Ctl3DEx = True
ControlName = '驱动器选择0'
BorderStyle = bsNone
Text = 'D: []'
Drive = 'D'
end
object YQDirectoryListBoxEx0: TYQDirectoryListBoxEx
Left = 0
Top = 30
Width = 150
Height = 220
FileList = YQFileListBoxEx0
ItemHeight = 16
ParentShowHint = False
ShowHint = True
TabOrder = 1
ControlName = '文件夹列表框0'
Drive = 'D'
Directory = 'D:\'
HasPopMenu = True
end
object YQEditEx0: TYQEditEx
Left = 208
Top = 6
Width = 112
Height = 20
Ctl3D = True
ParentCtl3D = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
Text = '*.xls'
AllowedOperations = []
HasPopMenu = True
ControlName = '文件名编辑框0'
CaptionDataSource = YQEditEx0
end
object YQFileListBoxEx0: TYQFileListBoxEx
Left = 160
Top = 30
Width = 160
Height = 220
FileEdit = YQEditEx0
ItemHeight = 16
Mask = '*.xls'
ParentShowHint = False
ShowGlyphs = True
ShowHint = True
TabOrder = 2
ControlName = '文件列表框0'
Directory = 'D:\'
HasPopMenu = True
end
end
object YQStatusBarEx0: TYQStatusBarEx
Left = 0
Top = 683
Width = 1024
Height = 19
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Panels = <>
ParentShowHint = False
ShowHint = True
SimplePanel = True
Visible = True
ControlName = '状态栏0'
end
object YQDock0: TYQDock
Left = 0
Top = 0
Width = 1024
Height = 29
ControlName = '工具盒容器0'
object YQToolbar0: TYQToolbar
Left = 4
Top = 0
Caption = 'Windos tools'
DockPos = 4
TabOrder = 0
ControlName = '工具盒0'
DataSource = YQToolbar0
object YQButtonEx0: TYQButtonEx
Left = 0
Top = 0
Width = 50
Height = 25
AllowAllUp = True
Caption = '层叠'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
FrameLine = True
FrameColor = clGray
Ctl3DEx = False
DataSource = YQButtonEx0
ControlName = '按钮0'
ModalResult = 0
ButtonGlyphType = bgt0
end
object YQButtonEx1: TYQButtonEx
Left = 50
Top = 0
Width = 50
Height = 25
AllowAllUp = True
Caption = '平铺'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
FrameLine = True
FrameColor = clGray
Ctl3DEx = False
DataSource = YQButtonEx1
ControlName = '按钮1'
ModalResult = 0
ButtonGlyphType = bgt0
end

...全文