📄 unit_rubb_autocard.dfm
字号:
object Form_Rubb_AutoCard: TForm_Rubb_AutoCard
Left = 175
Top = 103
ActiveControl = Edit_Per
BorderStyle = bsDialog
Caption = '宁波市巨龙橡塑有限公司 炼胶车间管理系统'
ClientHeight = 451
ClientWidth = 425
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnKeyPress = FormKeyPress
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 14
object DBGrid1: TDBGrid
Left = 19
Top = 230
Width = 385
Height = 171
DataSource = DS_TakeCard
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
TabOrder = 7
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = '标识号'
Width = 54
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = '配方编号'
Title.Alignment = taCenter
Width = 54
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = '制成品名称'
Title.Alignment = taCenter
Title.Caption = '胶料名称'
Width = 86
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = '材料名称'
Title.Alignment = taCenter
Width = 95
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = '重量'
Title.Alignment = taCenter
Title.Caption = '用料数量'
Width = 51
Visible = True
end>
end
object Edit_MixCardNum: TEdit
Left = 147
Top = 38
Width = 147
Height = 22
TabStop = False
TabOrder = 8
OnChange = Edit_MixCardNumChange
end
object Edit_Rubb: TEdit
Left = 147
Top = 62
Width = 147
Height = 22
TabStop = False
TabOrder = 9
end
object Edit_Per: TEdit
Left = 147
Top = 85
Width = 85
Height = 22
TabOrder = 0
OnEnter = Edit_PerEnter
OnExit = Edit_PerExit
end
object BitBtn1: TBitBtn
Left = 276
Top = 409
Width = 85
Height = 25
Cursor = crHandPoint
Caption = '领料'
TabOrder = 6
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
3BB33773333773333773B333333B3333333B7333333733333337}
NumGlyphs = 2
end
object Panel1: TPanel
Left = 51
Top = 62
Width = 97
Height = 22
Caption = '胶料名称'
TabOrder = 10
end
object Panel2: TPanel
Left = 51
Top = 39
Width = 97
Height = 22
Caption = '配方编号'
TabOrder = 11
end
object Panel_Hint: TPanel
Left = 51
Top = 85
Width = 97
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 12
end
object Panel5: TPanel
Left = 51
Top = 107
Width = 97
Height = 22
Caption = '请输入车数'
TabOrder = 13
end
object Panel6: TPanel
Left = 51
Top = 3
Width = 338
Height = 36
Caption = '自动领料单生成器'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -29
Font.Name = '隶书'
Font.Style = []
ParentFont = False
TabOrder = 14
end
object Panel3: TPanel
Left = 232
Top = 85
Width = 62
Height = 22
Caption = '（公斤）'
TabOrder = 15
end
object edit_p: TEdit
Left = 147
Top = 130
Width = 147
Height = 22
PasswordChar = '*'
TabOrder = 2
OnEnter = Edit_PerEnter
OnExit = Edit_PerExit
end
object Panel4: TPanel
Left = 51
Top = 129
Width = 97
Height = 23
Caption = '领料人密码'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 16
end
object Panel7: TPanel
Left = 51
Top = 152
Width = 97
Height = 23
Caption = '领料日期'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 17
end
object DateTimePicker1: TDateTimePicker
Left = 147
Top = 153
Width = 148
Height = 22
CalAlignment = dtaLeft
Date = 36951.6436351852
Time = 36951.6436351852
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 3
end
object Edit_dep: TEdit
Left = 147
Top = 176
Width = 147
Height = 22
TabOrder = 4
OnEnter = Edit_depEnter
OnExit = Edit_PerExit
end
object Panel8: TPanel
Left = 51
Top = 176
Width = 97
Height = 22
Caption = '使用部门'
TabOrder = 18
end
object eChe: TEdit
Left = 147
Top = 107
Width = 85
Height = 22
TabOrder = 1
OnEnter = Edit_PerEnter
OnExit = Edit_PerExit
end
object Panel9: TPanel
Left = 232
Top = 107
Width = 62
Height = 22
Caption = '(车)'
TabOrder = 19
end
object Panel10: TPanel
Left = 51
Top = 198
Width = 97
Height = 22
Caption = '总重量'
TabOrder = 20
end
object eTotal: TEdit
Left = 147
Top = 198
Width = 147
Height = 22
TabStop = False
ReadOnly = True
TabOrder = 5
end
object BitBtn2: TBitBtn
Left = 87
Top = 409
Width = 82
Height = 25
Caption = '打印'
TabOrder = 21
TabStop = False
OnClick = BitBtn2Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
end
object Button1: TButton
Left = 180
Top = 409
Width = 84
Height = 25
Caption = '返回'
TabOrder = 22
OnClick = Button1Click
end
object Qry_TakeCard: TQuery
DatabaseName = 'JL2000'
SQL.Strings = (
'SELECT 标识号, 配方编号, 制成品名称, 材料名称, 份数 as 重量'
'FROM "炼胶配方表.DB" 炼胶配方表')
Left = 328
Top = 157
end
object DS_TakeCard: TDataSource
DataSet = Qry_TakeCard
Left = 296
Top = 157
end
object Qry_exe: TQuery
DatabaseName = 'JL2000'
Left = 32
Top = 165
end
object TabIO: TTable
DatabaseName = 'Jl2000'
TableName = '原材料台帐.DB'
Left = 352
Top = 125
end
object Q1: TQuery
DatabaseName = 'Jl2000'
Left = 32
Top = 133
end
object TabMater: TTable
DatabaseName = 'Jl2000'
TableName = '炼胶用料单.DB'
Left = 328
Top = 197
end
object Query1: TQuery
DatabaseName = 'JL2000'
Left = 96
Top = 301
end
object Query2: TQuery
DatabaseName = 'JL2000'
Left = 328
Top = 64
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -