uchangedb.dfm

这个程序软件很不错很不错的

inherited frmchangedb: Tfrmchangedb
  Left = 192
  Top = 175
  AutoScroll = False
  Caption = #26356#25442#24080#22871
  ClientHeight = 275
  ClientWidth = 415
  OldCreateOrder = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 415
    Height = 65
    Align = alTop
  end
  object Bevel1: TBevel
    Left = -19
    Top = 228
    Width = 455
    Height = 2
  end
  object Label2: TLabel
    Left = 36
    Top = 206
    Width = 59
    Height = 14
    AutoSize = False
    Caption = #30331#24405#21517#31216
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 222
    Top = 206
    Width = 35
    Height = 14
    AutoSize = False
    Caption = #23494#30721
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 65
    Width = 415
    Height = 128
    Align = alTop
    Ctl3D = False
    DataSource = dsqmaster
    FooterColor = clWindow
    FooterFont.Charset = ANSI_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentCtl3D = False
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = 'fid'
        Footers = <>
        Title.Caption = '#'
        Width = 40
      end
      item
        EditButtons = <>
        FieldName = 'accountname'
        Footers = <>
        Title.Caption = #24080#22871#21517#31216
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'databasename'
        Footers = <>
        Title.Caption = #25968#25454#24211#21517#31216
        Width = 80
      end
      item
        EditButtons = <>
        FieldName = 'remark'
        Footers = <>
        Title.Caption = #22791#27880
        Width = 150
      end>
  end
  object btnok: TButton
    Left = 271
    Top = 237
    Width = 70
    Height = 25
    Caption = #30830#23450
    Default = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = btnokClick
  end
  object btnexit: TButton
    Left = 342
    Top = 237
    Width = 70
    Height = 25
    Cancel = True
    Caption = #36864#20986
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = btnexitClick
  end
  object usercode: TEdit
    Left = 99
    Top = 201
    Width = 110
    Height = 18
    CharCase = ecUpperCase
    Ctl3D = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 3
  end
  object password: TEdit
    Left = 258
    Top = 201
    Width = 110
    Height = 18
    Ctl3D = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    PasswordChar = '*'
    TabOrder = 4
  end
  object dsqmaster: TDataSource
    DataSet = CDSadb
    Left = 52
    Top = 23
  end
  object CDSadb: TClientDataSet
    Aggregates = <>
    FetchOnDemand = False
    PacketRecords = 20
    Params = <>
    AfterScroll = CDSadbAfterScroll
    Left = 120
    Top = 24
    object CDSadbfid: TIntegerField
      FieldName = 'fid'
    end
    object CDSadbaccountname: TWideStringField
      FieldName = 'accountname'
      Size = 30
    end
    object CDSadbdatabasename: TWideStringField
      FieldName = 'databasename'
    end
    object CDSadbremark: TWideStringField
      FieldName = 'remark'
      Size = 60
    end
  end
end