machineset.dfm

用户名：SYSTEM 密码：空 第一次运行请先恢复数据库 DATABASE 到SQL服务器

inherited fMachineSet: TfMachineSet
  Left = 266
  Top = 195
  BorderIcons = [biSystemMenu]
  Caption = #32771#21220#27231#35373#32622
  ClientHeight = 225
  ClientWidth = 367
  PixelsPerInch = 96
  TextHeight = 13
  inherited Bevel1: TBevel
    Width = 367
    Height = 39
  end
  inherited Label1: TLabel
    Top = 11
    Width = 105
    Caption = #32771#21220#27231#35373#32622
  end
  inherited Image1: TImage
    Top = 3
    Height = 34
    Picture.Data = {
      055449636F6E0000010001002020100000000000E80200001600000028000000
      2000000040000000010004000000000080020000000000000000000000000000
      0000000000000000000080000080000000808000800000008000800080800000
      C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
      FFFFFF0000000000000000000000000000000000011111111111111111111111
      111111100DDDDDDDDDDDDDDDDDDDDDDDDDDDDD100D1011111111111111111111
      11111D100D107777777777777777777777771D100D1077777777777007777777
      77771D100D1077777700777F0777007777771D100D10777777F077777777F077
      77771D100D107777777777777777777777771D100D1077777777777777777777
      77771D100D107700777777777777777700771D100D1077F07777777777777777
      F0771D100D107777777770770777777777771D100D1077777777770707777777
      77771D100D107777777777700777777777771D100D1070077777770000000007
      70071D100D107F0777777777007777777F071D100D1077777777777707077777
      77771D100D107777777777770777777777771D100D1077777777777707777777
      77771D100D107700777777770777777700771D100D1077F07777777707777777
      F0771D100D107777777777770777777777771D100D1077777777777777777777
      77771D100D107777770077777777007777771D100D10777777F077700777F077
      77771D100D1077777777777F0777777777771D100D1077777777777777777777
      77771D100D100000000000000000000000000D100D1111111111111111111111
      11111D100DDDDDDDDDDDDDDDDDDDDDDDDDDDDD10000000000000000000000000
      0000000080000001000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      80000001}
  end
  inherited btnExit: TBitBtn
    Left = 266
    Top = 0
    Height = 36
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 40
    Width = 363
    Height = 185
    ActivePage = TabSheet1
    TabIndex = 0
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = #36575#39636#35373#35373#23450
      object Panel1: TPanel
        Left = 3
        Top = 2
        Width = 223
        Height = 89
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 0
        object Label2: TLabel
          Left = 14
          Top = 64
          Width = 29
          Height = 13
          Caption = #27231#34399':'
        end
        object Label3: TLabel
          Left = 111
          Top = 64
          Width = 13
          Height = 13
          Caption = #33267
        end
        object RadioGroup1: TRadioGroup
          Left = 14
          Top = 7
          Width = 177
          Height = 48
          Caption = 'Com'#31471#21475
          Columns = 2
          ItemIndex = 0
          Items.Strings = (
            'COM1'
            'COM2')
          TabOrder = 0
        end
        object speMachineStart: TSpinEdit
          Left = 46
          Top = 59
          Width = 63
          Height = 22
          MaxValue = 255
          MinValue = 1
          TabOrder = 1
          Value = 1
        end
        object speMachineEnd: TSpinEdit
          Left = 128
          Top = 59
          Width = 63
          Height = 22
          MaxValue = 255
          MinValue = 1
          TabOrder = 2
          Value = 1
        end
      end
      object Memo1: TMemo
        Left = -1
        Top = 94
        Width = 356
        Height = 64
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 1
      end
      object BitBtn1: TBitBtn
        Left = 238
        Top = 18
        Width = 113
        Height = 25
        Caption = #28204#35430#27231#22120
        TabOrder = 2
        OnClick = BitBtn1Click
      end
      object BitBtn2: TBitBtn
        Left = 238
        Top = 50
        Width = 113
        Height = 25
        Caption = #35373#32622#32771#21220#27231#26178#38291
        TabOrder = 3
        OnClick = BitBtn2Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = #30828#39636#35373#23450
      ImageIndex = 1
      object Label4: TLabel
        Left = 8
        Top = 12
        Width = 333
        Height = 65
        Caption = 
          '       '#30070#24744#35201#31649#29702#22810#21488#32771#21220#27231#26178#24744#38656#35201#32102#27599#19968#21488#27231#22120#19968#20491#21807#19968#32232#34399#12290#20351#29992#26412#21151#33021#21069#65104#35531#20808#38364#38281#32771#21220#27231#38651#28304#65104#21368#38283#32771#21220#27231#35373#32622'JP1'#36339#32218#28982 +
          #21518#38283#21855#32771#21220#27231#38651#28304#65104#28982#21518#36664#20837#24744#25351#23450#30340#32232#34399#25353#19979#35373#23450#25353#37397#65104#30070#35373#23450#25104#21151#21518#20877#38364#38281#32771#21220#27231#38651#28304#23559#32771#21220#27231'JP1'#36339#32218#25300#38500','#28982#21518#20877#38283#21855#32771#21220#27231#38651#28304#12290
        Font.Charset = CHINESEBIG5_CHARSET
        Font.Color = clRed
        Font.Height = -13
        Font.Name = #26032#32048#26126#39636
        Font.Style = []
        ParentFont = False
        WordWrap = True
      end
      object Label5: TLabel
        Left = 16
        Top = 96
        Width = 52
        Height = 13
        Caption = #35373#23450#32232#34399
      end
      object SpinEdit1: TSpinEdit
        Left = 70
        Top = 91
        Width = 73
        Height = 22
        MaxValue = 255
        MinValue = 1
        TabOrder = 0
        Value = 1
      end
      object BitBtn3: TBitBtn
        Left = 152
        Top = 87
        Width = 89
        Height = 30
        Caption = #35373#23450
        Enabled = False
        TabOrder = 1
        OnClick = BitBtn3Click
      end
    end
    object TabSheet3: TTabSheet
      Caption = #38272#31105#32771#21220#27231#21151#33021#35373#23450
      ImageIndex = 2
      object wwDBGrid1: TwwDBGrid
        Left = 0
        Top = 3
        Width = 356
        Height = 125
        ControlType.Strings = (
          'cFunction;CustomEdit;wwDBComboBox1;F')
        Selected.Strings = (
          'iMachineNo'#9'4'#9#27231#34399
          'cMachineAddress'#9'18'#9#35498#26126#9'F'
          'cFunction'#9'10'#9#32771#21220'/'#38272#31105
          'cUser'#9'9'#9#29992#25142
          'tUpdateTime'#9'22'#9#26356#26032#26178#38291
          'cAction'#9'4'#9#21205#20316#9'F')
        IniAttributes.Delimiter = ';;'
        TitleColor = clBtnFace
        FixedCols = 0
        ShowHorzScrollBar = True
        DataSource = DataSource1
        ReadOnly = True
        TabOrder = 0
        TitleAlignment = taCenter
        TitleFont.Charset = CHINESEBIG5_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = #26032#32048#26126#39636
        TitleFont.Style = []
        TitleLines = 1
        TitleButtons = False
        UseTFields = False
        PaintOptions.AlternatingRowColor = clInfoBk
      end
      object BitBtn4: TBitBtn
        Left = 4
        Top = 131
        Width = 61
        Height = 25
        Caption = #26032#22686
        TabOrder = 1
        OnClick = BitBtn4Click
      end
      object BitBtn5: TBitBtn
        Left = 68
        Top = 131
        Width = 61
        Height = 25
        Caption = #20462#25913
        TabOrder = 2
        OnClick = BitBtn5Click
      end
      object BitBtn6: TBitBtn
        Left = 132
        Top = 131
        Width = 61
        Height = 25
        Caption = #21034#38500
        TabOrder = 3
        OnClick = BitBtn6Click
      end
    end
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = fDataMod.AdoCon
    CursorType = ctStatic
    BeforePost = ADOQuery1BeforePost
    Parameters = <>
    SQL.Strings = (
      'Select * From MachineInfo  Order by iMachineNO')
    Left = 152
    Top = 136
    object ADOQuery1iMachineNo: TIntegerField
      FieldName = 'iMachineNo'
    end
    object ADOQuery1cMachineAddress: TStringField
      FieldName = 'cMachineAddress'
      Size = 50
    end
    object ADOQuery1cFunction: TStringField
      Alignment = taCenter
      FieldName = 'cFunction'
      Size = 10
    end
    object ADOQuery1cUser: TStringField
      Alignment = taCenter
      FieldName = 'cUser'
      Size = 8
    end
    object ADOQuery1tUpdateTime: TDateTimeField
      FieldName = 'tUpdateTime'
    end
    object ADOQuery1cAction: TStringField
      Alignment = taCenter
      FieldName = 'cAction'
      Size = 4
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 184
    Top = 136
  end
end