databaseoperator.~dfm

数据库操作

object frmDatabaseMgr: TfrmDatabaseMgr
  Left = 276
  Top = 114
  Width = 705
  Height = 498
  AutoSize = True
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'frmDatabaseMgr'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object Splitter2: TSplitter
    Left = 0
    Top = 190
    Width = 697
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object statusShowError: TStatusBar
    Left = 0
    Top = 448
    Width = 697
    Height = 22
    Panels = <
      item
        Width = 100
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object panelMainMenu: TPanel
    Left = 0
    Top = 0
    Width = 697
    Height = 190
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 553
      Top = 0
      Width = 3
      Height = 190
      Cursor = crHSplit
      Align = alRight
    end
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 553
      Height = 190
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 0
      object lblALLCardCode: TLabel
        Left = 16
        Top = 9
        Width = 63
        Height = 14
        Caption = '卡接人号:'
      end
      object lalAllPassword: TLabel
        Left = 288
        Top = 9
        Width = 63
        Height = 14
        Caption = '管理密码:'
      end
      object lblOutDial: TLabel
        Left = 288
        Top = 71
        Width = 63
        Height = 14
        Caption = '外拨字头:'
      end
      object lalCardState: TLabel
        Left = 288
        Top = 40
        Width = 63
        Height = 14
        Caption = '卡 状 态:'
      end
      object lallCardKind: TLabel
        Left = 16
        Top = 40
        Width = 63
        Height = 14
        Caption = '卡 类 型:'
      end
      object lblRemark: TLabel
        Left = 16
        Top = 71
        Width = 63
        Height = 14
        Caption = '备    注:'
      end
      object editInputCardCode: TEdit
        Left = 88
        Top = 5
        Width = 169
        Height = 22
        TabOrder = 0
      end
      object editInputCardPass: TEdit
        Left = 361
        Top = 5
        Width = 161
        Height = 22
        TabOrder = 1
      end
      object comboCardState: TComboBox
        Left = 361
        Top = 36
        Width = 161
        Height = 22
        ItemHeight = 14
        TabOrder = 2
        Items.Strings = (
          '未启用'
          '已开通'
          '已停机'
          '因欠费被停机'
          '已注销')
      end
      object editOutDial: TEdit
        Left = 361
        Top = 67
        Width = 161
        Height = 22
        TabOrder = 3
      end
      object comboCardKind: TComboBox
        Left = 88
        Top = 36
        Width = 169
        Height = 22
        ItemHeight = 14
        TabOrder = 4
        Items.Strings = (
          '记帐卡'
          '智能IC卡'
          '公司卡'
          '酒店卡')
      end
      object editRemark: TEdit
        Left = 88
        Top = 67
        Width = 169
        Height = 22
        TabOrder = 5
      end
      object radiogrpShowCaller: TRadioGroup
        Left = 16
        Top = 102
        Width = 241
        Height = 59
        Caption = '主叫显示'
        Columns = 2
        ItemIndex = 0
        Items.Strings = (
          '显示卡号'
          '显示主叫号码')
        TabOrder = 6
      end
      object radiogrpFeeCheck: TRadioGroup
        Left = 288
        Top = 102
        Width = 234
        Height = 59
        Caption = '话费检测'
        Columns = 2
        ItemIndex = 0
        Items.Strings = (
          '后付费'
          '预付费')
        TabOrder = 7
      end
    end
    object Panel2: TPanel
      Left = 556
      Top = 0
      Width = 141
      Height = 190
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 1
      object btnQuery: TButton
        Left = 35
        Top = 4
        Width = 66
        Height = 25
        Caption = '查询(&Q)'
        TabOrder = 0
        OnClick = btnQueryClick
      end
      object btnAdd: TButton
        Left = 35
        Top = 35
        Width = 67
        Height = 25
        Caption = '新增(&A)'
        TabOrder = 1
        OnClick = btnAddClick
      end
      object btnModify: TButton
        Left = 35
        Top = 67
        Width = 67
        Height = 25
        Caption = '修改(&M)'
        TabOrder = 2
        OnClick = btnModifyClick
      end
      object btnDelete: TButton
        Left = 35
        Top = 98
        Width = 67
        Height = 25
        Caption = '删除(&D)'
        TabOrder = 3
        OnClick = btnDeleteClick
      end
      object btnClear: TButton
        Left = 35
        Top = 132
        Width = 67
        Height = 22
        Caption = '清空(&C)'
        TabOrder = 4
        OnClick = btnClearClick
      end
      object btnExit: TButton
        Left = 35
        Top = 160
        Width = 67
        Height = 25
        Caption = '退出(&X)'
        TabOrder = 5
        OnClick = btnExitClick
      end
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 193
    Width = 697
    Height = 255
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object dbgridDateShow: TDBGrid
      Left = 0
      Top = 0
      Width = 697
      Height = 255
      Align = alClient
      DataSource = DataSoures
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -14
      TitleFont.Name = '宋体'
      TitleFont.Style = []
    end
  end
  object Conn: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=FEE_CARD;Data Source=WHS;Use Procedure for Prepare=1;' +
      'Auto Translate=True;Packet Size=4096;Workstation ID=WHS;Use Encr' +
      'yption for Data=False;Tag with column collation when possible=Fa' +
      'lse'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Top = 244
  end
  object Query: TADOQuery
    Connection = Conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from T_CARD_KIND')
    Left = 28
    Top = 244
  end
  object DataSoures: TDataSource
    DataSet = Query
    OnDataChange = DataSouresDataChange
    Left = 52
    Top = 244
  end
end