main.~dfm

程序示例自动创建配置文件

object Form1: TForm1
  Left = 673
  Top = 405
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Form1'
  ClientHeight = 627
  ClientWidth = 1005
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 787
    Top = 8
    Width = 212
    Height = 612
    TabOrder = 0
    object Label1: TLabel
      Left = 57
      Top = 155
      Width = 84
      Height = 13
      AutoSize = False
      Caption = '设置交费期限'
    end
    object BitBtn1: TBitBtn
      Left = 62
      Top = 256
      Width = 100
      Height = 25
      Caption = '修改收费库'
      TabOrder = 0
      OnClick = BitBtn1Click
    end
    object CheckBox1: TCheckBox
      Left = 147
      Top = 152
      Width = 22
      Height = 17
      TabOrder = 1
      OnClick = CheckBox1Click
    end
    object dtp2: TDateTimePicker
      Left = 55
      Top = 174
      Width = 112
      Height = 20
      CalAlignment = dtaLeft
      Date = 38094.4492365162
      Time = 38094.4492365162
      DateFormat = dfLong
      DateMode = dmUpDown
      ImeName = '中文 (简体) - 微软拼音输入法 3.0 版'
      Kind = dtkDate
      ParseInput = False
      TabOrder = 2
      Visible = False
    end
    object btn1: TBitBtn
      Left = 62
      Top = 222
      Width = 98
      Height = 25
      Caption = '查询MIS库'
      TabOrder = 3
      OnClick = btn1Click
    end
    object GroupBox1: TGroupBox
      Left = 11
      Top = 11
      Width = 189
      Height = 131
      Caption = '查询条件'
      TabOrder = 4
      object lbl2: TLabel
        Left = 19
        Top = 93
        Width = 57
        Height = 13
        AutoSize = False
        Caption = '用户名称'
      end
      object lbl1: TLabel
        Left = 19
        Top = 68
        Width = 56
        Height = 13
        AutoSize = False
        Caption = '用户编号'
      end
      object lbl3: TLabel
        Left = 19
        Top = 40
        Width = 56
        Height = 13
        AutoSize = False
        Caption = '电费月份'
      end
      object edt2: TEdit
        Left = 79
        Top = 89
        Width = 83
        Height = 21
        TabOrder = 0
      end
      object edt1: TEdit
        Left = 79
        Top = 62
        Width = 83
        Height = 21
        TabOrder = 1
      end
      object dtp1: TDateTimePicker
        Left = 79
        Top = 35
        Width = 83
        Height = 20
        CalAlignment = dtaRight
        Date = 39264.4492365162
        Time = 39264.4492365162
        DateFormat = dfLong
        DateMode = dmUpDown
        ImeName = '中文 (简体) - 微软拼音输入法 3.0 版'
        Kind = dtkDate
        ParseInput = False
        TabOrder = 2
      end
    end
    object Button1: TButton
      Left = 88
      Top = 400
      Width = 75
      Height = 25
      Caption = 'Button1'
      TabOrder = 5
      OnClick = Button1Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 5
    Top = 4
    Width = 783
    Height = 205
    Caption = 'GroupBox2'
    TabOrder = 1
    object dbgrd1: TDBGrid
      Left = 8
      Top = 16
      Width = 768
      Height = 181
      DataSource = ds1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object GroupBox3: TGroupBox
    Left = 5
    Top = 210
    Width = 783
    Height = 205
    Caption = 'GroupBox3'
    TabOrder = 2
    object dbgrd2: TDBGrid
      Left = 8
      Top = 16
      Width = 767
      Height = 181
      DataSource = ds2
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object GroupBox4: TGroupBox
    Left = 5
    Top = 416
    Width = 783
    Height = 205
    Caption = 'GroupBox4'
    TabOrder = 3
    object DBGrid1: TDBGrid
      Left = 8
      Top = 15
      Width = 767
      Height = 182
      DataSource = ds3
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object cm1: TADOCommand
    Connection = connyd
    Parameters = <>
    Left = 216
    Top = 112
  end
  object qry11: TADOQuery
    Connection = connyd
    Parameters = <>
    Left = 128
    Top = 64
  end
  object ds1: TDataSource
    DataSet = qry1
    Left = 304
    Top = 48
  end
  object qry1: TADOQuery
    Connection = connmis
    Parameters = <>
    Left = 384
    Top = 48
  end
  object qry22: TADOQuery
    Connection = connyd
    Parameters = <>
    Left = 312
    Top = 312
  end
  object ds2: TDataSource
    DataSet = qry2
    Left = 304
    Top = 264
  end
  object qry2: TADOQuery
    Connection = connmis
    Parameters = <>
    Left = 368
    Top = 288
  end
  object qry33: TADOQuery
    Connection = connyd
    Parameters = <>
    Left = 328
    Top = 568
  end
  object ds3: TDataSource
    DataSet = qry3
    Left = 528
    Top = 568
  end
  object qry3: TADOQuery
    Connection = connmis
    Parameters = <>
    Left = 608
    Top = 560
  end
  object connmis: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=charge_dg;Data Source=.'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 661
    Top = 100
  end
  object connyd: TADOConnection
    LoginPrompt = False
    Left = 661
    Top = 148
  end
end