main.dfm

1. 发卡服务端：Server 项目文件：autojet.prj 2. 计费客户端：Client 项目文件：internet.prj Explorer.prj 先启动Exp

object Frm_Main: TFrm_Main
  Left = 225
  Top = 50
  Width = 808
  Height = 580
  Caption = #21451#21033#26234#33021#21345#32593#21543#31649#29702#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -10
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000999
    9999999999999999999999999990099999999999999999999999999999999900
    0000000000000000000000099009990000000000000009999000009990099900
    0000090000099999999000999909990000090990009999999999099990099900
    0000999900999999909999990009990000090990099990999099990900099000
    0000099009999999909990090009900000000999999909990000000000099900
    0000999999999999000000000009990000099999999099900000000000099900
    0009990090009999099000000009990000099990000099999999000000099900
    0009999900000999999900000009990000009999990000999099900000999900
    9000999999990999000999900099990999009999999999999000999900999900
    9909999999999999999000990090990999999999999900009999009900999900
    9900099999900000099900000099990000009999900999900999000000999900
    0009999009999900099000000099990000009900999900099000000000999900
    0009999099999999900000000099990000009999999999999900000000999900
    0000999999999999000000000099990000000999900999009999000000999900
    0000000000990000000000000099990000000000999000000000000000990099
    9990099999999999999099999999000909900990999999999999999999908000
    0001800000003FFFFFE63FFF87C63FBE01C23E9C00863F0C040E3E98442E7F98
    046E7F808FFE3F000FFE3E011FFE3E3709FE3E1F00FE3E0F80FE3F03C47C3700
    8E1C2300070C320001CD2000F0CC3381F8FC3F0618FC3E1839FC3F30E7FC3E10
    07FC3F0003FC3F000FFC3F8630FC3FFCFFFC3FF1FFFCC1800100E9900001}
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnActivate = FormShow
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object ControlBar1: TControlBar
    Left = 0
    Top = 0
    Width = 800
    Height = 30
    Align = alTop
    BevelEdges = [beTop, beRight]
    BevelInner = bvNone
    TabOrder = 0
    object ToolBar1: TToolBar
      Left = 11
      Top = 2
      Width = 486
      Height = 48
      Align = alCustom
      AutoSize = True
      ButtonHeight = 31
      ButtonWidth = 37
      Caption = 'ToolBar1'
      EdgeBorders = []
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Images = ImageList1
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        Hint = #21345#29255#21457#34892
        Caption = 'ToolButton1'
        ImageIndex = 0
        OnClick = ToolButton1Click
      end
      object ToolButton2: TToolButton
        Left = 37
        Top = 0
        Hint = #21345#29255#20462#25913
        Caption = 'ToolButton2'
        ImageIndex = 1
        OnClick = ToolButton2Click
      end
      object ToolButton3: TToolButton
        Left = 74
        Top = 0
        Hint = #21345#29255#27880#38144
        Caption = 'ToolButton3'
        ImageIndex = 2
        OnClick = ToolButton3Click
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 30
    Width = 800
    Height = 504
    Align = alClient
    BevelInner = bvLowered
    BevelOuter = bvLowered
    BevelWidth = 2
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 4
      Top = 456
      Width = 792
      Height = 3
      Cursor = crVSplit
      Align = alBottom
      MinSize = 10
      ResizeStyle = rsLine
    end
    object DBGrid1: TDBGrid
      Left = 4
      Top = 4
      Width = 792
      Height = 452
      Align = alClient
      Color = clSkyBlue
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      PopupMenu = PopupMenu2
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDrawColumnCell = DBGrid1DrawColumnCell
      Columns = <
        item
          Expanded = False
          FieldName = 'TermName'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ICno'
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Gname'
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Login'
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Deposit'
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Payment'
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Gift'
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SYJE'
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ICtype'
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Jsss'
          Title.Caption = #35745#26102#21345#20805#20540#26102#38271
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SYSJ'
          Title.Caption = #35745#26102#21345#21097#20313#26102#38271
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Gstate'
          Width = 64
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'AAA'
          Width = 64
          Visible = True
        end>
    end
    object Memo1: TMemo
      Left = 4
      Top = 459
      Width = 792
      Height = 41
      Align = alBottom
      Color = 15663103
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      PopupMenu = PopupMenu1
      ScrollBars = ssVertical
      TabOrder = 1
    end
    object ListBox4: TListBox
      Left = 639
      Top = 73
      Width = 105
      Height = 257
      Color = clWhite
      ItemHeight = 13
      Items.Strings = (
        #25805#20316#25104#21151#65281
        #35835#20889#38169#35823#12290
        #21345#24050#25439#22351#12290
        #26410#25554#20837#21345#12290
        #20018#21475#38169#35823#25110#21457#34892#26426#27491#24537#65281
        #21345#34987#26356#25442#25110#38750#28040#36153#21345#12290
        #19981#26159#26032#21345#12290
        #27492#21345#26159#26032#21345#12290
        #19981#26159#26412#31995#32479#21345#12290
        #19981#26159#23458#20154#21345#12290
        #19981#26159#20250#21592#21345#12290
        #23494#30721#38169#35823#12290
        #26080#24320#38376#35760#24405#12290
        #21345#22411#19981#27491#30830#12290
        #21442#25968#38169#35823#65281
        #29992#25143#21462#28040#25805#20316#65281
        #31561#24453#36229#26102#65281
        #25554#21345#38169#35823#65281
        #27492#21345#26159#31354#30333#21345#25110#25554#21345#38169#35823#65281)
      TabOrder = 2
      Visible = False
    end
  end
  object MainMenu1: TMainMenu
    AutoHotkeys = maManual
    Left = 113
    Top = 60
    object N11: TMenuItem
      Caption = #31995#32479#32500#25252
      object N12: TMenuItem
        Caption = #25805#20316#21592#31649#29702' (&R)'
        OnClick = N12Click
      end
      object N13: TMenuItem
        Caption = '-'
      end
      object N14: TMenuItem
        Caption = #31995#32479#21021#22987#21270' (&I)'
        OnClick = N14Click
      end
      object N5: TMenuItem
        Caption = #31995#32479#21442#25968#35774#32622
        OnClick = N5Click
      end
      object N15: TMenuItem
        Caption = '-'
      end
      object N16: TMenuItem
        Caption = #26222#36890#36153#29575#35774#23450' (&O)'
        OnClick = N16Click
      end
      object N17: TMenuItem
        Caption = #29305#21035#36153#29575#35774#23450' (&S)'
        OnClick = N17Click
      end
      object N18: TMenuItem
        Caption = '-'
      end
      object N19: TMenuItem
        Caption = #32456#31471#32500#25252' (&T)'
        OnClick = N19Click
      end