unit1.dfm

Navision ERP 极品补丁

object Form1: TForm1
  Left = 202
  Top = 116
  Width = 746
  Height = 480
  Caption = 'Navision ERP KIT ~'#37096#38376#20154#25968#38480#21046
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 738
    Height = 73
    Align = alTop
    BevelInner = bvLowered
    Caption = ' '
    TabOrder = 0
    object BitBtn1: TBitBtn
      Left = 40
      Top = 24
      Width = 75
      Height = 25
      Caption = #28155#21152
      TabOrder = 0
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 144
      Top = 24
      Width = 75
      Height = 25
      Caption = #20445#23384
      TabOrder = 1
      OnClick = BitBtn2Click
    end
    object BitBtn3: TBitBtn
      Left = 252
      Top = 24
      Width = 75
      Height = 25
      Caption = #20462#25913
      TabOrder = 2
      OnClick = BitBtn3Click
    end
    object BitBtn4: TBitBtn
      Left = 356
      Top = 24
      Width = 75
      Height = 25
      Caption = #21024#38500
      TabOrder = 3
      OnClick = BitBtn4Click
    end
    object BitBtn5: TBitBtn
      Left = 448
      Top = 24
      Width = 75
      Height = 25
      Caption = #21462#28040
      TabOrder = 4
      OnClick = BitBtn5Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 73
    Width = 738
    Height = 361
    Align = alClient
    BevelInner = bvLowered
    Caption = 'Panel2'
    TabOrder = 1
    object PageControl1: TPageControl
      Left = 2
      Top = 2
      Width = 734
      Height = 357
      ActivePage = TabSheet1
      Align = alClient
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = #20154#21592#32500#25252#30028#38754
        object Panel3: TPanel
          Left = 0
          Top = 0
          Width = 726
          Height = 65
          Align = alTop
          BevelInner = bvLowered
          TabOrder = 0
          object Label1: TLabel
            Left = 32
            Top = 16
            Width = 60
            Height = 13
            AutoSize = False
            Caption = #21592#24037#24037#21495#65306
          end
          object Label2: TLabel
            Left = 247
            Top = 14
            Width = 60
            Height = 13
            AutoSize = False
            Caption = #21592#24037#22995#21517#65306
          end
          object Label3: TLabel
            Left = 481
            Top = 13
            Width = 60
            Height = 13
            Caption = #21592#24037#37096#38376#65306
          end
          object Edit1: TEdit
            Left = 96
            Top = 12
            Width = 102
            Height = 21
            TabOrder = 0
          end
          object Edit2: TEdit
            Left = 311
            Top = 12
            Width = 101
            Height = 21
            TabOrder = 1
          end
          object DBComboBox1: TDBComboBox
            Left = 545
            Top = 11
            Width = 105
            Height = 21
            ItemHeight = 13
            ReadOnly = True
            TabOrder = 2
          end
        end
        object Panel4: TPanel
          Left = 0
          Top = 65
          Width = 726
          Height = 264
          Align = alClient
          BevelInner = bvLowered
          TabOrder = 1
          object DBGrid1: TDBGrid
            Left = 2
            Top = 2
            Width = 722
            Height = 260
            Align = alClient
            DataSource = ygds
            Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
            ReadOnly = True
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'userid'
                Title.Caption = #21592#24037#24037#21495
                Width = 100
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'username'
                Title.Caption = #21592#24037#22995#21517
                Width = 120
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'userbmmc'
                Title.Caption = #37096#38376#21517#31216
                Width = 120
                Visible = True
              end>
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = #37096#38376#32500#25252#30028#38754
        ImageIndex = 1
        TabVisible = False
        object Panel5: TPanel
          Left = 0
          Top = 0
          Width = 726
          Height = 61
          Align = alTop
          BevelInner = bvLowered
          TabOrder = 0
          object Label4: TLabel
            Left = 24
            Top = 16
            Width = 57
            Height = 13
            AutoSize = False
            Caption = #37096#38376#32534#21495':'
          end
          object Label5: TLabel
            Left = 215
            Top = 16
            Width = 57
            Height = 13
            AutoSize = False
            Caption = #37096#38376#21517#31216':'
          end
          object Label6: TLabel
            Left = 410
            Top = 15
            Width = 65
            Height = 13
            AutoSize = False
            Caption = #20154#25968#38480#21046':'
          end
          object Edit3: TEdit
            Left = 80
            Top = 14
            Width = 121
            Height = 21
            TabOrder = 0
          end
          object Edit4: TEdit
            Left = 272
            Top = 11
            Width = 121
            Height = 21
            TabOrder = 1
          end
          object Edit5: TEdit
            Left = 471
            Top = 11
            Width = 121
            Height = 21
            TabOrder = 2
          end
        end
        object Panel6: TPanel
          Left = 0
          Top = 61
          Width = 726
          Height = 268
          Align = alClient
          BevelInner = bvLowered
          TabOrder = 1
          object DBGrid2: TDBGrid
            Left = 2
            Top = 2
            Width = 722
            Height = 264
            Align = alClient
            DataSource = bmds
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'bmid'
                Title.Caption = #37096#38376' ID'
                Width = 120
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'bmmc'
                Title.Caption = #37096#38376#21517#31216
                Width = 120
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'rsxz'
                Title.Caption = #20154#25968#38480#21046
                Width = 100
                Visible = True
              end>
          end
        end
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 648
    object N1: TMenuItem
      Caption = #25805#20316
      object N2: TMenuItem
        Caption = #21592#24037#32500#25252
        OnClick = N2Click
      end
      object N3: TMenuItem
        Caption = #37096#38376#32500#25252
        OnClick = N3Click
      end
    end
  end
  object ADOC2: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=051009;Persist Security Info=True;U' +
      'ser ID=a2308;Initial Catalog=debug;Data Source=172.16.1.21'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'SQLOLEDB.1'
    Left = 488
  end
  object ygadoq: TADOQuery
    Active = True
    Connection = ADOC2
    CursorType = ctStatic
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'select * from kit_user')
    Left = 520
  end
  object ygds: TDataSource
    DataSet = ygadoq
    Left = 552
  end
  object bmadq: TADOQuery
    Active = True
    Connection = ADOC2
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from kit_bm')
    Left = 584
  end
  object bmds: TDataSource
    DataSet = bmadq
    Left = 616
  end
end