unit1.dfm

一个完整的彩票软件的源代码

object Form1: TForm1
  Left = 271
  Top = 120
  Width = 528
  Height = 480
  Caption = 'Form1'
  Color = clInactiveCaptionText
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 520
    Height = 453
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel2'
    TabOrder = 1
    object Label2: TLabel
      Left = 8
      Top = 160
      Width = 54
      Height = 12
      Caption = #21382#21490#25968#25454':'
    end
    object Bevel1: TBevel
      Left = 0
      Top = 104
      Width = 513
      Height = 50
      Shape = bsBottomLine
    end
    object Label3: TLabel
      Left = 368
      Top = 160
      Width = 18
      Height = 12
      Caption = #21547':'
    end
    object Label4: TLabel
      Left = 432
      Top = 160
      Width = 18
      Height = 12
      Caption = #38500':'
    end
    object SpeedButton1: TSpeedButton
      Left = 420
      Top = 195
      Width = 10
      Height = 10
      Caption = '-'
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 420
      Top = 179
      Width = 10
      Height = 10
      Caption = '+'
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 484
      Top = 179
      Width = 10
      Height = 10
      Caption = '+'
      OnClick = SpeedButton3Click
    end
    object SpeedButton4: TSpeedButton
      Left = 484
      Top = 195
      Width = 10
      Height = 10
      Caption = '-'
      OnClick = SpeedButton4Click
    end
    object Label5: TLabel
      Left = 8
      Top = 192
      Width = 30
      Height = 12
      Caption = #26399#21035':'
    end
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 520
      Height = 105
      Align = alTop
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 0
      object Image2: TImage
        Left = 2
        Top = 2
        Width = 516
        Height = 101
        Align = alClient
      end
      object Image1: TImage
        Left = 48
        Top = 36
        Width = 313
        Height = 41
      end
      object Label1: TLabel
        Left = 16
        Top = 8
        Width = 68
        Height = 14
        Caption = #25671#22870#32467#26524':'
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label6: TLabel
        Left = 384
        Top = 83
        Width = 12
        Height = 12
        Caption = #36873
      end
      object Edit4: TEdit
        Left = 344
        Top = 80
        Width = 33
        Height = 20
        TabOrder = 0
        Text = '31'
      end
      object Edit5: TEdit
        Left = 408
        Top = 80
        Width = 33
        Height = 20
        TabOrder = 1
        Text = '7'
      end
      object Button10: TButton
        Left = 456
        Top = 75
        Width = 47
        Height = 25
        Caption = #24212#29992
        TabOrder = 2
        OnClick = Button10Click
      end
      object CheckBox1: TCheckBox
        Left = 296
        Top = 80
        Width = 49
        Height = 17
        Caption = #29305#21495
        TabOrder = 3
      end
    end
    object DBGrid1: TDBGrid
      Left = 0
      Top = 216
      Width = 520
      Height = 237
      Align = alBottom
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
    end
    object Button3: TButton
      Left = 176
      Top = 118
      Width = 75
      Height = 25
      Caption = #21152#20837#21382#21490
      TabOrder = 2
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 80
      Top = 157
      Width = 75
      Height = 25
      Caption = #28155#21152
      TabOrder = 3
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 176
      Top = 157
      Width = 75
      Height = 25
      Caption = #21024#38500
      TabOrder = 4
      OnClick = Button5Click
    end
    object Button6: TButton
      Left = 271
      Top = 157
      Width = 75
      Height = 25
      Caption = #20462#25913
      TabOrder = 5
      OnClick = Button6Click
    end
    object ListBox1: TListBox
      Left = 368
      Top = 176
      Width = 49
      Height = 33
      ItemHeight = 12
      TabOrder = 6
    end
    object ListBox2: TListBox
      Left = 432
      Top = 176
      Width = 49
      Height = 33
      ItemHeight = 12
      TabOrder = 7
    end
    object Edit1: TEdit
      Left = 392
      Top = 155
      Width = 25
      Height = 20
      TabOrder = 8
      OnKeyPress = Edit1KeyPress
    end
    object Edit2: TEdit
      Left = 456
      Top = 155
      Width = 25
      Height = 20
      TabOrder = 9
      OnKeyPress = Edit2KeyPress
    end
    object Button7: TButton
      Left = 256
      Top = 120
      Width = 75
      Height = 25
      Caption = #36208#21183#22270
      TabOrder = 10
      OnClick = Button7Click
    end
    object Edit3: TEdit
      Left = 41
      Top = 188
      Width = 49
      Height = 20
      TabOrder = 11
      OnKeyPress = Edit3KeyPress
    end
    object Button8: TButton
      Left = 336
      Top = 120
      Width = 75
      Height = 25
      Caption = #35835#21382#21490#25968#25454
      TabOrder = 12
      OnClick = Button8Click
    end
    object Button9: TButton
      Left = 416
      Top = 120
      Width = 75
      Height = 25
      Caption = #23384#21382#21490#25968#25454
      TabOrder = 13
      OnClick = Button9Click
    end
  end
  object Button1: TButton
    Left = 16
    Top = 120
    Width = 75
    Height = 23
    Caption = #38543#26426#25671#22870
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 96
    Top = 118
    Width = 75
    Height = 25
    Caption = #21382#21490#25512#31639
    TabOrder = 2
    OnClick = Button2Click
  end
  object Table1: TTable
    AfterOpen = Table1AfterOpen
    Left = 184
    Top = 224
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 104
    Top = 288
  end
  object OpenDialog1: TOpenDialog
    Filter = #24425#31080#25968#25454#24211'|*.db'
    Left = 200
    Top = 296
  end
  object SaveDialog1: TSaveDialog
    Filter = #24425#31080#25968#25454#24211'|*.db'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 256
    Top = 296
  end
  object Query1: TQuery
    DatabaseName = 'I:\'#25671#22870
    SQL.Strings = (
      'select * from '#39'lssj31-7'#39' order by '#26399#21035)
    Left = 136
    Top = 336
  end
end