baseworkingprocedure.dfm

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

inherited frmBaseWorkingProcedure: TfrmBaseWorkingProcedure
  Left = 264
  Top = 203
  Width = 612
  Caption = #24037#24207#21517#31216
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter [0]
    Left = 337
    Top = 38
    Width = 4
    Height = 363
  end
  inherited ToolBar: TToolBar
    Width = 604
  end
  object DBGrid1: TDBGrid [2]
    Left = 0
    Top = 38
    Width = 337
    Height = 363
    Align = alLeft
    DataSource = dsBaseInfo
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'WorkingProcedureNO'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'WorkingProcedureName'
        Width = 63
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Orders'
        Width = 61
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'WorkShop'
        Width = 117
        Visible = True
      end>
  end
  object Panel1: TPanel [3]
    Left = 341
    Top = 38
    Width = 263
    Height = 363
    Align = alClient
    TabOrder = 2
    object Panel2: TPanel
      Left = 16
      Top = 10
      Width = 241
      Height = 383
      BevelOuter = bvNone
      BorderStyle = bsSingle
      TabOrder = 0
      object Label2: TLabel
        Left = 0
        Top = 71
        Width = 83
        Height = 17
        Alignment = taRightJustify
        AutoSize = False
        Caption = #24037#24207#21517#31216#65306
      end
      object Label1: TLabel
        Left = 0
        Top = 31
        Width = 83
        Height = 17
        Alignment = taRightJustify
        AutoSize = False
        Caption = #24037#24207#32534#30721#65306
      end
      object Label3: TLabel
        Left = 0
        Top = 111
        Width = 83
        Height = 17
        Alignment = taRightJustify
        AutoSize = False
        Caption = #39034' '#24207' '#21495#65306
      end
      object Label4: TLabel
        Left = 0
        Top = 151
        Width = 83
        Height = 17
        Alignment = taRightJustify
        AutoSize = False
        Caption = #25152#23646#36710#38388#65306
      end
      object DBEdit2: TDBEdit
        Left = 85
        Top = 62
        Width = 119
        Height = 21
        DataField = 'WorkingProcedureName'
        DataSource = dsBaseInfo
        TabOrder = 1
      end
      object DBEdit1: TDBEdit
        Left = 84
        Top = 24
        Width = 121
        Height = 21
        DataField = 'WorkingProcedureNO'
        DataSource = dsBaseInfo
        TabOrder = 0
      end
      object DBEdit3: TDBEdit
        Left = 85
        Top = 101
        Width = 121
        Height = 21
        DataField = 'Orders'
        DataSource = dsBaseInfo
        TabOrder = 2
      end
      object DBEdit4: TDBEdit
        Left = 85
        Top = 144
        Width = 121
        Height = 21
        DataField = 'WorkShop'
        DataSource = dsBaseInfo
        TabOrder = 3
      end
    end
  end
  inherited ALToolbar: TActionList
    Top = 8
  end
  inherited QBaseInfo: TADOQuery
    Active = True
    AfterInsert = QBaseInfoAfterInsert
    SQL.Strings = (
      'select * from dbo.CcWorkingProcedure order by orders')
    Left = 408
    Top = 8
    object QBaseInfoWorkingProcedureNO: TStringField
      DisplayLabel = #24037#24207#32534#30721
      DisplayWidth = 5
      FieldName = 'WorkingProcedureNO'
      Size = 6
    end
    object QBaseInfoWorkingProcedureName: TStringField
      DisplayLabel = #24037#24207#21517#31216
      DisplayWidth = 10
      FieldName = 'WorkingProcedureName'
      Size = 30
    end
    object QBaseInfoOrders: TIntegerField
      DisplayLabel = #39034#24207#21495
      DisplayWidth = 5
      FieldName = 'Orders'
    end
    object QBaseInfoWorkShop: TStringField
      DisplayLabel = #25152#23646#36710#38388
      DisplayWidth = 10
      FieldName = 'WorkShop'
    end
  end
  inherited dsBaseInfo: TDataSource
    Left = 440
    Top = 8
  end
  inherited QIsUnique: TADOQuery
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'code'
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      '')
    Top = 37
  end
  inherited wwLookupDlg: TwwLookupDialog
    Selected.Strings = (
      'WorkingProcedureNO'#9'5'#9#24037#24207#32534#30721#9'F'
      'WorkingProcedureName'#9'10'#9#24037#24207#21517#31216#9'F'
      'Orders'#9'5'#9#39034#24207#21495#9'F'
      'WorkShop'#9'10'#9#25152#23646#36710#38388#9'F')
    Left = 512
    Top = 34
  end
  inherited QTemp: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'select * from dbo.TTechnicsSort order by fid')
  end
end