technicsflow.dfm

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

inherited frmTechnicsFlow: TfrmTechnicsFlow
  Left = 208
  Top = 186
  Width = 800
  Height = 500
  Caption = #30005#38208#24037#33402#27969#31243
  PixelsPerInch = 96
  TextHeight = 13
  inherited DBGridEh1: TDBGridEh
    Width = 792
    Height = 435
    ColumnDefValues.DblClickNextVal = True
    ColumnDefValues.EndEllipsis = True
    EditActions = [geaCutEh, geaCopyEh, geaPasteEh, geaDeleteEh, geaSelectAllEh]
    FixedColor = clWindow
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
    ParentFont = False
    SumList.Active = True
    SumList.VirtualRecords = True
    UseMultiTitle = True
    VertScrollBar.Tracking = True
    OnMouseDown = DBGridEh1MouseDown
    Columns = <
      item
        EditButtons = <>
        FieldName = 'id'
        Footers = <>
        Visible = False
      end
      item
        DropDownBox.ColumnDefValues.EndEllipsis = True
        DropDownBox.ColumnDefValues.Title.ToolTips = True
        DropDownBox.ColumnDefValues.ToolTips = True
        DropDownBox.Columns = <
          item
            FieldName = 'plate_no'
          end
          item
            FieldName = 'plate'
          end>
        DropDownBox.Options = [dlgColumnResizeEh, dlgColLinesEh, dlgRowLinesEh, dlgAutoSortMarkingEh, dlgMultiSortMarkingEh]
        DropDownBox.UseMultiTitle = True
        DropDownSpecRow.Visible = True
        EditButtons = <>
        FieldName = 'Property'
        Footers = <>
        Title.Caption = #23646#24615
        Title.ToolTips = True
        Width = 60
      end
      item
        DropDownBox.ColumnDefValues.EndEllipsis = True
        DropDownBox.ColumnDefValues.Title.ToolTips = True
        DropDownBox.ColumnDefValues.ToolTips = True
        DropDownBox.Options = [dlgColumnResizeEh, dlgColLinesEh]
        DropDownBox.UseMultiTitle = True
        DropDownRows = 14
        DropDownSpecRow.Visible = True
        DropDownWidth = -1
        EditButtons = <>
        FieldName = 'splate_no'
        Footers = <>
        LookupDisplayFields = 'plate_no;plate_name'
        Title.Caption = #30005#38208#32534#21495
        ToolTips = True
        Width = 60
      end
      item
        EditButtons = <>
        FieldName = 'plate'
        Footers = <>
        Title.Caption = #38208#31181
        Width = 120
      end
      item
        EditButtons = <>
        FieldName = 'TechnicsFlow'
        Footers = <>
        Title.Caption = #24037#33402
        Width = 420
      end
      item
        EditButtons = <>
        FieldName = 'remark'
        Footers = <>
        Title.Caption = #22791#27880
        Width = 90
      end>
  end
  inherited ToolBar: TToolBar
    Width = 792
  end
  inherited QBaseInfo: TADOQuery
    Active = True
    SQL.Strings = (
      'select * from CcTechnicsFlow')
    object QBaseInfoid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object QBaseInfoplate_no: TStringField
      FieldName = 'plate_no'
      Size = 10
    end
    object QBaseInfoProperty: TStringField
      FieldName = 'Property'
      Size = 50
    end
    object QBaseInfoplate: TStringField
      FieldName = 'plate'
      Size = 50
    end
    object QBaseInfosplate_no: TStringField
      FieldKind = fkLookup
      FieldName = 'splate_no'
      LookupDataSet = qry1
      LookupKeyFields = 'plate_no;plate_name'
      LookupResultField = 'plate_no'
      KeyFields = 'plate_no;plate'
      Size = 50
      Lookup = True
    end
    object QBaseInfoTechnicsFlow: TStringField
      FieldName = 'TechnicsFlow'
      Size = 50
    end
    object QBaseInforemark: TStringField
      FieldName = 'remark'
      Size = 50
    end
  end
  object ds1: TDataSource
    AutoEdit = False
    DataSet = qry1
    Left = 467
    Top = 134
  end
  object qry1: TADOQuery
    Active = True
    Connection = dmClient.adocnequip_manage
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM plate_info ')
    Left = 433
    Top = 135
    object qry1plate_no: TStringField
      DisplayLabel = #30005#38208#32534#21495
      FieldName = 'plate_no'
      ReadOnly = True
      Size = 30
    end
    object qry1plate_name: TStringField
      DisplayLabel = #38208#31181
      FieldName = 'plate_name'
      ReadOnly = True
      Size = 60
    end
  end
  object PrintDBGridEh1: TPrintDBGridEh
    DBGridEh = DBGridEh1
    Options = [pghFitGridToPageWidth]
    Page.BottomMargin = 1.000000000000000000
    Page.LeftMargin = 1.000000000000000000
    Page.RightMargin = 1.000000000000000000
    Page.TopMargin = 1.000000000000000000
    PageFooter.Font.Charset = DEFAULT_CHARSET
    PageFooter.Font.Color = clWindowText
    PageFooter.Font.Height = -11
    PageFooter.Font.Name = 'MS Sans Serif'
    PageFooter.Font.Style = []
    PageHeader.Font.Charset = DEFAULT_CHARSET
    PageHeader.Font.Color = clWindowText
    PageHeader.Font.Height = -11
    PageHeader.Font.Name = 'MS Sans Serif'
    PageHeader.Font.Style = []
    Units = MM
    Left = 344
    Top = 248
    BeforeGridText_Data = {
      7B5C727466315C616E73695C616E73696370673933365C64656666305C646566
      6C616E67313033335C6465666C616E676665323035327B5C666F6E7474626C7B
      5C66305C666E696C5C6663686172736574313334204D532053616E7320536572
      69663B7D7D0D0A5C766965776B696E64345C7563315C706172645C71635C6C61
      6E67323035325C625C66305C667332342064616767666164675C756C200D0A5C
      706172205C706172645C756C6E6F6E655C62305C66733136200D0A5C70617220
      7D0D0A00}
  end
  object Qpublic: TADOQuery
    Connection = dmClient.adocnequip_manage
    Parameters = <>
    Left = 328
    Top = 176
  end
end