main.dfm

网吧的基本操作都可以

object Form1: TForm1
  Left = 137
  Top = 109
  Width = 657
  Height = 444
  Caption = #22825#19978#26143#32593#21543#31649#29702#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 649
    Height = 49
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 13
      Width = 81
      Height = 20
      AutoSize = False
      Caption = #21047#21345#32534#21495
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 520
      Top = 8
      Width = 265
      Height = 37
      AutoSize = False
      Caption = 'Label2'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -32
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Splitter1: TSplitter
      Left = 1
      Top = 1
      Height = 47
    end
    object Label3: TLabel
      Left = 224
      Top = 16
      Width = 33
      Height = 13
      AutoSize = False
      Caption = #36824#21097
    end
    object Label4: TLabel
      Left = 283
      Top = 16
      Width = 30
      Height = 13
      AutoSize = False
      Caption = #21488#26426
    end
    object DBText1: TDBText
      Left = 256
      Top = 14
      Width = 17
      Height = 17
      DataField = #30005#33041#21488#25968
      DataSource = DM.DSpc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 96
      Top = 12
      Width = 121
      Height = 21
      TabOrder = 0
      OnKeyPress = Edit1KeyPress
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 321
    Width = 649
    Height = 77
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 647
      Height = 75
      Align = alClient
      Color = clInfoBk
      DataSource = DM.DataSource2
      FixedColor = clMoneyGreen
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
    object DBEsdjg: TDBEdit
      Left = 488
      Top = 320
      Width = 121
      Height = 24
      DataField = #26102#27573#20215#26684
      DataSource = DM.DSjggl
      TabOrder = 1
      Visible = False
    end
    object DBEshangji: TDBEdit
      Left = 488
      Top = 272
      Width = 121
      Height = 24
      DataField = #19978#26426#26102#38388
      DataSource = DM.DSjggl
      TabOrder = 2
      Visible = False
    end
    object DBExiaji: TDBEdit
      Left = 488
      Top = 296
      Width = 121
      Height = 24
      DataField = #19979#26426#26102#38388
      DataSource = DM.DSjggl
      TabOrder = 3
      Visible = False
    end
    object DBEsj: TDBEdit
      Left = 344
      Top = 296
      Width = 121
      Height = 24
      DataField = #19978#26426#26102#38388
      DataSource = DM.DSgl
      TabOrder = 4
      Visible = False
    end
    object DBExj: TDBEdit
      Left = 344
      Top = 320
      Width = 121
      Height = 24
      DataField = #19979#26426#26102#38388
      DataSource = DM.DSgl
      TabOrder = 5
      Visible = False
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 49
    Width = 649
    Height = 248
    Align = alTop
    TabOrder = 2
    object DBGrid2: TDBGrid
      Left = 1
      Top = 1
      Width = 647
      Height = 246
      Align = alClient
      Color = clInfoBk
      DataSource = DM.DataSource1
      FixedColor = clSkyBlue
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = #21345#32534#21495
          Width = 73
          Visible = True
        end
        item
          Expanded = False
          FieldName = #19978#26426#26102#38388
          Width = 145
          Visible = True
        end
        item
          Expanded = False
          FieldName = #19979#26426#26102#38388
          Width = 244
          Visible = True
        end
        item
          Expanded = False
          FieldName = #32467#31639
          Width = 150
          Visible = True
        end
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = #25805#20316#21592
          Width = 144
          Visible = True
        end>
    end
    object DBEmrjg: TDBEdit
      Left = 456
      Top = 176
      Width = 25
      Height = 21
      DataField = #40664#35748#20215#26684
      DataSource = DM.DSpc
      TabOrder = 1
      Visible = False
    end
    object DBEyhm: TDBEdit
      Left = 440
      Top = 152
      Width = 41
      Height = 21
      DataField = #29992#25143#21517
      DataSource = DM.DSdl
      TabOrder = 2
      Visible = False
    end
    object DBEqx: TDBEdit
      Left = 440
      Top = 128
      Width = 57
      Height = 21
      DataField = #26435#38480
      DataSource = DM.DSdl
      TabOrder = 3
      Visible = False
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 297
    Width = 649
    Height = 24
    Align = alTop
    TabOrder = 3
    object Label5: TLabel
      Left = 8
      Top = 8
      Width = 105
      Height = 13
      AutoSize = False
      Caption = #36824#27809#19979#26426#30340#21345#32534#21495
    end
  end
  object MainMenu1: TMainMenu
    AutoHotkeys = maManual
    Left = 560
    Top = 121
    object N1: TMenuItem
      Caption = #31995#32479
      object N4: TMenuItem
        Caption = #30331#38470
        OnClick = N4Click
      end
      object N6: TMenuItem
        Caption = #30331#38470#31649#29702
        OnClick = N6Click
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object N9: TMenuItem
        Caption = #36864#20986
      end
    end
    object N2: TMenuItem
      Caption = #31649#29702
      object N5: TMenuItem
        Caption = #26102#27573#31649#29702
        OnClick = N5Click
      end
      object PC1: TMenuItem
        Caption = #30005#33041#31649#29702
        OnClick = PC1Click
      end
      object N7: TMenuItem
        Caption = #40664#35748#20215#26684
        OnClick = N7Click
      end
      object N3: TMenuItem
        Caption = #21024#38500#35760#24405
        OnClick = N3Click
      end
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 600
    Top = 185
  end
end