uchishi.~dfm

在公司做的一个小的系统源代码

object frmchushi: Tfrmchushi
  Left = 314
  Top = 178
  Width = 402
  Height = 256
  Caption = #31995#32479#21021#22987#21270
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 56
    Top = 32
    Width = 105
    Height = 13
    Caption = #35831#36873#25321#25152#22312#22320#24066#65306'   '
  end
  object Label2: TLabel
    Left = 56
    Top = 136
    Width = 105
    Height = 13
    Caption = ' '#35831#36755#20837#27880#20876#30721' '#65306'     '
  end
  object combjg: TComboBox
    Left = 176
    Top = 24
    Width = 153
    Height = 21
    ItemHeight = 13
    TabOrder = 0
  end
  object Edtzc: TEdit
    Left = 176
    Top = 136
    Width = 153
    Height = 21
    TabOrder = 1
  end
  object Edtip: TEdit
    Left = 176
    Top = 80
    Width = 153
    Height = 21
    TabOrder = 2
  end
  object GroupBox1: TGroupBox
    Left = 48
    Top = 72
    Width = 113
    Height = 33
    TabOrder = 3
    object sptnlian: TSpeedButton
      Left = 0
      Top = 8
      Width = 113
      Height = 25
      Caption = #36830#25509#27979#35797'(&J)'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
        3333333333777F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
        3333333777737777F333333099999990333333373F3333373333333309999903
        333333337F33337F33333333099999033333333373F333733333333330999033
        3333333337F337F3333333333099903333333333373F37333333333333090333
        33333333337F7F33333333333309033333333333337373333333333333303333
        333333333337F333333333333330333333333333333733333333}
      NumGlyphs = 2
    end
  end
  object GroupBox2: TGroupBox
    Left = 88
    Top = 184
    Width = 89
    Height = 33
    TabOrder = 4
    object sptnok: TSpeedButton
      Left = 0
      Top = 8
      Width = 89
      Height = 25
      Caption = #30830#23450'(&O)'
      Flat = True
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F0000000120B0000120B00001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        777777776D7077777777777777777777500077777777887777777777A6007777
        777CC887777777777470777777C22C8877777777504177777A2222C887777777
        A6007777A222222C88777777A6007777A222A222C887777765347777A22C8A22
        2C877777342E7777A22C87A22C88777700F077777A2C777A22C887771D777777
        77AA7777A22C88776D707777777777777A22C887500077777777777777A22C87
        9700777777777777777A2C8774767777777777777777AC774945777777777777
        7777777700F0777777777777777777772C7777777777777777777777626D7777
        7777777777777777424D}
      OnClick = sptnokClick
    end
  end
  object GroupBox3: TGroupBox
    Left = 256
    Top = 184
    Width = 89
    Height = 33
    TabOrder = 5
    object sptnclose: TSpeedButton
      Left = 0
      Top = 8
      Width = 89
      Height = 25
      Caption = #20851#38381'(&E)'
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888808077708888888880807770880800008080777088888880008077
        7088888880088078708800808000807770888888000000777088888888008007
        7088888880008077708888888800800770888888888880000088888888888888
        8888888888884444888888888888488488888888888844448888}
      OnClick = sptncloseClick
    end
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = dm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select jgmc from zzjjgb ')
    Left = 72
  end
end