📄 unitprodstock.dfm
字号:
object frmProdStock: TfrmProdStock
Left = 65
Top = 95
BorderStyle = bsDialog
Caption = '宁波巨龙橡塑有限公司 成品仓库管理系统'
ClientHeight = 401
ClientWidth = 664
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnKeyPress = FormKeyPress
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object PageControl1: TPageControl
Left = 5
Top = 31
Width = 651
Height = 350
ActivePage = TabSheet1
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
OnChange = PageControl1Change
object TabSheet1: TTabSheet
Caption = '成品库存一览表'
OnShow = TabSheet2Show
object Label1: TLabel
Left = 504
Top = 117
Width = 84
Height = 14
Caption = '请输入图号：'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object dbgProdStock: TDBGrid
Left = 0
Top = 0
Width = 481
Height = 310
BiDiMode = bdLeftToRight
DataSource = DM.dsProdStock
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ParentBiDiMode = False
ParentFont = False
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'ProdID'
Title.Alignment = taCenter
Title.Caption = '产品序号'
Width = 55
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'ProdName'
Title.Alignment = taCenter
Title.Caption = '产 品 名 称'
Width = 123
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'FigID'
Title.Alignment = taCenter
Title.Caption = '图 号'
Width = 140
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Number'
Title.Alignment = taCenter
Title.Caption = '数 量'
Width = 103
Visible = True
end>
end
object BitBtn4: TBitBtn
Left = 497
Top = 243
Width = 113
Height = 25
Cancel = True
Caption = '关闭(ESC)'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BitBtn4Click
end
object rgProdDictionary: TRadioGroup
Left = 497
Top = 25
Width = 113
Height = 73
Caption = '查找方式 '
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ItemIndex = 0
Items.Strings = (
'按图号'
'按产品名称')
ParentFont = False
TabOrder = 2
OnClick = rgProdDictionaryClick
end
object eProdStockFind: TEdit
Left = 497
Top = 140
Width = 113
Height = 24
TabOrder = 3
OnChange = eProdStockFindChange
end
object BitBtn1: TBitBtn
Left = 498
Top = 203
Width = 112
Height = 25
Caption = '打印预览'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = BitBtn1Click
end
end
object TabSheet2: TTabSheet
Caption = '客户供货查询'
OnShow = TabSheet2Show
object Label2: TLabel
Left = 258
Top = 10
Width = 70
Height = 14
Caption = '起始日期：'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 258
Top = 38
Width = 70
Height = 14
Caption = '终止日期：'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 6
Top = 25
Width = 70
Height = 14
Caption = '客户名称：'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object DBGrid1: TDBGrid
Left = -1
Top = 65
Width = 645
Height = 253
DataSource = DataSource1
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 = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -16
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'OutDate'
Title.Alignment = taCenter
Title.Caption = '出库日期'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -12
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 59
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'ProdName'
Title.Alignment = taCenter
Title.Caption = '产品名称'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -12
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 110
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'ProdFig'
Title.Alignment = taCenter
Title.Caption = '图 号'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -12
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 108
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Number'
Title.Alignment = taCenter
Title.Caption = '数 量'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -12
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 60
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Danjia'
Title.Alignment = taCenter
Title.Caption = '单 价'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -12
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 44
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Jine'
Title.Alignment = taCenter
Title.Caption = '金 额'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -12
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 58
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Outer'
Title.Alignment = taCenter
Title.Caption = '经手人'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -12
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 46
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Note'
Title.Alignment = taCenter
Title.Caption = '备 注'
Title.Font.Charset = GB2312_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -12
Title.Font.Name = '宋体'
Title.Font.Style = []
Width = 161
Visible = True
end>
end
object DateTimePicker1: TDateTimePicker
Left = 320
Top = 6
Width = 94
Height = 22
CalAlignment = dtaLeft
Date = 37163.6561828704
Time = 37163.6561828704
DateFormat = dfShort
DateMode = dmComboBox
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
Kind = dtkDate
ParseInput = False
ParentFont = False
TabOrder = 1
end
object DateTimePicker2: TDateTimePicker
Left = 320
Top = 37
Width = 95
Height = 22
CalAlignment = dtaLeft
Date = 37163.6563780093
Time = 37163.6563780093
DateFormat = dfShort
DateMode = dmComboBox
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
Kind = dtkDate
ParseInput = False
ParentFont = False
TabOrder = 2
end
object BitBtn2: TBitBtn
Left = 459
Top = 36
Width = 75
Height = 25
Caption = '返回'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = BitBtn2Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
0000}
NumGlyphs = 2
end
object BitBtn3: TBitBtn
Left = 457
Top = 6
Width = 75
Height = 25
Caption = '查询'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = BitBtn3Click
end
object Edit1: TEdit
Left = 88
Top = 24
Width = 70
Height = 16
AutoSize = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 5
end
object Button1: TButton
Left = 553
Top = 35
Width = 75
Height = 25
Caption = '打印预览'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = Button1Click
end
object Button2: TButton
Left = 552
Top = 5
Width = 75
Height = 25
Caption = '查询结帐'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 7
OnClick = Button2Click
end
object Edit2: TEdit
Left = 69
Top = 22
Width = 169
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 8
OnClick = Edit2Click
end
end
object TabSheet3: TTabSheet
Caption = '客户交款、查询'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = '宋体'
Font.Style = []
ImageIndex = 2
ParentFont = False
OnEnter = TabSheet3Enter
OnShow = TabSheet2Show
object Label5: TLabel
Left = 464
Top = 125
Width = 70
Height = 14
Caption = '客户单位：'
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -