billlookup.dfm

用delphi编写的数据库管理软件

inherited frmBillLookup: TfrmBillLookup
  Left = 258
  Top = 181
  ActiveControl = Edit1
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #21333#25454#26597#35810
  ClientHeight = 322
  ClientWidth = 373
  KeyPreview = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object plEdit: TPanel
    Left = 13
    Top = 10
    Width = 348
    Height = 247
    TabOrder = 0
    object Label1: TLabel
      Left = 23
      Top = 29
      Width = 54
      Height = 13
      Caption = #21333'    '#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 23
      Top = 69
      Width = 54
      Height = 13
      Caption = #26085'    '#26399
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 233
      Top = 30
      Width = 42
      Height = 13
      Caption = '("%%")'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 200
      Top = 67
      Width = 16
      Height = 15
      Caption = '>>'
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -15
      Font.Name = #32048#26126#39636
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 23
      Top = 149
      Width = 53
      Height = 13
      Caption = #21046' '#21333' '#20154
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 23
      Top = 109
      Width = 52
      Height = 13
      Caption = #23458#25143#21517#31216
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 233
      Top = 110
      Width = 42
      Height = 13
      Caption = '("%%")'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 209
      Top = 150
      Width = 42
      Height = 13
      Caption = '("%%")'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 23
      Top = 189
      Width = 54
      Height = 13
      Caption = #22791'    '#27880
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 233
      Top = 190
      Width = 42
      Height = 13
      Caption = '("%%")'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 81
      Top = 26
      Width = 146
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object Edit3: TEdit
      Left = 81
      Top = 106
      Width = 146
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object DTEdt1: TdxDateEdit
      Left = 81
      Top = 66
      Width = 113
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      Date = -700000.000000000000000000
    end
    object DTEdt2: TdxDateEdit
      Left = 220
      Top = 66
      Width = 113
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      Date = -700000.000000000000000000
    end
    object Edit5: TEdit
      Left = 81
      Top = 186
      Width = 146
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object edit4: TwwDBLookupCombo
      Left = 81
      Top = 146
      Width = 120
      Height = 21
      Hint = 'frentType'
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'fcode'#9'10'#9#32534#30721#9'F'#9
        'fname'#9'18'#9#21517#31216#9'F'#9)
      LookupTable = CDSUser
      LookupField = 'fcode'
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      TabOrder = 4
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
  end
  object Button1: TButton
    Left = 280
    Top = 275
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 203
    Top = 275
    Width = 75
    Height = 25
    Caption = #30830#23450
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 24
    Top = 275
    Width = 75
    Height = 25
    Caption = #28165#38500
    TabOrder = 3
    OnClick = Button3Click
  end
  object CDSUser: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 272
    Top = 152
    object CDSUserfcode: TWideStringField
      DisplayLabel = #32534#30721
      DisplayWidth = 10
      FieldName = 'fcode'
      Size = 36
    end
    object CDSUserfname: TWideStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 18
      FieldName = 'fname'
      Size = 36
    end
    object CDSUserfid: TAutoIncField
      DisplayWidth = 10
      FieldName = 'fid'
      ReadOnly = True
      Visible = False
    end
    object CDSUserfpwd: TWideStringField
      DisplayWidth = 32
      FieldName = 'fpwd'
      Visible = False
      Size = 32
    end
    object CDSUserfadmin: TBooleanField
      DisplayWidth = 5
      FieldName = 'fadmin'
      Visible = False
    end
  end
end