ccslipfile.dfm

产品信息系统!关于产品基础信息的系统!功能强大!

    object DBEdit13: TDBEdit
      Left = 670
      Top = 100
      Width = 121
      Height = 21
      DataField = 'working_procedure'
      DataSource = dsBaseInfo
      ImeMode = imDisable
      TabOrder = 18
    end
    object DBEdit14: TDBEdit
      Left = 870
      Top = 100
      Width = 121
      Height = 21
      DataField = 'machine_No'
      DataSource = dsBaseInfo
      ImeMode = imDisable
      TabOrder = 19
    end
    object DBMemo1: TDBMemo
      Left = 24
      Top = 130
      Width = 250
      Height = 150
      DataField = 'remark'
      DataSource = dsBaseInfo
      ImeMode = imDisable
      TabOrder = 20
    end
    object DBMemo2: TDBMemo
      Left = 296
      Top = 130
      Width = 250
      Height = 150
      DataField = 'Slip_text'
      DataSource = dsBaseInfo
      ImeMode = imDisable
      TabOrder = 21
    end
    object DBMemo3: TDBMemo
      Left = 568
      Top = 130
      Width = 250
      Height = 150
      DataField = 'Manage'
      DataSource = dsBaseInfo
      ImeMode = imDisable
      TabOrder = 22
    end
    object wwDBLookupCombo1: TwwDBLookupCombo
      Left = 269
      Top = 40
      Width = 121
      Height = 21
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'plate_no'#9'10'#9#30005#38208#32534#30721#9'F'#9
        'plate_name'#9'30'#9#30005#38208#39068#33394#9'F'#9)
      DataField = 'Plate_no'
      DataSource = dsBaseInfo
      LookupTable = Qplate
      LookupField = 'plate_no'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight]
      TabOrder = 6
      AutoDropDown = True
      ShowButton = False
      PreciseEditRegion = False
      AllowClearKey = False
      OnCloseUp = wwDBLookupCombo1CloseUp
    end
  end
  object GroupBox1: TGroupBox [4]
    Left = 0
    Top = 370
    Width = 1002
    Height = 16
    Align = alTop
    Caption = #26126#32454
    TabOrder = 3
  end
  object Panel2: TPanel [5]
    Left = 0
    Top = 329
    Width = 1002
    Height = 41
    Align = alTop
    TabOrder = 4
    object Label21: TLabel
      Left = 515
      Top = 1
      Width = 486
      Height = 39
      Align = alRight
      Alignment = taCenter
      AutoSize = False
      Caption = '123'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      Layout = tlCenter
    end
    object Button4: TButton
      Left = 22
      Top = 6
      Width = 75
      Height = 25
      Caption = #24405'  '#20837
      TabOrder = 2
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 115
      Top = 6
      Width = 75
      Height = 25
      Caption = #21024'  '#38500
      TabOrder = 0
      OnClick = Button5Click
    end
    object Button1: TButton
      Left = 207
      Top = 7
      Width = 75
      Height = 25
      Caption = #20445'  '#23384
      TabOrder = 1
      OnClick = Button1Click
    end
  end
  object DBGridEh2: TDBGridEh [6]
    Left = 0
    Top = 386
    Width = 1002
    Height = 237
    Align = alClient
    DataSource = dsBaseInfo1
    FooterColor = clWindow
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -13
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    FooterRowCount = 1
    STFilter.Local = True
    STFilter.Visible = True
    SumList.Active = True
    TabOrder = 5
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = 'fid'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'product_line'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'hth'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'buyer'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'xh'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'sizes'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'plate'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'cut_date'
        Footer.Value = #24635#35745#65306
        Footer.ValueType = fvtStaticText
        Footers = <>
        Title.Caption = #25187#27454#26085#26399
      end
      item
        EditButtons = <>
        FieldName = 'cuteder'
        Footers = <>
        Title.Caption = #25187#27454#20154
        Width = 99
      end
      item
        EditButtons = <>
        FieldName = 'cut_money'
        Footer.DisplayFormat = '0.00'#20803
        Footer.ValueType = fvtSum
        Footers = <>
        Title.Caption = #25187#27454#37329#39069
      end
      item
        EditButtons = <>
        FieldName = 'remark'
        Footers = <>
        Title.Caption = #22791#27880
        Width = 500
      end
      item
        EditButtons = <>
        FieldName = 'ids'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'Liable_dept'
        Footers = <>
        Visible = False
      end>
  end
  inherited ALToolbar: TActionList
    Left = 551
    Top = 327
  end
  inherited QBaseInfo: TADOQuery
    Active = True
    AfterScroll = QBaseInfoAfterScroll
    SQL.Strings = (
      'select * from dbo.ccslipfile where 1=0')
    Left = 248
    Top = 272
    object QBaseInfoID: TBCDField
      FieldName = 'ID'
      ReadOnly = True
      Precision = 18
      Size = 0
    end
    object QBaseInfodates: TDateTimeField
      FieldName = 'dates'
    end
    object QBaseInfohth: TStringField
      FieldName = 'hth'
      Size = 30
    end
    object QBaseInfobuyer: TStringField
      FieldName = 'buyer'
      Size = 30
    end
    object QBaseInfoxh: TStringField
      FieldName = 'xh'
      Size = 30
    end
    object QBaseInfosizes: TStringField
      FieldName = 'sizes'
      Size = 30
    end
    object QBaseInfoPlate: TStringField
      FieldName = 'Plate'
      Size = 30
    end
    object QBaseInfoSlip_text: TMemoField
      FieldName = 'Slip_text'
      BlobType = ftMemo
    end
    object QBaseInfoWeight: TBCDField
      FieldName = 'Weight'
      Precision = 18
      Size = 2
    end
    object QBaseInfoGrain: TBCDField
      FieldName = 'Grain'
      Precision = 18
      Size = 0
    end
    object QBaseInfoAmount: TBCDField
      FieldName = 'Amount'
      Precision = 18
      Size = 0
    end
    object QBaseInfoLiabler: TStringField
      FieldName = 'Liabler'
      Size = 30
    end
    object QBaseInfoUp_date: TDateTimeField
      FieldName = 'Up_date'
    end
    object QBaseInfoManage: TMemoField
      FieldName = 'Manage'
      BlobType = ftMemo
    end
    object QBaseInfoChecker: TStringField
      FieldName = 'Checker'
      Size = 30
    end
    object QBaseInfoLiable_dept: TStringField
      FieldName = 'Liable_dept'
      Size = 30
    end
    object QBaseInforemark: TStringField
      FieldName = 'remark'
      Size = 100
    end
    object QBaseInfoimages: TBlobField
      FieldName = 'images'
    end
    object QBaseInfosavedate: TDateTimeField
      FieldName = 'savedate'
    end
    object QBaseInfoinputer: TStringField
      FieldName = 'inputer'
      Size = 30
    end
    object QBaseInfoSum_losing: TBCDField
      FieldName = 'Sum_losing'
      Precision = 18
      Size = 6
    end
    object QBaseInfoDirect_losing: TBCDField
      FieldName = 'Direct_losing'
      Precision = 18
      Size = 6
    end
    object QBaseInfomachine_No: TStringField
      FieldName = 'machine_No'
      Size = 30
    end
    object QBaseInfoworking_procedure: TStringField
      FieldName = 'working_procedure'
      Size = 30
    end
    object QBaseInfotechnics: TStringField
      FieldName = 'technics'
      Size = 30
    end
    object QBaseInfoproduct_line: TStringField
      FieldName = 'product_line'
      Size = 30
    end
    object QBaseInfoPlate_no: TStringField
      FieldName = 'Plate_no'
      Size = 10
    end
    object QBaseInfosplate: TStringField
      FieldKind = fkLookup
      FieldName = 'splate'
      LookupDataSet = Qplate
      LookupKeyFields = 'plate_no'
      LookupResultField = 'plate_name'
      KeyFields = 'Plate_no'
      Size = 50
      Lookup = True
    end
  end
  inherited dsBaseInfo: TDataSource
    Left = 398
    Top = 260
  end
  inherited QIsUnique: TADOQuery
    Left = 351
    Top = 282
  end
  inherited wwLookupDlg: TwwLookupDialog
    Left = 299
    Top = 317
  end
  inherited dsQTemp: TDataSource
    Left = 624
    Top = 230
  end
  inherited QTemp: TADOQuery
    Left = 203
    Top = 383
  end
  inherited SaveDialog1: TSaveDialog
    Left = 496
    Top = 227
  end
  object QBaseInfo1: TADOQuery
    Connection = dmClient.adocnequip_manage
    CursorType = ctStatic
    Filtered = True
    AfterScroll = QBaseInfo1AfterScroll
    OnNewRecord = QBaseInfo1NewRecord
    DataSource = dsBaseInfo
    Parameters = <
      item
        Name = 'id'
        Attributes = [paSigned]
        DataType = ftBCD
        Precision = 18
        Size = 19
        Value = Null
      end>
    SQL.Strings = (
      
        'select ids,fid,hth,buyer,xh,sizes,plate,plate_no,cuteder,cut_mon' +
        'ey,cut_date,remark,product_line,Liable_dept from CcSlipfile_deta' +
        'il where fid=:id')
    Left = 605
    Top = 275
    object QBaseInfo1fid: TBCDField
      FieldName = 'fid'
      Precision = 18
      Size = 0
    end
    object QBaseInfo1product_line: TStringField
      FieldName = 'product_line'
      Size = 30
    end
    object QBaseInfo1hth: TStringField
      FieldName = 'hth'
      Size = 30
    end
    object QBaseInfo1buyer: TStringField
      FieldName = 'buyer'
      Size = 30
    end
    object QBaseInfo1xh: TStringField
      FieldName = 'xh'
      Size = 30
    end
    object QBaseInfo1sizes: TStringField
      FieldName = 'sizes'
      Size = 30
    end
    object QBaseInfo1plate: TStringField
      FieldName = 'plate'
      Size = 30
    end
    object QBaseInfo1cuteder: TStringField
      FieldName = 'cuteder'
      Size = 30
    end
    object QBaseInfo1cut_money: TBCDField
      FieldName = 'cut_money'
      Precision = 18
      Size = 0
    end
    object QBaseInfo1cut_date: TDateTimeField
      FieldName = 'cut_date'
    end
    object QBaseInfo1remark: TStringField
      FieldName = 'remark'
      Size = 800
    end
    object QBaseInfo1ids: TBCDField
      FieldName = 'ids'
      Precision = 18
      Size = 0
    end
    object QBaseInfo1Liable_dept: TStringField
      FieldName = 'Liable_dept'
      Size = 30
    end
    object QBaseInfo1plate_no: TStringField
      FieldName = 'plate_no'
      Size = 10
    end
  end
  object dsBaseInfo1: TDataSource
    DataSet = QBaseInfo1
    Left = 511
    Top = 283
  end
  object QDept: TADOQuery
    Connection = dmClient.adocnequip_manage
    Parameters = <>
    Left = 126
    Top = 389
  end
  object PopupMenu1: TPopupMenu
    Left = 413
    Top = 281
    object N1: TMenuItem
    end
  end
  object QProduct_line: TADOQuery
    Connection = dmClient.adocnequip_manage
    Parameters = <>
    Left = 856
    Top = 162
  end
  object Qplate: TADOQuery
    Active = True
    Connection = dmClient.adocnequip_manage
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from plate_info')
    Left = 296
    Top = 198
  end
end