454 lines
12 KiB
Plaintext
454 lines
12 KiB
Plaintext
object Form1: TForm1
|
|
Left = 261
|
|
Top = 220
|
|
Width = 870
|
|
Height = 640
|
|
Caption = 'Form1'
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -12
|
|
Font.Name = 'MiNGLIU'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
OnClose = FormClose
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 12
|
|
object Splitter2: TSplitter
|
|
Left = 0
|
|
Top = 306
|
|
Width = 862
|
|
Height = 5
|
|
Cursor = crVSplit
|
|
Align = alTop
|
|
end
|
|
object Memo1: TMemo
|
|
Left = 0
|
|
Top = 352
|
|
Width = 862
|
|
Height = 256
|
|
Align = alClient
|
|
TabOrder = 0
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 862
|
|
Height = 306
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
object Splitter1: TSplitter
|
|
Left = 201
|
|
Top = 0
|
|
Width = 5
|
|
Height = 306
|
|
end
|
|
object DBGrid2: WDBGRID
|
|
Left = 0
|
|
Top = 0
|
|
Width = 201
|
|
Height = 306
|
|
Align = alLeft
|
|
DataSource = DataSource1
|
|
TabOrder = 0
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -12
|
|
TitleFont.Name = 'MiNGLIU'
|
|
TitleFont.Style = []
|
|
IsTwoColor = True
|
|
TwoColor = 12648447
|
|
TwoFontColor = clWindowText
|
|
AllowAppend = True
|
|
AllowDelete = True
|
|
IsVerScrollBar = True
|
|
MenuShow = [msWDGM, msExcel, msDBF, msDB, msTXT, msMDB]
|
|
end
|
|
object DBGrid1: WDBGRID
|
|
Left = 206
|
|
Top = 0
|
|
Width = 656
|
|
Height = 306
|
|
Align = alClient
|
|
DataSource = DataSource2
|
|
TabOrder = 1
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -12
|
|
TitleFont.Name = 'MiNGLIU'
|
|
TitleFont.Style = []
|
|
IsTwoColor = True
|
|
TwoColor = 12648447
|
|
TwoFontColor = clWindowText
|
|
AllowAppend = True
|
|
AllowDelete = True
|
|
IsVerScrollBar = True
|
|
MenuShow = [msWDGM, msExcel, msDBF, msDB, msTXT, msMDB]
|
|
Columns = <
|
|
item
|
|
Expanded = False
|
|
FieldName = #34920#26684#21517#31281
|
|
Width = -1
|
|
Visible = False
|
|
ValueChecked = 'T'
|
|
ValueUnchecked = 'F'
|
|
EditType = etEdit
|
|
TwoColor = 12648447
|
|
TwoFontColor = clWindowText
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = #38917#27425
|
|
Width = 28
|
|
Visible = True
|
|
ValueChecked = 'T'
|
|
ValueUnchecked = 'F'
|
|
EditType = etEdit
|
|
TwoColor = 12648447
|
|
TwoFontColor = clWindowText
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = #27396#20301#21517#31281
|
|
Width = 60
|
|
Visible = True
|
|
ValueChecked = 'T'
|
|
ValueUnchecked = 'F'
|
|
EditType = etEdit
|
|
TwoColor = 12648447
|
|
TwoFontColor = clWindowText
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = #22411#24907
|
|
PickList.Strings = (
|
|
'CHAR'
|
|
'NCHAR'
|
|
'TEXT'
|
|
'NTEXT'
|
|
'VARCHAR'
|
|
'NVARCHAR'
|
|
'INT'
|
|
'DECIMAL'
|
|
'DATETIME'
|
|
'DOUBLE'
|
|
'IMAGE')
|
|
Width = 60
|
|
Visible = True
|
|
ValueChecked = 'T'
|
|
ValueUnchecked = 'F'
|
|
EditType = etEdit
|
|
TwoColor = 12648447
|
|
TwoFontColor = clWindowText
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = #38263#24230
|
|
Width = 28
|
|
Visible = True
|
|
ValueChecked = 'T'
|
|
ValueUnchecked = 'F'
|
|
EditType = etEdit
|
|
TwoColor = 12648447
|
|
TwoFontColor = clWindowText
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = #23567#25976
|
|
Width = 28
|
|
Visible = True
|
|
ValueChecked = 'T'
|
|
ValueUnchecked = 'F'
|
|
EditType = etEdit
|
|
TwoColor = 12648447
|
|
TwoFontColor = clWindowText
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'PK'
|
|
Width = 16
|
|
Visible = True
|
|
Check = True
|
|
ValueChecked = 'V'
|
|
ValueUnchecked = 'F'
|
|
EditType = etEdit
|
|
TwoColor = 12648447
|
|
TwoFontColor = clWindowText
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'FK'
|
|
Width = 16
|
|
Visible = True
|
|
Check = True
|
|
ValueChecked = 'V'
|
|
ValueUnchecked = 'F'
|
|
EditType = etEdit
|
|
TwoColor = 12648447
|
|
TwoFontColor = clWindowText
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = #20013#25991#21517#31281
|
|
Width = 120
|
|
Visible = True
|
|
ValueChecked = 'T'
|
|
ValueUnchecked = 'F'
|
|
EditType = etEdit
|
|
TwoColor = 12648447
|
|
TwoFontColor = clWindowText
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = #39023#31034#20803#20214
|
|
PickList.Strings = (
|
|
'Label'
|
|
'TextBox'
|
|
'CheckBox'
|
|
'ComboBox'
|
|
'Memo'
|
|
'Picture')
|
|
Width = 80
|
|
Visible = True
|
|
ValueChecked = 'T'
|
|
ValueUnchecked = 'F'
|
|
EditType = etEdit
|
|
TwoColor = 12648447
|
|
TwoFontColor = clWindowText
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = #32232#36655#20803#20214
|
|
PickList.Strings = (
|
|
'Label'
|
|
'TextBox'
|
|
'CheckBox'
|
|
'ComboBox'
|
|
'Memo'
|
|
'Picture')
|
|
Width = 80
|
|
Visible = True
|
|
ValueChecked = 'T'
|
|
ValueUnchecked = 'F'
|
|
EditType = etEdit
|
|
TwoColor = 12648447
|
|
TwoFontColor = clWindowText
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = #20633#35387
|
|
Width = 1500
|
|
Visible = True
|
|
ValueChecked = 'T'
|
|
ValueUnchecked = 'F'
|
|
EditType = etEdit
|
|
TwoColor = 12648447
|
|
TwoFontColor = clWindowText
|
|
end>
|
|
end
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 311
|
|
Width = 862
|
|
Height = 41
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 2
|
|
object Button1: TButton
|
|
Left = 8
|
|
Top = 8
|
|
Width = 105
|
|
Height = 25
|
|
Caption = #29986#29983' Create SQL'
|
|
TabOrder = 0
|
|
OnClick = Button1Click
|
|
end
|
|
object Button2: TButton
|
|
Left = 120
|
|
Top = 8
|
|
Width = 121
|
|
Height = 25
|
|
Caption = #29986#29983' ItemTemplate'
|
|
TabOrder = 1
|
|
end
|
|
object Button3: TButton
|
|
Left = 248
|
|
Top = 8
|
|
Width = 121
|
|
Height = 25
|
|
Caption = #29986#29983' InsertTemplate'
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
object ADOConnection1: TADOConnection
|
|
ConnectionString =
|
|
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=N:\VS.NET\Thinkyu\D' +
|
|
'elphi\'#36039#26009#34920'.mdb;Persist Security Info=False'
|
|
LoginPrompt = False
|
|
Mode = cmShareDenyNone
|
|
Provider = 'Microsoft.Jet.OLEDB.4.0'
|
|
Left = 168
|
|
Top = 408
|
|
end
|
|
object ADODataSet1: TADODataSet
|
|
Connection = ADOConnection1
|
|
CursorType = ctStatic
|
|
AfterScroll = ADODataSet1AfterScroll
|
|
CommandText = 'SELECT * FROM ['#36039#26009#34920'] ORDER BY ['#34920#26684#21517#31281']'
|
|
Parameters = <>
|
|
Left = 272
|
|
Top = 408
|
|
end
|
|
object DataSource1: TDataSource
|
|
DataSet = ADODataSet1
|
|
Left = 368
|
|
Top = 408
|
|
end
|
|
object ADODataSet2: TADODataSet
|
|
Connection = ADOConnection1
|
|
CursorType = ctStatic
|
|
CommandText = 'SELECT * FROM ['#27396#20301'] WHERE ['#34920#26684#21517#31281']=:'#34920#26684#21517#31281#13#10'ORDER BY ['#38917#27425']'
|
|
MasterFields = #34920#26684#21517#31281
|
|
Parameters = <
|
|
item
|
|
Name = #34920#26684#21517#31281
|
|
Attributes = [paNullable]
|
|
DataType = ftWideString
|
|
NumericScale = 255
|
|
Precision = 255
|
|
Size = 10
|
|
Value = 'BCUS'
|
|
end>
|
|
Left = 272
|
|
Top = 480
|
|
object ADODataSet2DSDesigner: TWideStringField
|
|
FieldName = #34920#26684#21517#31281
|
|
end
|
|
object ADODataSet2DSDesigner2: TSmallintField
|
|
FieldName = #38917#27425
|
|
end
|
|
object ADODataSet2DSDesigner3: TWideStringField
|
|
FieldName = #27396#20301#21517#31281
|
|
end
|
|
object ADODataSet2DSDesigner4: TWideStringField
|
|
FieldName = #22411#24907
|
|
Size = 10
|
|
end
|
|
object ADODataSet2DSDesigner5: TSmallintField
|
|
FieldName = #38263#24230
|
|
end
|
|
object ADODataSet2DSDesigner6: TSmallintField
|
|
FieldName = #23567#25976
|
|
end
|
|
object ADODataSet2PK: TWideStringField
|
|
FieldName = 'PK'
|
|
Size = 1
|
|
end
|
|
object ADODataSet2FK: TWideStringField
|
|
FieldName = 'FK'
|
|
Size = 1
|
|
end
|
|
object ADODataSet2DSDesigner7: TWideStringField
|
|
FieldName = #20013#25991#21517#31281
|
|
end
|
|
object ADODataSet2DSDesigner8: TWideStringField
|
|
FieldName = #39023#31034#20803#20214
|
|
end
|
|
object ADODataSet2DSDesigner9: TWideStringField
|
|
FieldName = #32232#36655#20803#20214
|
|
end
|
|
object ADODataSet2DSDesigner10: TWideStringField
|
|
FieldName = #20633#35387
|
|
Size = 255
|
|
end
|
|
object ADODataSet2MaxItem: TAggregateField
|
|
FieldName = 'MaxItem'
|
|
Active = True
|
|
Expression = 'MAX('#38917#27425')'
|
|
end
|
|
end
|
|
object DataSource2: TDataSource
|
|
DataSet = ADODataSet2
|
|
Left = 368
|
|
Top = 480
|
|
end
|
|
object DataSetProvider1: TDataSetProvider
|
|
DataSet = ADODataSet2
|
|
ResolveToDataSet = True
|
|
Options = [poAutoRefresh]
|
|
Left = 464
|
|
Top = 480
|
|
end
|
|
object ClientDataSet1: TClientDataSet
|
|
Aggregates = <>
|
|
AggregatesActive = True
|
|
FetchOnDemand = False
|
|
Params = <>
|
|
ProviderName = 'DataSetProvider1'
|
|
AfterInsert = ClientDataSet1AfterInsert
|
|
AfterPost = ClientDataSet1AfterPost
|
|
Left = 552
|
|
Top = 480
|
|
object ClientDataSet1CDSDesigner: TWideStringField
|
|
FieldName = #34920#26684#21517#31281
|
|
ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
|
|
end
|
|
object ClientDataSet1CDSDesigner2: TSmallintField
|
|
FieldName = #38917#27425
|
|
ProviderFlags = [pfInUpdate]
|
|
end
|
|
object ClientDataSet1CDSDesigner3: TWideStringField
|
|
FieldName = #27396#20301#21517#31281
|
|
ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
|
|
end
|
|
object ClientDataSet1CDSDesigner4: TWideStringField
|
|
FieldName = #22411#24907
|
|
ProviderFlags = [pfInUpdate]
|
|
Size = 10
|
|
end
|
|
object ClientDataSet1CDSDesigner5: TSmallintField
|
|
FieldName = #38263#24230
|
|
ProviderFlags = [pfInUpdate]
|
|
end
|
|
object ClientDataSet1CDSDesigner6: TSmallintField
|
|
FieldName = #23567#25976
|
|
ProviderFlags = [pfInUpdate]
|
|
end
|
|
object ClientDataSet1PK: TWideStringField
|
|
FieldName = 'PK'
|
|
ProviderFlags = [pfInUpdate]
|
|
Size = 1
|
|
end
|
|
object ClientDataSet1FK: TWideStringField
|
|
FieldName = 'FK'
|
|
ProviderFlags = [pfInUpdate]
|
|
Size = 1
|
|
end
|
|
object ClientDataSet1CDSDesigner7: TWideStringField
|
|
FieldName = #20013#25991#21517#31281
|
|
ProviderFlags = [pfInUpdate]
|
|
end
|
|
object ClientDataSet1CDSDesigner8: TWideStringField
|
|
FieldName = #39023#31034#20803#20214
|
|
ProviderFlags = [pfInUpdate]
|
|
end
|
|
object ClientDataSet1CDSDesigner9: TWideStringField
|
|
FieldName = #32232#36655#20803#20214
|
|
ProviderFlags = [pfInUpdate]
|
|
end
|
|
object ClientDataSet1CDSDesigner10: TWideStringField
|
|
FieldName = #20633#35387
|
|
ProviderFlags = [pfInUpdate]
|
|
Size = 255
|
|
end
|
|
object ClientDataSet1MAXItem: TAggregateField
|
|
FieldName = 'MAXItem'
|
|
Active = True
|
|
Expression = 'MAX('#38917#27425')'
|
|
end
|
|
end
|
|
end
|