📄 f_stocheck.dfm
字号:
object dfmstocheck: Tdfmstocheck
Left = 58
Top = 160
Width = 688
Height = 397
Caption = #24211#23384#30424#28857#36755#20837
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
FormStyle = fsMDIChild
KeyPreview = True
OldCreateOrder = False
Position = poMainFormCenter
Visible = True
OnClose = FormClose
OnCreate = FormCreate
OnKeyPress = FormKeyPress
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object StatusBar1: TStatusBar
Left = 0
Top = 351
Width = 680
Height = 19
Panels = <>
SimplePanel = False
end
object Panel2: TPanel
Left = 0
Top = 326
Width = 680
Height = 25
Align = alBottom
TabOrder = 1
object delbtn: TBitBtn
Left = 78
Top = 0
Width = 75
Height = 25
Caption = #21024#38500
TabOrder = 1
OnClick = delbtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003333333333333777333333333333
300033FFFFFF3333377739999993333333333777777F3333333F399999933333
3300377777733333337733333333333333003333333333333377333333333333
3333333333333333333F333333333333330033333F33333333773333C3333333
330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
333333377F33333333FF3333C333333330003333733333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
end
object postbtn: TBitBtn
Left = 3
Top = 0
Width = 75
Height = 25
Caption = #30830#23450
ModalResult = 1
TabOrder = 0
OnClick = postbtnClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object cancelbtn: TBitBtn
Left = 153
Top = 0
Width = 75
Height = 25
Cancel = True
Caption = #21462#28040
ModalResult = 2
TabOrder = 2
OnClick = cancelbtnClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BitBtn1: TBitBtn
Left = 228
Top = 0
Width = 75
Height = 25
Caption = #23457#26680
TabOrder = 3
OnClick = BitBtn1Click
end
end
object DBGridEh1: TDBGridEh
Left = 0
Top = 0
Width = 680
Height = 259
Align = alClient
DataSource = DataSource1
FooterColor = clYellow
FooterFont.Charset = GB2312_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -13
FooterFont.Name = #23435#20307
FooterFont.Style = []
FooterRowCount = 1
SumList.Active = True
TabOrder = 2
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
EditButtons = <>
FieldName = 'bmh'
Footer.Value = #21512#35745#65306
Footer.ValueType = fvtStaticText
Footers = <>
Title.Alignment = taCenter
Title.Caption = #37096#38376#21495
end
item
EditButtons = <>
FieldName = 'ccheckno'
Footers = <>
Title.Alignment = taCenter
Title.Caption = #30424#28857#21333#21495
end
item
EditButtons = <>
FieldName = 'clabel'
Footers = <>
Title.Alignment = taCenter
Title.Caption = #21697#29260
end
item
EditButtons = <>
FieldName = 'spbh'
Footers = <>
Title.Alignment = taCenter
Title.Caption = #21830#21697#32534#21495
end
item
Alignment = taLeftJustify
EditButtons = <>
FieldName = 'cnumber'
Footer.ValueType = fvtSum
Footers = <>
Title.Alignment = taCenter
Title.Caption = #25968#37327
end
item
EditButtons = <>
FieldName = 'cuser'
Footers = <>
Title.Alignment = taCenter
Title.Caption = #36755#21333#21592
end
item
EditButtons = <>
FieldName = 'cdate'
Footers = <>
Title.Alignment = taCenter
Title.Caption = #26085#26399
end>
end
object Panel3: TPanel
Left = 0
Top = 259
Width = 680
Height = 33
Align = alBottom
Ctl3D = False
ParentCtl3D = False
TabOrder = 3
object Label1: TLabel
Left = 174
Top = 10
Width = 52
Height = 13
Caption = #30424#28857#21333#21495
end
object Label3: TLabel
Left = 321
Top = 10
Width = 39
Height = 13
Caption = #37096#38376#21495
end
object Label5: TLabel
Left = 14
Top = 10
Width = 26
Height = 13
Caption = #26085#26399
end
object Label9: TLabel
Left = 462
Top = 10
Width = 26
Height = 13
Caption = #21697#29260
end
object MaskEdit1: TMaskEdit
Left = 232
Top = 7
Width = 73
Height = 19
TabOrder = 1
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 367
Top = 7
Width = 72
Height = 19
KeyField = 'bmh'
ListField = 'bmh'
ListSource = DataSource2
TabOrder = 2
end
object DateTimePicker1: TDateTimePicker
Left = 48
Top = 6
Width = 105
Height = 21
CalAlignment = dtaLeft
Date = 37270.491509213
Time = 37270.491509213
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 0
end
object DBLookupComboBox2: TDBLookupComboBox
Left = 496
Top = 8
Width = 89
Height = 19
KeyField = 'clabel'
ListField = 'clabel'
ListSource = DataSource6
TabOrder = 3
end
end
object Panel4: TPanel
Left = 0
Top = 292
Width = 680
Height = 34
Align = alBottom
TabOrder = 4
object Label6: TLabel
Left = 14
Top = 11
Width = 26
Height = 13
Caption = #27454#21495
end
object Label7: TLabel
Left = 437
Top = 11
Width = 59
Height = 13
Caption = #27454#21495#21517#31216':'
end
object Label8: TLabel
Left = 297
Top = 11
Width = 52
Height = 13
Caption = #30424#23384#25968#37327
end
object Label4: TLabel
Left = 108
Top = 11
Width = 26
Height = 13
Caption = #33394#21495
end
object Label10: TLabel
Left = 202
Top = 11
Width = 26
Height = 13
Caption = #23610#30721
end
object MaskEdit2: TMaskEdit
Left = 46
Top = 7
Width = 49
Height = 21
TabOrder = 0
end
object MaskEdit3: TMaskEdit
Left = 233
Top = 7
Width = 41
Height = 21
TabOrder = 2
OnExit = MaskEdit3Exit
end
object MaskEdit4: TMaskEdit
Left = 353
Top = 7
Width = 65
Height = 21
TabOrder = 3
end
object StaticText1: TStaticText
Left = 500
Top = 9
Width = 165
Height = 17
AutoSize = False
BorderStyle = sbsSingle
Color = clInfoBk
ParentColor = False
TabOrder = 4
end
object Edit2: TEdit
Left = 141
Top = 7
Width = 49
Height = 21
TabOrder = 1
end
end
object DataSource1: TDataSource
DataSet = ATblcheckin
OnStateChange = DataSource1StateChange
Left = 88
Top = 40
end
object ATblcheckin: TADOTable
Active = True
Connection = dmRainbowMIS.adopos
CursorType = ctStatic
IndexFieldNames = 'spbh'
MasterFields = 'spbh'
MasterSource = DataSource5
TableName = 't_checktemp'
Left = 120
Top = 40
end
object DataSource2: TDataSource
DataSet = Atblbranch
Left = 176
Top = 40
end
object Atblbranch: TADOTable
Active = True
Connection = dmRainbowMIS.adopos
CursorType = ctStatic
TableName = 't_branch'
Left = 208
Top = 40
end
object ATblspec: TADOTable
Connection = dmRainbowMIS.adopos
IndexFieldNames = 'cstyle'
MasterFields = 'flh'
MasterSource = DataSource4
TableName = 't_spec'
Left = 304
Top = 40
end
object DataSource3: TDataSource
DataSet = ATblspec
Left = 272
Top = 40
end
object DataSource4: TDataSource
DataSet = AQryware
Left = 344
Top = 40
end
object AQryware: TADOQuery
Connection = dmRainbowMIS.adopos
CursorType = ctStatic
Parameters = <
item
Name = 'vlabel'
Attributes = [paNullable]
DataType = ftFixedChar
NumericScale = 255
Precision = 255
Size = 510
Value = Null
end
item
Name = 'vspbh'
Attributes = [paNullable]
DataType = ftFixedChar
NumericScale = 255
Precision = 255
Size = 510
Value = Null
end>
SQL.Strings = (
'select t_ware.clabel,t_ware.spbh,t_ware.flh from t_ware'
'where trim(clabel)=:vlabel and trim(spbh)=:vspbh')
Left = 376
Top = 40
end
object DataSource5: TDataSource
DataSet = Atblvstotemp
Left = 232
Top = 136
end
object Atblvstotemp: TADOTable
Connection = dmRainbowMIS.adopos
TableName = 'v_storevtemp'
Left = 264
Top = 136
end
object ADOQuery1: TADOQuery
Connection = dmRainbowMIS.adopos
Parameters = <>
SQL.Strings = (
'insert into t_checkin '
'SELECT t_checktemp.ccheckno, t_checktemp.cdate, t_checktemp.clab' +
'el, t_checktemp.spbh,'
' t_checktemp.cnumber, t_checktemp.freno, t_checktemp.cuser, t_ch' +
'ecktemp.bmh'
'from t_checktemp')
Left = 384
Top = 144
end
object ADOQuery2: TADOQuery
Connection = dmRainbowMIS.adopos
Parameters = <>
SQL.Strings = (
'delete * from t_checktemp')
Left = 424
Top = 144
end
object DataSource6: TDataSource
DataSet = ADOTable1
Left = 512
Top = 48
end
object ADOTable1: TADOTable
Active = True
Connection = dmRainbowMIS.adopos
CursorType = ctStatic
TableName = 't_label'
Left = 544
Top = 48
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -