複製 -jjd.dfm

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

object Form1: TForm1
  Left = 117
  Top = 144
  Width = 594
  Height = 446
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 137
    Width = 586
    Height = 282
    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
        Visible = True
      end
      item
        Expanded = False
        FieldName = #25509#25910#31449#34399
        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 = 586
    Height = 33
    Align = alTop
    BevelInner = bvSpace
    BevelOuter = bvSpace
    Caption = '`'
    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 = 586
    Height = 104
    Align = alTop
    Color = 16772552
    TabOrder = 2
    object Label8: TLabel
      Left = 8
      Top = 56
      Width = 90
      Height = 13
      Caption = ' '#25509#25910#20154':'
      Constraints.MaxWidth = 90
      Constraints.MinWidth = 90
    end
    object Label9: TLabel
      Left = 232
      Top = 56
      Width = 90
      Height = 13
      Caption = ' '#25509#25910#20154':'
      Constraints.MaxWidth = 90
      Constraints.MinWidth = 90
    end
    object Label10: TLabel
      Left = 76
      Top = 56
      Width = 33
      Height = 13
      Caption = #29677#38263
      Constraints.MaxWidth = 33
      Constraints.MinWidth = 33
    end
    object Label11: TLabel
      Left = 152
      Top = 56
      Width = 33
      Height = 13
      Caption = #32068#38263
      Constraints.MaxWidth = 33
      Constraints.MinWidth = 33
    end
    object Label12: TLabel
      Left = 316
      Top = 56
      Width = 33
      Height = 13
      Caption = #29677#38263
      Constraints.MaxWidth = 33
      Constraints.MinWidth = 33
    end
    object Label13: TLabel
      Left = 400
      Top = 56
      Width = 33
      Height = 13
      Caption = #32068#38263
      Constraints.MaxWidth = 33
      Constraints.MinWidth = 33
    end
    object Label14: TLabel
      Left = 476
      Top = 56
      Width = 100
      Height = 13
      Caption = #29983#29986#37096#32147'/'#21103#29702':'
      Constraints.MaxWidth = 100
      Constraints.MinWidth = 100
    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 = 96
      Top = 16
      Width = 33
      Height = 13
      Caption = #39006#22411
      Constraints.MaxWidth = 33
      Constraints.MinWidth = 33
    end
    object Label5: TLabel
      Left = 176
      Top = 16
      Width = 90
      Height = 13
      Caption = #20132#25509#37096#38272
      Constraints.MaxWidth = 90
      Constraints.MinWidth = 90
    end
    object Label6: TLabel
      Left = 244
      Top = 16
      Width = 90
      Height = 13
      Caption = #25509#25910#37096#38272
      Constraints.MaxWidth = 90
      Constraints.MinWidth = 90
    end
    object Label7: TLabel
      Left = 316
      Top = 16
      Width = 33
      Height = 13
      Caption = #26085#26399
      Constraints.MaxWidth = 33
      Constraints.MinWidth = 33
    end
    object de1: TDBEdit
      Left = 8
      Top = 72
      Width = 65
      Height = 21
      DataField = #20132#25509#20154
      DataSource = DataSource1
      TabOrder = 0
      OnKeyDown = de1KeyDown
    end
    object de2: TDBEdit
      Left = 232
      Top = 72
      Width = 81
      Height = 21
      DataField = #25509#25910#20154
      DataSource = DataSource1
      TabOrder = 1
      OnKeyDown = de2KeyDown
    end
    object dc4: TDBComboBox
      Left = 76
      Top = 72
      Width = 69
      Height = 21
      DataField = #20132#25509#29677#38263
      DataSource = DataSource1
      ItemHeight = 13
      TabOrder = 2
      OnKeyDown = dc4KeyDown
    end
    object dc6: TDBComboBox
      Left = 316
      Top = 72
      Width = 77
      Height = 21
      DataField = #25509#25910#29677#38263
      DataSource = DataSource1
      ItemHeight = 13
      TabOrder = 3
      OnKeyDown = dc6KeyDown
    end
    object dc5: TDBComboBox
      Left = 152
      Top = 72
      Width = 73
      Height = 21
      DataField = #20132#25509#32068#38263
      DataSource = DataSource1
      ItemHeight = 13
      TabOrder = 4
      OnKeyDown = dc5KeyDown
    end
    object dc7: TDBComboBox
      Left = 400
      Top = 72
      Width = 73
      Height = 21
      DataField = #25509#25910#32068#38263
      DataSource = DataSource1
      ItemHeight = 13
      TabOrder = 5
      OnKeyDown = dc7KeyDown
    end
    object dc8: TDBComboBox
      Left = 476
      Top = 72
      Width = 93
      Height = 21
      DataField = #32147#29702
      DataSource = DataSource1
      ItemHeight = 13
      Items.Strings = (
        #21608#23567#24179
        #21129#27704#25991)
      TabOrder = 6
      OnKeyDown = dc8KeyDown
    end
    object edt1: TDBEdit
      Left = 8
      Top = 32
      Width = 81
      Height = 21
      DataField = #21934#34399
      DataSource = DataSource1
      TabOrder = 7
      OnKeyDown = edt1KeyDown
    end
    object dc1: TDBComboBox
      Left = 96
      Top = 32
      Width = 73
      Height = 21
      DataField = #20132#25509#31278#39006
      DataSource = DataSource1
      ItemHeight = 13
      Items.Strings = (
        #33391#21697
        #19981#33391#21697
        #22577#24290#21697)
      TabOrder = 8
      OnKeyDown = dc1KeyDown
    end
    object dc2: TDBComboBox
      Left = 176
      Top = 32
      Width = 65
      Height = 21
      DataField = #20132#25509#37096#38272
      DataSource = DataSource1
      DropDownCount = 15
      ItemHeight = 13
      Items.Strings = (
        #20999#27798
        #30952#30707
        #25291#20809
        #28938#37341
        #32129#32218
        #25286#32218
        #20837#33394
        'AP'
        #21360#21047
        #21697#21253)
      TabOrder = 9
      OnKeyDown = dc2KeyDown
    end
    object dc3: TDBComboBox
      Left = 244
      Top = 32
      Width = 69
      Height = 21
      DataField = #25509#25910#37096#38272
      DataSource = DataSource1
      DropDownCount = 15
      ItemHeight = 13
      Items.Strings = (
        #20999#27798
        #30952#30707
        #25291#20809
        #28938#37341
        #32129#32218
        #25286#32218
        #20837#33394
        'AP'
        #21360#21047
        #21697#21253)
      TabOrder = 10
      OnKeyDown = dc3KeyDown
    end
    object me1: TMaskEdit
      Left = 316
      Top = 32
      Width = 77
      Height = 21
      EditMask = '9999/99/99;1;_'
      MaxLength = 10
      TabOrder = 11
      Text = '    /  /  '
      OnKeyDown = me1KeyDown
    end
  end
  object Database1: TDatabase
    AliasName = 'dd'
    DatabaseName = 'cpjj'
    LoginPrompt = False
    SessionName = 'Default'
    Left = 252
    Top = 276
  end
  object Table1: TTable
    Active = True
    AfterScroll = Table1AfterScroll
    DatabaseName = 'dd'
    TableName = 'dbo.EPIOB'
    Left = 284
    Top = 276
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 316
    Top = 276
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'dd'
    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: TStringField
      FieldName = #21046#21934#34399
      FixedChar = True
      Size = 10
    end
    object Table2BDEDesigner4: TIntegerField
      FieldName = #20132#25509#25976#37327
    end
    object Table2BDEDesigner5: TIntegerField
      FieldName = #25509#25910#25976#37327
    end
    object Table2BDEDesigner6: TStringField
      FieldName = #20633#35387
      FixedChar = True
      Size = 40
    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
  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 = 'dd'
    SQL.Strings = (
      'select Zbh from ETJZB where Zdh=:Zdh and Zbm=:Zbm')
    Left = 200
    Top = 200
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'Zdh'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'Zbm'
        ParamType = ptUnknown
      end>
  end
end