baseemergy.dfm

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

inherited frmBaseEmergy: TfrmBaseEmergy
  Left = 273
  Top = 230
  Width = 520
  Height = 310
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #32039#24613#31383#21475
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object wwDGDetail: TwwDBGrid
    Left = 0
    Top = 0
    Width = 512
    Height = 194
    ControlType.Strings = (
      'sProdCode;CustomEdit;wwDBLKProductCode;F'
      'bFlag;CheckBox;True;False')
    Selected.Strings = (
      'aId'#9'4'#9'ID'
      'aName'#9'10'#9#24080#22871#21517#31216
      'aDataBaseName'#9'10'#9#25968#25454#24211#21517
      'aDate'#9'9'#9#24314#24080#26085#26399
      'aUser'#9'8'#9#31649#29702#21592
      'aTakeEffect'#9'5'#9#26159#21542#21551#29992
      'aCompanyName'#9'15'#9#20844#21496#21517#31216
      'aFilePath'#9'15'#9#25991#20214#36335#24452)
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Align = alClient
    DataSource = dsAccount
    KeyOptions = [dgEnterToTab, dgAllowDelete, dgAllowInsert]
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
    ReadOnly = True
    TabOrder = 1
    TitleAlignment = taLeftJustify
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 194
    Width = 512
    Height = 89
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 8
      Width = 52
      Height = 13
      Caption = #29992#25143#21517#65306
    end
    object Label2: TLabel
      Left = 24
      Top = 32
      Width = 39
      Height = 13
      Caption = #23494#30721#65306
    end
    object btnOk: TButton
      Left = 336
      Top = 60
      Width = 75
      Height = 25
      Caption = #30830#23450
      TabOrder = 2
      OnClick = btnOkClick
    end
    object btnCancel: TButton
      Left = 424
      Top = 60
      Width = 75
      Height = 25
      Caption = #21462#28040
      ModalResult = 2
      TabOrder = 3
      OnClick = btnCancelClick
    end
    object edtUser: TEdit
      Left = 72
      Top = 8
      Width = 121
      Height = 21
      TabOrder = 0
    end
    object edtPWD: TEdit
      Left = 72
      Top = 32
      Width = 121
      Height = 21
      TabOrder = 1
    end
    object rbUnDel: TRadioButton
      Left = 232
      Top = 8
      Width = 113
      Height = 17
      Caption = #38544#34255#36873#20013#30340#24080#22871
      TabOrder = 4
    end
    object rbDel: TRadioButton
      Left = 232
      Top = 32
      Width = 233
      Height = 17
      Caption = #21024#38500#36873#20013#30340#24080#22871'('#19981#21487#24674#22797')'#65281#65281
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
    end
  end
  object qAccount: TADOQuery
    Active = True
    Connection = dmClient.adocnClothingSys
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from tAccount')
    Left = 40
    Top = 56
  end
  object spDetachDB: TADOStoredProc
    Connection = dmClient.adocnClothingSys
    ProcedureName = 'spDetachDB;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@dName'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Size = 50
        Value = Null
      end
      item
        Name = '@bDelDB'
        Attributes = [paNullable]
        DataType = ftString
        Size = 1
        Value = Null
      end>
    Left = 8
    Top = 56
  end
  object dsAccount: TDataSource
    AutoEdit = False
    DataSet = qAccount
    Left = 104
    Top = 56
  end
  object qSystemManager: TADOQuery
    Connection = dmClient.adocnClothingSys
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'sCode'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end
      item
        Name = 'sPassword'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select sID,sCode,sPassword from tSystemManager'
      '  where sCode=:sCode and sPassword=:sPassword'
      '')
    Left = 16
    Top = 128
  end
end