outbom_log.dfm

服装厂管理系统源程序压缩包, 请耐心阅读提供的文件包含的内容

          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -15
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 78
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'flag'
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Caption = #20132#36135#29366#24577
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -15
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Visible = True
        end>
    end
    object DBGrid2: TDBGrid
      Left = 699
      Top = 20
      Width = 198
      Height = 165
      Hint = #21452#20987#24403#21069#21592#24037#20449#24687#65292#22686#21152#25110#20462#25913#24403#21069#24037#24207#30340#21592#24037#32534#21495#65281
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -15
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = DBGrid2DblClick
      Columns = <
        item
          Expanded = False
          FieldName = 'empname'
          Title.Alignment = taCenter
          Title.Caption = #21592#24037#22995#21517
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -15
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 63
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'empid'
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #21592#24037#32534#21495
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -15
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 69
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'sex'
          Title.Alignment = taCenter
          Title.Caption = #24615#21035
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -15
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 33
          Visible = True
        end>
    end
    object ExportBtn: TBitBtn
      Left = 904
      Top = 120
      Width = 92
      Height = 25
      Cursor = crHandPoint
      Caption = #23548#20837'Excel'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = ExportBtnClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00344446333334
        44433333FFFF333333FFFF33000033AAA43333332A4333338833F33333883F33
        00003332A46333332A4333333383F33333383F3300003332A2433336A6633333
        33833F333383F33300003333AA463362A433333333383F333833F33300003333
        6AA4462A46333333333833FF833F33330000333332AA22246333333333338333
        33F3333300003333336AAA22646333333333383333F8FF33000033444466AA43
        6A43333338FFF8833F383F330000336AA246A2436A43333338833F833F383F33
        000033336A24AA442A433333333833F33FF83F330000333333A2AA2AA4333333
        333383333333F3330000333333322AAA4333333333333833333F333300003333
        333322A4333333333333338333F333330000333333344A433333333333333338
        3F333333000033333336A24333333333333333833F333333000033333336AA43
        33333333333333833F3333330000333333336663333333333333333888333333
        0000}
      NumGlyphs = 2
    end
    object BitBtn1: TBitBtn
      Left = 199
      Top = 168
      Width = 140
      Height = 25
      Cursor = crHandPoint
      Hint = #39564#25910#24403#21069#24050#32463#39046#21462#30340#24037#24207
      Caption = #24037#24207#39564#25910'&C'
      DragCursor = crHandPoint
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      OnClick = BitBtn1Click
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 469
      Top = 168
      Width = 145
      Height = 25
      Cursor = crHandPoint
      Hint = #32473#39046#21462#24403#21069#24037#24207#30340#21592#24037#21457#25918#23545#24212#30340#36741#26009
      Caption = #39046#36741#26009'&F'
      DragCursor = crHandPoint
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      OnClick = BitBtn2Click
      NumGlyphs = 2
    end
    object DBGrid3: TDBGrid
      Left = 387
      Top = 20
      Width = 310
      Height = 144
      Hint = #21452#20987#21457#25918#24037#24207#36741#26009
      DataSource = DataSource3
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -15
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = BitBtn2Click
      Columns = <
        item
          Expanded = False
          FieldName = 'mat_id'
          Title.Caption = #29289#26009#32534#21495
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -15
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 75
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'mat_name'
          Title.Alignment = taCenter
          Title.Caption = #36741#26009#21517#31216
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -15
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 112
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'num'
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -15
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Title.Alignment = taCenter
          Title.Caption = #25968#37327
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -15
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'unit'
          Title.Caption = #21333#20301
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlue
          Title.Font.Height = -15
          Title.Font.Name = #23435#20307
          Title.Font.Style = []
          Width = 33
          Visible = True
        end>
    end
    object Edit4: TEdit
      Left = 904
      Top = 20
      Width = 92
      Height = 24
      Hint = #36755#20837#20154#21592'ID'#21495'!'
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 8
      OnKeyPress = Edit4KeyPress
    end
    object SerBtn: TBitBtn
      Left = 904
      Top = 48
      Width = 92
      Height = 25
      Caption = #26597#25214'&S'
      TabOrder = 9
      OnClick = SerBtnClick
    end
  end
  object DataSource: TDataSource
    DataSet = ADOQuery1
    OnDataChange = DataSourceDataChange
    Left = 144
    Top = 112
  end
  object ADOQuery1: TADOQuery
    Connection = DataMod.ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 104
    Top = 112
  end
  object ADOQtmp: TADOQuery
    Connection = DataMod.ADOCon
    Parameters = <>
    Left = 280
    Top = 112
  end
  object ADOQtmp2: TADOQuery
    Connection = DataMod.ADOCon
    Parameters = <>
    Left = 56
    Top = 144
  end
  object ADOQtmp3: TADOQuery
    Connection = DataMod.ADOCon
    Parameters = <>
    Left = 24
    Top = 144
  end
  object ADOQemp: TADOQuery
    Connection = DataMod.ADOCon
    Parameters = <>
    Left = 720
    Top = 293
  end
  object DataSource1: TDataSource
    DataSet = ADOQemp
    Left = 752
    Top = 293
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    OnDataChange = DataSource2DataChange
    Left = 24
    Top = 301
  end
  object ADOQuery2: TADOQuery
    Connection = DataMod.ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from outbom_log')
    Left = 24
    Top = 269
    object ADOQuery2log_id: TAutoIncField
      FieldName = 'log_id'
      ReadOnly = True
    end
    object ADOQuery2ord_id: TStringField
      FieldName = 'ord_id'
      Size = 10
    end
    object ADOQuery2bed_id: TIntegerField
      FieldName = 'bed_id'
    end
    object ADOQuery2zh_id: TIntegerField
      FieldName = 'zh_id'
    end
    object ADOQuery2size_name: TStringField
      FieldName = 'size_name'
      Size = 8
    end
    object ADOQuery2color: TStringField
      FieldName = 'color'
      Size = 10
    end
    object ADOQuery2ccnum: TIntegerField
      FieldName = 'ccnum'
    end
    object ADOQuery2num: TIntegerField
      FieldName = 'num'
    end
    object ADOQuery2empid: TIntegerField
      FieldName = 'empid'
    end
    object ADOQuery2temp_key: TStringField
      FieldName = 'temp_key'
      Size = 12
    end
    object ADOQuery2gxname: TStringField
      FieldKind = fkLookup
      FieldName = 'seq_name'
      LookupDataSet = ADOQuery3
      LookupKeyFields = 'temp_key'
      LookupResultField = 'seq_name'
      KeyFields = 'temp_key'
      Lookup = True
    end
    object ADOQuery2outdate: TDateTimeField
      FieldName = 'outdate'
    end
    object ADOQuery2flag: TBooleanField
      FieldName = 'flag'
      DisplayValues = #8730
    end
    object ADOQuery2qbfl_flag: TBooleanField
      FieldName = 'qbfl_flag'
      DisplayValues = #8730
    end
    object ADOQuery2retdate: TDateTimeField
      FieldName = 'retdate'
    end
    object ADOQuery2flflag: TBooleanField
      FieldName = 'flflag'
      DisplayValues = #8730
    end
    object ADOQuery2fl_flag: TBooleanField
      FieldName = 'fl_flag'
    end
  end
  object ADOQuery3: TADOQuery
    Connection = DataMod.ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from sequence_price')
    Left = 312
    Top = 269
    object ADOQuery3temp_key: TStringField
      FieldName = 'temp_key'
      Size = 12
    end
    object ADOQuery3ord_id: TStringField
      FieldName = 'ord_id'
      Size = 10
    end
    object ADOQuery3seq_id: TStringField
      FieldName = 'seq_id'
      Size = 11
    end
    object ADOQuery3seq_name: TStringField
      FieldName = 'seq_name'
      Size = 10
    end
    object ADOQuery3seq_price: TBCDField
      FieldName = 'seq_price'
      Precision = 18
      Size = 2
    end
  end
  object DataSource3: TDataSource
    DataSet = ADOQmat
    Left = 464
    Top = 291
  end
  object ADOQmat: TADOQuery
    Connection = DataMod.ADOCon
    Parameters = <>
    Left = 432
    Top = 291
  end
  object ADOQoutbom_log: TADOQuery
    Connection = DataMod.ADOCon
    Parameters = <>
    Left = 96
    Top = 144
  end
  object ADOQ_tmp: TADOQuery
    Connection = DataMod.ADOCon
    Parameters = <>
    Left = 392
    Top = 112
  end
  object ADOQ_tmpser: TADOQuery
    Connection = DataMod.ADOCon
    Parameters = <>
    Left = 344
    Top = 112
  end
end