📄 unit5.~dfm
字号:
object tscj: Ttscj
Left = 246
Top = 103
Width = 870
Height = 640
Caption = #20986#20511#22270#20070
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 192
Top = 16
Width = 257
Height = 41
AutoSize = False
Caption = #22312#24211#22270#20070#19968#35272#34920
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -35
Font.Name = #38582#20070
Font.Style = []
ParentFont = False
end
object BitBtn1: TBitBtn
Left = 368
Top = 568
Width = 75
Height = 25
Cancel = True
Caption = #36820#22238
TabOrder = 0
OnClick = BitBtn1Click
end
object GroupBox1: TGroupBox
Left = 640
Top = 16
Width = 209
Height = 345
Caption = #22312#24211#22270#20070#31579#36873
TabOrder = 1
object Label2: TLabel
Left = 8
Top = 24
Width = 57
Height = 25
AutoSize = False
Caption = #20070' '#21495
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 8
Top = 62
Width = 57
Height = 25
AutoSize = False
Caption = #20070' '#21517
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 8
Top = 108
Width = 57
Height = 25
AutoSize = False
Caption = #31867' '#21035
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 8
Top = 154
Width = 57
Height = 25
AutoSize = False
Caption = #20316' '#32773
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 8
Top = 200
Width = 73
Height = 25
AutoSize = False
Caption = #20986#29256#31038
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object BitBtn2: TBitBtn
Left = 64
Top = 312
Width = 75
Height = 25
Caption = #31579#36873
TabOrder = 0
OnClick = BitBtn2Click
end
object Edit1: TEdit
Left = 80
Top = 24
Width = 121
Height = 21
TabOrder = 1
end
object Edit2: TEdit
Left = 80
Top = 62
Width = 121
Height = 21
TabOrder = 2
end
object Edit3: TEdit
Left = 80
Top = 108
Width = 121
Height = 21
TabOrder = 3
end
object Edit4: TEdit
Left = 80
Top = 154
Width = 113
Height = 21
TabOrder = 4
end
object Edit5: TEdit
Left = 80
Top = 200
Width = 113
Height = 21
TabOrder = 5
end
end
object GroupBox2: TGroupBox
Left = 16
Top = 368
Width = 833
Height = 185
Caption = #20986#20511#22270#20070#25805#20316
TabOrder = 2
object Label7: TLabel
Left = 8
Top = 49
Width = 129
Height = 20
AutoSize = False
Caption = #20986#20511#22270#20070#32534#21495
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 299
Top = 49
Width = 121
Height = 20
AutoSize = False
Caption = #35835#32773#20511#20070#35777#21495
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 566
Top = 49
Width = 89
Height = 20
AutoSize = False
Caption = #20511#20070#26085#26399' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object BitBtn3: TBitBtn
Left = 360
Top = 144
Width = 75
Height = 25
Caption = #20986#20511
Default = True
TabOrder = 0
OnClick = BitBtn3Click
end
object Edit6: TEdit
Left = 137
Top = 48
Width = 121
Height = 21
TabOrder = 1
end
object Edit7: TEdit
Left = 428
Top = 48
Width = 121
Height = 21
TabOrder = 2
end
object DateTimePicker1: TDateTimePicker
Left = 656
Top = 48
Width = 129
Height = 21
Date = 38864.748793402780000000
Time = 38864.748793402780000000
TabOrder = 3
end
end
object DBGrid1: TDBGrid
Left = 16
Top = 64
Width = 609
Height = 289
DataSource = DataSource1
TabOrder = 3
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid1CellClick
Columns = <
item
Expanded = False
FieldName = 'sh'
Title.Caption = #22270#20070#32534#21495
Width = 67
Visible = True
end
item
Expanded = False
FieldName = 'sm'
Title.Caption = #22270#20070#21517#31216
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'lb'
Title.Caption = #22270#20070#31867#21035
Width = 78
Visible = True
end
item
Expanded = False
FieldName = 'zz'
Title.Caption = #20316#32773
Width = 133
Visible = True
end
item
Expanded = False
FieldName = 'cbs'
Title.Caption = #20986#29256#31038
Width = 153
Visible = True
end>
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 48
Top = 568
end
object ADOQuery1: TADOQuery
Active = True
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=TSGL'
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select tsbm.sh,tsbm.sm,tsbm.lb,tsbm.zz,tsbm.cbs'
'from tsbm,tsjy'
'where (tsbm.sh=tsjy.sh)and(tsjy.jcbz='#39#22312#24211#39')'
'order by tsbm.sh')
Left = 128
Top = 568
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -