mainform.dfm

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

        Expanded = False
        FieldName = 'pin_ming'
        Title.Caption = #21697#21517
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'lei_xing'
        Title.Caption = #29986#21697#39006#22411
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Xd1'
        Title.Caption = #36984#21934'1'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Xd2'
        Title.Caption = #36984#21934'2'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Sl'
        Title.Caption = #35330#21934#25976#37327
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Zkl'
        Title.Caption = #24235#23384#37327
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'shong_dian'
        Title.Caption = #36865#38651#25976#37327
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Bzi'
        Title.Caption = #32972#23383
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Bzsm'
        Title.Caption = #21046#20316#35498#26126'1'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Bzsm1'
        Title.Caption = #21046#20316#35498#26126'2'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Bzsm2'
        Title.Caption = #21046#20316#35498#26126'3'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Bzsm3'
        Title.Caption = #21046#20316#35498#26126'4'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Cc'
        Title.Caption = #23610#23544
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Dd'
        Title.Caption = #38651#37709
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Pj'
        Title.Caption = #37197#20214
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'bei_zhu'
        Title.Caption = #20633#27880
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yes_or_shan'
        Title.Caption = #26159#21542#38928#31639
        Visible = True
      end>
  end
  object DBEdit22: TDBEdit
    Left = 518
    Top = 347
    Width = 272
    Height = 21
    Hint = #25353'"insert"'#37749#21487#25554#20837'"'#8594'".'
    DataField = 'gong_yi'
    DataSource = DataSource1
    ImeName = 'FM-WuBi(HK)'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    OnKeyDown = DBEdit22KeyDown
    OnKeyPress = DBEdit22KeyPress
  end
  object DBComboBox2: TDBComboBox
    Left = 56
    Top = 321
    Width = 75
    Height = 21
    DataField = 'made_zheng'
    DataSource = DataSource1
    ItemHeight = 13
    Items.Strings = (
      #35201
      #19981#35201)
    TabOrder = 7
    OnKeyDown = DBComboBox2KeyDown
  end
  object DBEdit23: TDBEdit
    Left = 193
    Top = 321
    Width = 75
    Height = 21
    DataField = 'fa_shu'
    DataSource = DataSource1
    TabOrder = 8
    OnKeyDown = DBEdit23KeyDown
  end
  object DBEdit21: TDBMemo
    Left = 614
    Top = 288
    Width = 172
    Height = 55
    DataField = 'bei_zhu'
    DataSource = DataSource1
    TabOrder = 9
    OnKeyDown = DBEdit21KeyDown
  end
  object DBComboBox3: TDBComboBox
    Left = 68
    Top = 346
    Width = 54
    Height = 21
    DataField = 'ifwf'
    DataSource = DataSource1
    ItemHeight = 13
    Items.Strings = (
      #26159
      #21542)
    TabOrder = 10
  end
  object DBComboBox4: TDBComboBox
    Left = 193
    Top = 347
    Width = 93
    Height = 21
    DataField = 'wfgx'
    DataSource = DataSource1
    ItemHeight = 13
    Items.Strings = (
      #38651#37709
      #31227#21360
      #32068#35037
      #21046#20316#25104#21697)
    TabOrder = 11
  end
  object DBMemo1: TDBMemo
    Left = 425
    Top = 285
    Width = 147
    Height = 60
    DataField = 'wfsm'
    DataSource = DataSource1
    TabOrder = 12
  end
  object DBEdit24: TDBEdit
    Left = 340
    Top = 348
    Width = 90
    Height = 21
    DataField = 'gx2'
    DataSource = DataSource1
    TabOrder = 13
  end
  object DBComboBox5: TDBComboBox
    Left = 306
    Top = 293
    Width = 47
    Height = 21
    DataField = 'ifcmt'
    DataSource = DataSource1
    ItemHeight = 13
    Items.Strings = (
      #26159
      #21542)
    TabOrder = 14
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 166
    Top = 205
  end
  object DataSource2: TDataSource
    Left = 341
    Top = 147
  end
  object Table3: TTable
    CachedUpdates = True
    AfterScroll = Table3AfterScroll
    DatabaseName = 'oy'
    IndexFieldNames = 'Dh;Zh'
    MasterFields = 'Ddh'
    MasterSource = DataSource1
    TableName = 'dbo.Dingdan1'
    Left = 517
    Top = 134
  end
  object DataSource3: TDataSource
    DataSet = Table3
    Left = 609
    Top = 45
  end
  object Table4: TTable
    DatabaseName = 'oy'
    ReadOnly = True
    TableName = 'dbo.US'
    Left = 554
    Top = 123
  end
  object DataSource4: TDataSource
    DataSet = Table4
    Left = 615
    Top = 284
  end
  object Query1: TQuery
    DatabaseName = 'oy'
    DataSource = DataSource1
    SQL.Strings = (
      'select * from EM where Zdh=:Zdh order by Gxh,Zh')
    Left = 366
    Top = 24
    ParamData = <
      item
        DataType = ftInteger
        Name = 'Zdh'
        ParamType = ptUnknown
        Size = 4
      end>
  end
  object Query2: TQuery
    DatabaseName = 'oy'
    SQL.Strings = (
      'delete from EM where Zdh=:para1')
    Left = 472
    Top = 216
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'para1'
        ParamType = ptUnknown
      end>
  end
  object Table5: TTable
    AutoRefresh = True
    DatabaseName = 'oy'
    IndexFieldNames = 'Zdh'
    MasterFields = 'Zdh'
    MasterSource = DataSource1
    TableName = 'dbo.ETJZB'
    Left = 520
    Top = 184
  end
  object DataSource5: TDataSource
    DataSet = Table5
    Left = 516
    Top = 33
  end
  object Database1: TDatabase
    AliasName = 'dd'
    Connected = True
    DatabaseName = 'oy'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sa')
    SessionName = 'Default'
    Left = 306
    Top = 107
  end
  object Table6: TTable
    DatabaseName = 'oy'
    TableName = 'dbo.ddbasedat'
    Left = 113
    Top = 128
  end
  object DataSource6: TDataSource
    DataSet = Table6
    Left = 256
    Top = 120
  end
  object Query3: TQuery
    DatabaseName = 'oy'
    SQL.Strings = (
      'select Distinct Dd from ddbasedat')
    Left = 152
    Top = 120
  end
  object Query4: TQuery
    DatabaseName = 'oy'
    SQL.Strings = (
      'select Distinct Pj  from ddbasedat')
    Left = 80
    Top = 104
  end
  object Table7: TTable
    DatabaseName = 'oy'
    TableName = 'dbo.EmakeZl'
    Left = 192
    Top = 111
  end
  object Table1: TTable
    BeforePost = Table1BeforePost
    AfterScroll = Table1AfterScroll
    DatabaseName = 'oy'
    Filter = '(ifbp is null) or (ifbp=0)'
    Filtered = True
    TableName = 'dbo.E'
    Left = 95
    Top = 360
  end
  object PopupMenu1: TPopupMenu
    Left = 667
    Top = 39
    object N1: TMenuItem
      Caption = #29983#29986#20986#36008#26597#35426
      ShortCut = 16449
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #21046#20316#21934#26597#35426
      ShortCut = 16450
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = #35330#21934#26597#35426
      ShortCut = 16451
      OnClick = N3Click
    end
    object N4: TMenuItem
      Caption = #25104#20489#24235#23384#26597#35426
      ShortCut = 16452
      OnClick = N4Click
    end
    object N6: TMenuItem
      Caption = #21046#36896#25209#34399#26597#35426
      ShortCut = 16453
      OnClick = N6Click
    end
  end
  object PopupMenu2: TPopupMenu
    Left = 702
    Top = 164
    object N5: TMenuItem
      Caption = #29983#29986#20986#36008#32113#35336#22577#34920
      OnClick = N5Click
    end
  end
  object Query5: TQuery
    DatabaseName = 'oy'
    Left = 128
    Top = 88
  end
  object Query6: TQuery
    DatabaseName = 'oy'