gxsys.~dfm

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

          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clBlack
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'dan_no'
              Title.Caption = #32232#34399
              Visible = True
            end>
        end
      end
      object Button2: TButton
        Left = 12
        Top = 4
        Width = 75
        Height = 25
        Caption = #36820#22238
        TabOrder = 0
        OnClick = Button1Click
      end
      object DBNavigator3: TDBNavigator
        Left = 128
        Top = 131
        Width = 200
        Height = 25
        DataSource = DataSource4
        Flat = True
        TabOrder = 1
      end
      object DBEdit1: TDBEdit
        Left = 149
        Top = 62
        Width = 113
        Height = 21
        DataField = 'dan_no'
        DataSource = DataSource4
        TabOrder = 2
        OnKeyPress = DBEdit1KeyPress
      end
      object GroupBox2: TGroupBox
        Left = 16
        Top = 168
        Width = 361
        Height = 113
        Caption = #22283#21029#35373#32622
        TabOrder = 4
        object Label3: TLabel
          Left = 86
          Top = 24
          Width = 51
          Height = 13
          Caption = #22283#23478#20195#34399':'
        end
        object Label4: TLabel
          Left = 86
          Top = 52
          Width = 51
          Height = 13
          Caption = #22283#23478#21517#31281':'
        end
        object DBEdit3: TDBEdit
          Left = 141
          Top = 50
          Width = 113
          Height = 21
          DataField = 'guo_name'
          DataSource = DataSource5
          TabOrder = 0
          OnKeyPress = DBEdit3KeyPress
        end
        object DBGrid5: TDBGrid
          Left = 5
          Top = 17
          Width = 72
          Height = 81
          DataSource = DataSource5
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clBlack
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'guo_no'
              Title.Caption = #32232#34399
              Visible = True
            end>
        end
      end
      object DBEdit4: TDBEdit
        Left = 157
        Top = 190
        Width = 113
        Height = 21
        DataField = 'guo_no'
        DataSource = DataSource5
        TabOrder = 5
        OnKeyPress = DBEdit4KeyPress
      end
      object DBNavigator4: TDBNavigator
        Left = 105
        Top = 251
        Width = 200
        Height = 25
        DataSource = DataSource5
        Flat = True
        TabOrder = 6
      end
    end
    object TabSheet2: TTabSheet
      Caption = #37096#38272#20154#21729#35373#23450
      ImageIndex = 2
      object Label5: TLabel
        Left = 132
        Top = 64
        Width = 33
        Height = 17
        AutoSize = False
        Caption = #24207#34399
      end
      object Label6: TLabel
        Left = 132
        Top = 101
        Width = 33
        Height = 17
        AutoSize = False
        Caption = #20154#21729
      end
      object Label7: TLabel
        Left = 132
        Top = 145
        Width = 33
        Height = 17
        AutoSize = False
        Caption = #37096#38272
      end
      object Button1: TButton
        Left = 12
        Top = 4
        Width = 75
        Height = 25
        Caption = #36820#22238
        TabOrder = 0
        OnClick = Button1Click
      end
      object DBNavigator2: TDBNavigator
        Left = 111
        Top = 219
        Width = 290
        Height = 25
        DataSource = DataSource3
        Flat = True
        TabOrder = 1
      end
      object DBEdit5: TDBEdit
        Left = 167
        Top = 63
        Width = 100
        Height = 21
        DataField = #24207#34399
        DataSource = DataSource3
        TabOrder = 2
      end
      object DBEdit6: TDBEdit
        Left = 167
        Top = 96
        Width = 100
        Height = 21
        DataField = #20154#21729
        DataSource = DataSource3
        TabOrder = 3
      end
      object DBComboBox1: TDBComboBox
        Left = 167
        Top = 142
        Width = 100
        Height = 21
        DataField = #37096#38272
        DataSource = DataSource3
        ItemHeight = 13
        TabOrder = 4
      end
      object DBGrid3: TDBGrid
        Left = 32
        Top = 40
        Width = 65
        Height = 201
        DataSource = DataSource3
        TabOrder = 5
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clBlack
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = #24207#34399
            Visible = True
          end>
      end
    end
  end
  object Table1: TTable
    Active = True
    BeforeDelete = Table1BeforeDelete
    AfterDelete = Table1AfterDelete
    AutoRefresh = True
    DatabaseName = 'oy'
    TableName = 'dbo.EmakeZl'
    Left = 120
    Top = 216
    object Table1no: TIntegerField
      FieldName = 'no'
      Required = True
    end
    object Table1zzzl: TStringField
      FieldName = 'zzzl'
      FixedChar = True
      Size = 30
    end
    object Table1zh: TSmallintField
      FieldName = 'zh'
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 72
    Top = 144
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'oy'
    IndexFieldNames = 'zzzl'
    MasterFields = 'zzzl'
    MasterSource = DataSource1
    TableName = 'dbo.EmakeGx'
    Left = 280
    Top = 48
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 288
    Top = 136
  end
  object Query1: TQuery
    DatabaseName = 'oy'
    SQL.Strings = (
      'delete from EmakeGx where zzzl=:par1')
    Left = 436
    Top = 112
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'par1'
        ParamType = ptUnknown
      end>
  end
  object Table3: TTable
    Active = True
    DatabaseName = 'oy'
    TableName = 'dbo.Ebase'
    Left = 444
    Top = 40
  end
  object DataSource3: TDataSource
    DataSet = Table3
    Left = 396
    Top = 184
  end
  object Table4: TTable
    DatabaseName = 'oy'
    TableName = 'dbo.dan_wei'
    Left = 352
    Top = 48
  end
  object DataSource4: TDataSource
    DataSet = Table4
    Left = 152
    Top = 40
  end
  object Table5: TTable
    DatabaseName = 'oy'
    TableName = 'dbo.guo_jiang'
    Left = 240
    Top = 56
  end
  object DataSource5: TDataSource
    DataSet = Table5
    Left = 512
    Top = 32
  end
  object Table6: TTable
    Active = True
    DatabaseName = 'oy'
    TableName = 'dbo.shu_ju_weifu'
    Left = 336
    Top = 120
  end
end