用于开发税务票据管理的软件
源代码在线查看： unit15.dfm
object Form15: TForm15
Left = 209
Top = 168
Width = 499
Height = 260
Caption = #36864#36135
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 16
Top = 24
Width = 137
Height = 13
AutoSize = False
Caption = #35831#36755#20837#35201#36864#36135#30340#20018#21495
end
object Edit1: TEdit
Left = 184
Top = 16
Width = 121
Height = 21
TabOrder = 0
end
object Button1: TButton
Left = 336
Top = 16
Width = 75
Height = 25
Caption = #26597#30475
TabOrder = 1
OnClick = Button1Click
end
object DBGrid1: TDBGrid
Left = 8
Top = 56
Width = 457
Height = 81
DataSource = DataSource1
ReadOnly = True
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = #22411#21495
Width = 34
Visible = True
end
item
Expanded = False
FieldName = #20018#21495
Width = 33
Visible = True
end
item
Expanded = False
FieldName = #20379#36135#26041
Width = 40
Visible = True
end
item
Expanded = False
FieldName = #36827#36135#26102#38388
Width = 57
Visible = True
end
item
Expanded = False
FieldName = #36827#20215'1'
Width = 38
Visible = True
end
item
Expanded = False
FieldName = #36827#20215'2'
Width = 39
Visible = True
end
item
Expanded = False
FieldName = #20080#20027
Width = 38
Visible = True
end
item
Expanded = False
FieldName = #38144#21806#26102#38388
Width = 49
Visible = True
end
item
Expanded = False
FieldName = #38144#21806#20215
Width = 37
Visible = True
end
item
Expanded = False
FieldName = #21033#28070
Width = 45
Visible = True
end>
end
object Button2: TButton
Left = 216
Top = 160
Width = 75
Height = 25
Caption = #30830#23450#36864#36135
TabOrder = 3
OnClick = Button2Click
end
object DataSource1: TDataSource
DataSet = db3
Left = 112
Top = 144
end
object db3: TADOQuery
Connection = dbs.ADOConnection1
CursorType = ctStatic
Parameters =
SQL.Strings = (
'select * from '#38144#21806#24773#20917)
Left = 80
Top = 144
end
object db2: TADOQuery
Connection = dbs.ADOConnection1
CursorType = ctStatic
Parameters =
SQL.Strings = (
'select * from '#24211#23384#35814#21333)
Left = 144
Top = 144
end
object XPMenu1: TXPMenu
DimLevel = 30
GrayLevel = 10
Font.Charset = GB2312_CHARSET
Font.Color = clMenuText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Color = clBtnFace
DrawMenuBar = False
IconBackColor = clBtnFace
MenuBarColor = clBtnFace
SelectColor = clHighlight
SelectBorderColor = clHighlight
SelectFontColor = clMenuText
DisabledColor = clInactiveCaption
SeparatorColor = clBtnFace
CheckedColor = clHighlight
IconWidth = 24
DrawSelect = True
UseSystemColors = True
UseDimColor = False
OverrideOwnerDraw = False
Gradient = False
FlatMenu = False
AutoDetect = False
Active = True
Left = 192
Top = 72
end
end
