jjd.dfm

产品标签管理系统：delphi+sql实现了产品标签、包装箱麦的自动生成等功能

object jjmain: Tjjmain
  Left = 89
  Top = 16
  Width = 588
  Height = 415
  Caption = 'jjmain'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 137
    Width = 580
    Height = 251
    Align = alClient
    Color = clWhite
    DataSource = DataSource2
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnKeyDown = DBGrid1KeyDown
    Columns = <
      item
        Color = 15595466
        Expanded = False
        FieldName = #21046#21934#34399
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20132#25509#31449#34399
        ReadOnly = True
        Visible = True
      end
      item
        Expanded = False
        FieldName = #25509#25910#31449#34399
        ReadOnly = True
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20132#25509#25976#37327
        Visible = True
      end
      item
        Expanded = False
        FieldName = #25509#25910#25976#37327
        Width = 125
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20633#35387
        Width = 157
        Visible = True
      end>
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 580
    Height = 33
    Align = alTop
    BevelInner = bvSpace
    BevelOuter = bvSpace
    Color = 14211521
    TabOrder = 1
    object Label1: TLabel
      Left = 12
      Top = 4
      Width = 125
      Height = 24
      Caption = #29986#21697#20132#25509#21934
      Font.Charset = ANSI_CHARSET
      Font.Color = 16777088
      Font.Height = -24
      Font.Name = #26032#32048#26126#39636
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 13
      Top = 5
      Width = 125
      Height = 24
      Caption = #29986#21697#20132#25509#21934
      Font.Charset = ANSI_CHARSET
      Font.Color = 20466
      Font.Height = -24
      Font.Name = #26032#32048#26126#39636
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 33
    Width = 580
    Height = 104
    Align = alTop
    Color = 16772552
    TabOrder = 2
    object Label8: TLabel
      Left = 8
      Top = 56
      Width = 90
      Height = 13
      Caption = ' '#20132#25509#20154':'
      Constraints.MaxWidth = 90
      Constraints.MinWidth = 90
    end
    object Label9: TLabel
      Left = 212
      Top = 56
      Width = 60
      Height = 13
      Caption = ' '#25509#25910#20154':'
      Constraints.MaxWidth = 60
      Constraints.MinWidth = 60
    end
    object Label10: TLabel
      Left = 72
      Top = 56
      Width = 33
      Height = 13
      Caption = #29677#38263
      Constraints.MaxWidth = 33
      Constraints.MinWidth = 33
    end
    object Label11: TLabel
      Left = 140
      Top = 56
      Width = 33
      Height = 13
      Caption = #32068#38263
      Constraints.MaxWidth = 33
      Constraints.MinWidth = 33
    end
    object Label12: TLabel
      Left = 280
      Top = 56
      Width = 33
      Height = 13
      Caption = #29677#38263
      Constraints.MaxWidth = 33
      Constraints.MinWidth = 33
    end
    object Label13: TLabel
      Left = 344
      Top = 56
      Width = 33
      Height = 13
      Caption = #32068#38263
      Constraints.MaxWidth = 33
      Constraints.MinWidth = 33
    end
    object Label14: TLabel
      Left = 408
      Top = 56
      Width = 90
      Height = 13
      Caption = #29983#29986#37096#32147'/'#21103#29702':'
      Constraints.MaxWidth = 90
      Constraints.MinWidth = 90
    end
    object Label3: TLabel
      Left = 8
      Top = 16
      Width = 33
      Height = 13
      Caption = #21934#34399
      Constraints.MaxWidth = 33
      Constraints.MinWidth = 33
    end
    object Label4: TLabel
      Left = 172
      Top = 16
      Width = 33
      Height = 13
      Caption = #39006#22411
      Constraints.MaxWidth = 33
      Constraints.MinWidth = 33
    end
    object Label5: TLabel
      Left = 252
      Top = 16
      Width = 60
      Height = 13
      Caption = #20132#25509#37096#38272
      Constraints.MaxWidth = 60
      Constraints.MinWidth = 60
    end
    object Label6: TLabel
      Left = 96
      Top = 16
      Width = 60
      Height = 13
      Caption = #25509#25910#37096#38272
      Constraints.MaxWidth = 60
      Constraints.MinWidth = 60
    end
    object Label7: TLabel
      Left = 332
      Top = 16
      Width = 33
      Height = 13
      Caption = #26085#26399
      Constraints.MaxWidth = 33
      Constraints.MinWidth = 33
    end
    object SpeedButton1: TSpeedButton
      Left = 492
      Top = 32
      Width = 81
      Height = 22
      Caption = #20132#25509#32113#35336
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333333333333333333FFFFFFFFFFF33330000000000
        03333377777777777F33333003333330033333377FF333377F33333300333333
        0333333377FF33337F3333333003333303333333377FF3337333333333003333
        333333333377FF3333333333333003333333333333377FF33333333333330033
        3333333333337733333333333330033333333333333773333333333333003333
        33333333337733333F3333333003333303333333377333337F33333300333333
        03333333773333337F33333003333330033333377FFFFFF77F33330000000000
        0333337777777777733333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = SpeedButton1Click
    end
    object DBText1: TDBText
      Left = 172
      Top = 32
      Width = 73
      Height = 17
      Color = clWhite
      DataField = #20132#25509#31278#39006
      DataSource = DataSource1
      ParentColor = False
    end
    object DBText2: TDBText
      Left = 252
      Top = 32
      Width = 73
      Height = 17
      Color = clWhite
      DataField = #20132#25509#37096#38272
      DataSource = DataSource1
      ParentColor = False
    end
    object dt3: TDBText
      Left = 412
      Top = 32
      Width = 45
      Height = 17
      Alignment = taRightJustify
      Color = clWhite
      DataField = #37636#21934#26178#38291
      DataSource = DataSource1
      ParentColor = False
    end
    object SpeedButton2: TSpeedButton
      Left = 492
      Top = 72
      Width = 81
      Height = 22
      Caption = #20154#21729#35373#32622
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033BBBBBBBBBB
        BB33337777777777777F33BB00BBBBBBBB33337F77333333F37F33BB0BBBBBB0
        BB33337F73F33337FF7F33BBB0BBBB000B33337F37FF3377737F33BBB00BB00B
        BB33337F377F3773337F33BBBB0B00BBBB33337F337F7733337F33BBBB000BBB
        BB33337F33777F33337F33EEEE000EEEEE33337F3F777FFF337F33EE0E80000E
        EE33337F73F77773337F33EEE0800EEEEE33337F37377F33337F33EEEE000EEE
        EE33337F33777F33337F33EEEEE00EEEEE33337F33377FF3337F33EEEEEE00EE
        EE33337F333377F3337F33EEEEEE00EEEE33337F33337733337F33EEEEEEEEEE
        EE33337FFFFFFFFFFF7F33EEEEEEEEEEEE333377777777777773}
      NumGlyphs = 2
      OnClick = SpeedButton2Click
    end
    object dc2: TDBComboBox
      Left = 72
      Top = 72
      Width = 69
      Height = 21
      DataField = #20132#25509#29677#38263
      DataSource = DataSource1
      DropDownCount = 20
      ItemHeight = 13
      TabOrder = 0
      OnKeyDown = dc2KeyDown
    end
    object dc5: TDBComboBox
      Left = 280
      Top = 72
      Width = 65
      Height = 21
      DataField = #25509#25910#29677#38263
      DataSource = DataSource1
      DropDownCount = 20
      ItemHeight = 13
      TabOrder = 1
      OnKeyDown = dc5KeyDown
    end
    object dc3: TDBComboBox
      Left = 140
      Top = 72
      Width = 73
      Height = 21
      DataField = #20132#25509#32068#38263
      DataSource = DataSource1
      DropDownCount = 20
      ItemHeight = 13
      TabOrder = 2
      OnKeyDown = dc3KeyDown
    end
    object dc6: TDBComboBox
      Left = 344
      Top = 72
      Width = 65
      Height = 21
      DataField = #25509#25910#32068#38263
      DataSource = DataSource1
      DropDownCount = 20
      ItemHeight = 13
      TabOrder = 3
      OnKeyDown = dc6KeyDown
    end
    object dc8: TDBComboBox
      Left = 408
      Top = 72
      Width = 77
      Height = 21
      DataField = #32147#29702
      DataSource = DataSource1
      DropDownCount = 20
      ItemHeight = 13
      Items.Strings = (
        #21608#23567#24179
        #21129#27704#25991)
      TabOrder = 4
      OnKeyDown = dc8KeyDown
    end
    object me: TMaskEdit
      Left = 8
      Top = 32
      Width = 78
      Height = 21
      EditMask = '999999999;0;_'
      MaxLength = 9
      TabOrder = 5
      OnKeyDown = meKeyDown
    end
    object DBEdit1: TDBEdit
      Left = 96
      Top = 32
      Width = 69
      Height = 21
      DataField = #25509#25910#37096#38272
      DataSource = DataSource1
      TabOrder = 6
      OnKeyDown = DBEdit1KeyDown
    end
    object dc1: TDBComboBox
      Left = 8
      Top = 72
      Width = 65
      Height = 21
      DataField = #20132#25509#20154
      DataSource = DataSource1
      DropDownCount = 20
      ItemHeight = 13
      TabOrder = 7
      OnKeyDown = dc1KeyDown
    end
    object dc4: TDBComboBox
      Left = 212
      Top = 72
      Width = 69
      Height = 21
      DataField = #25509#25910#20154
      DataSource = DataSource1
      DropDownCount = 20
      ItemHeight = 13
      TabOrder = 8
      OnKeyDown = dc4KeyDown
    end
    object DBNavigator1: TDBNavigator
      Left = 492
      Top = 4
      Width = 81
      Height = 25
      DataSource = DataSource1
      VisibleButtons = [nbInsert, nbPost, nbCancel]
      Flat = True
      TabOrder = 9
    end
    object DBEdit2: TDBEdit
      Left = 336
      Top = 32
      Width = 65
      Height = 21
      DataField = #26085#26399
      DataSource = DataSource1
      TabOrder = 10
      OnKeyDown = DBEdit2KeyDown
    end
  end
  object Table1: TTable
    AfterScroll = Table1AfterScroll
    DatabaseName = 'oy'
    TableName = 'dbo.EPIOB'
    Left = 284
    Top = 276
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 316
    Top = 276
  end
  object Table2: TTable
    DatabaseName = 'oy'
    IndexFieldNames = #21934#34399
    MasterFields = #21934#34399
    MasterSource = DataSource1
    TableName = 'dbo.EPIOCB'
    Left = 356
    Top = 276
    object Table2BDEDesigner: TStringField
      FieldName = #21934#34399
      Required = True
      FixedChar = True
      Size = 15
    end
    object Table2BDEDesigner2: TSmallintField
      FieldName = #23376#34399
      Required = True
    end
    object Table2BDEDesigner3: TIntegerField
      FieldName = #21046#21934#34399
    end
    object Table2BDEDesigner4: TIntegerField
      FieldName = #20132#25509#25976#37327
    end
    object Table2BDEDesigner5: TIntegerField
      FieldName = #25509#25910#25976#37327
    end
    object Table2BDEDesigner7: TSmallintField
      FieldName = #20132#25509#31449#34399
    end
    object Table2BDEDesigner8: TSmallintField
      FieldName = #25509#25910#31449#34399
    end
    object Table2BDEDesigner9: TStringField
      FieldName = #39006#22411
      Required = True
      FixedChar = True
      Size = 10
    end
    object Table2BDEDesigner10: TDateTimeField
      FieldName = #26085#26399
      Required = True
    end
    object Table2BDEDesigner6: TStringField
      FieldName = #20633#35387
      FixedChar = True
      Size = 40
    end
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 388
    Top = 276
  end
  object ActionList1: TActionList
    Left = 252
    Top = 312
    object Action1: TAction
      Caption = 'Action1'
      ShortCut = 16449
      OnExecute = Action1Execute
    end
    object Action2: TAction
      Caption = 'Action2'
      ShortCut = 16464
      OnExecute = Action2Execute
    end
    object Action3: TAction
      Caption = 'Action3'
      ShortCut = 16462
      OnExecute = Action3Execute
    end
    object Action4: TAction
      Caption = 'Action4'
      ShortCut = 16452
      OnExecute = Action4Execute
    end
  end
  object Query1: TQuery
    DatabaseName = 'oy'
    SQL.Strings = (
      'select Zbh from ETJZB where Zdh=:Zdh and Zbm=:Zbm')
    Left = 284
    Top = 312
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'Zdh'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'Zbm'
        ParamType = ptUnknown
      end>
  end
  object Table3: TTable
    AfterPost = Table3AfterPost
    DatabaseName = 'oy'
    TableName = 'dbo.EPIORY'
    Left = 356
    Top = 312
    object Table3BDEDesigner: TStringField
      FieldName = #20132#25509#20154
      FixedChar = True
      Size = 10
    end
    object Table3BDEDesigner2: TStringField
      FieldName = #29677#38263
      FixedChar = True
      Size = 10
    end
    object Table3BDEDesigner3: TStringField
      FieldName = #32068#38263
      FixedChar = True
      Size = 10
    end
    object Table3BDEDesigner4: TStringField
      FieldName = #32147#29702
      FixedChar = True
      Size = 10
    end
    object Table3BDEDesigner5: TIntegerField
      FieldName = #24207#34399
      Required = True
    end
  end
  object DataSource3: TDataSource
    DataSet = Table3
    Left = 388
    Top = 312
  end
end