transferunit.dfm

delphi6.0版本的主要用于学样、网吧的计费系统的源码

object TransferForm: TTransferForm
  Left = 174
  Top = 232
  Width = 690
  Height = 469
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'TransferForm'
  Color = clBtnFace
  DefaultMonitor = dmDesktop
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object spl1: TSplitter
    Left = 340
    Top = 0
    Width = 8
    Height = 442
    Cursor = crHSplit
    Beveled = True
  end
  object pnl1: TPanel
    Left = 0
    Top = 0
    Width = 340
    Height = 442
    Align = alLeft
    Caption = 'pnl1'
    TabOrder = 0
    object pnl5: TPanel
      Left = 1
      Top = 1
      Width = 338
      Height = 96
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object lblFindKh: TLabel
        Left = 24
        Top = 28
        Width = 60
        Height = 12
        Caption = #23398#29983#21517#31216#65306
      end
      object edtFind: TEdit
        Left = 80
        Top = 23
        Width = 161
        Height = 20
        TabOrder = 0
      end
      object btn1: TButton
        Left = 244
        Top = 19
        Width = 67
        Height = 25
        Caption = #26597#25214
        TabOrder = 1
        OnClick = btn1Click
      end
      object btnZR: TButton
        Left = 112
        Top = 64
        Width = 97
        Height = 25
        Caption = #36873#25321#36716#20837#29992#25143
        TabOrder = 2
        OnClick = btnZRClick
      end
      object btnZC: TButton
        Left = 8
        Top = 64
        Width = 97
        Height = 25
        Caption = #36873#25321#36716#20986#29992#25143
        TabOrder = 3
        OnClick = btnZCClick
      end
    end
    object lv1: TListView
      Left = 1
      Top = 97
      Width = 338
      Height = 344
      Align = alClient
      Columns = <
        item
          Caption = #20869#37096#21345#21495
          MaxWidth = 400
          Width = 70
        end
        item
          Caption = #22806#37096#21345#21495
          Width = 70
        end
        item
          Caption = #22995#21517
          Width = 60
        end
        item
          Caption = #23398#29983#35777#21495
          Width = 80
        end
        item
          Caption = #20313#39069
          Width = 60
        end>
      ReadOnly = True
      RowSelect = True
      PopupMenu = pm1
      TabOrder = 1
      ViewStyle = vsReport
    end
  end
  object pnl3: TPanel
    Left = 348
    Top = 0
    Width = 334
    Height = 442
    Align = alClient
    Caption = 'pnl3'
    TabOrder = 1
    object grp1: TGroupBox
      Left = 24
      Top = 16
      Width = 289
      Height = 153
      Caption = #36716#20986#24080#29992#25143
      TabOrder = 0
      object lbl1: TLabel
        Left = 36
        Top = 32
        Width = 48
        Height = 12
        Caption = #29992#25143#21517#65306
      end
      object lbl2: TLabel
        Left = 24
        Top = 64
        Width = 60
        Height = 12
        Caption = #29992#25143#23494#30721#65306
      end
      object lbl3: TLabel
        Left = 24
        Top = 96
        Width = 60
        Height = 12
        Caption = #36716#20986#37329#39069#65306
      end
      object lbl7: TLabel
        Left = 12
        Top = 128
        Width = 72
        Height = 12
        Caption = #36716#20986#21518#20313#39069#65306
      end
      object edtName1: TEdit
        Left = 96
        Top = 24
        Width = 177
        Height = 20
        Color = cl3DLight
        ReadOnly = True
        TabOrder = 0
      end
      object edtPass1: TEdit
        Left = 96
        Top = 56
        Width = 177
        Height = 20
        PasswordChar = '*'
        TabOrder = 1
      end
      object edtBlance1: TEdit
        Left = 96
        Top = 88
        Width = 177
        Height = 20
        TabOrder = 2
        OnExit = edtBlance1Exit
        OnKeyPress = edtBlance1KeyPress
      end
      object edtBC: TEdit
        Left = 96
        Top = 120
        Width = 177
        Height = 20
        Color = cl3DLight
        ReadOnly = True
        TabOrder = 3
      end
    end
    object grp2: TGroupBox
      Left = 24
      Top = 176
      Width = 289
      Height = 145
      Caption = #36716#20837#24080#29992#25143
      TabOrder = 1
      object lbl4: TLabel
        Left = 36
        Top = 24
        Width = 48
        Height = 12
        Caption = #29992#25143#21517#65306
      end
      object lbl5: TLabel
        Left = 24
        Top = 56
        Width = 60
        Height = 12
        Caption = #29992#25143#23494#30721#65306
      end
      object lbl6: TLabel
        Left = 24
        Top = 88
        Width = 60
        Height = 12
        Caption = #36716#20837#37329#39069#65306
      end
      object lbl8: TLabel
        Left = 12
        Top = 120
        Width = 72
        Height = 12
        Caption = #36716#20837#21518#20313#39069#65306
      end
      object edtName2: TEdit
        Left = 96
        Top = 16
        Width = 177
        Height = 20
        Color = cl3DLight
        ReadOnly = True
        TabOrder = 0
      end
      object edtPass2: TEdit
        Left = 96
        Top = 48
        Width = 177
        Height = 20
        PasswordChar = '*'
        TabOrder = 1
      end
      object edtBlance2: TEdit
        Left = 96
        Top = 80
        Width = 177
        Height = 20
        Color = cl3DLight
        ReadOnly = True
        TabOrder = 2
      end
      object edtBR: TEdit
        Left = 96
        Top = 112
        Width = 177
        Height = 20
        Color = cl3DLight
        ReadOnly = True
        TabOrder = 3
      end
    end
    object btn2: TButton
      Left = 152
      Top = 352
      Width = 75
      Height = 25
      Caption = #36716#24080
      TabOrder = 2
      OnClick = btn2Click
    end
    object btnClose: TButton
      Left = 232
      Top = 352
      Width = 75
      Height = 25
      Caption = #20851#38381
      TabOrder = 3
      OnClick = btnCloseClick
    end
  end
  object ds1: TDataSource
    DataSet = qryCardtb
    Left = 208
    Top = 104
  end
  object qryCardtb: TADOQuery
    Connection = con1
    Parameters = <>
    Left = 168
    Top = 136
  end
  object con1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=aaaaaa;Persist Security Info=True;U' +
      'ser ID=sa;Initial Catalog=JFGL;Data Source=LWP'
    Provider = 'SQLOLEDB.1'
    Left = 232
    Top = 152
  end
  object pm1: TPopupMenu
    Left = 256
    Top = 240
    object x1: TMenuItem
      Caption = #36873#25321#20026#36716#20986#29992#25143
      OnClick = btnZCClick
    end
    object N1: TMenuItem
      Caption = #36873#25321#20026#36716#20837#29992#25143
      OnClick = btnZRClick
    end
  end
end