kcgl_frm_form1.dfm

这是我们班实习的时候做的一个宠物医院管理系统。sql数据库

object Form2: TForm2
  Left = 328
  Top = 73
  BorderStyle = bsDialog
  Caption = 'Form2'
  ClientHeight = 467
  ClientWidth = 700
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 700
    Height = 467
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 0
      Top = 2
      Width = 801
      Height = 601
      ActivePage = TabSheet2
      TabIndex = 1
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = #26597#35810
        object GroupBox4: TGroupBox
          Left = 3
          Top = 8
          Width = 326
          Height = 497
          Caption = #35814#32454#20449#24687#26597#35810
          TabOrder = 0
          object Label1: TLabel
            Left = 7
            Top = 62
            Width = 84
            Height = 13
            Caption = #36873#25321#26597#35810#31867#22411#65306
          end
          object Label31: TLabel
            Left = 37
            Top = 27
            Width = 60
            Height = 13
            Caption = #36873#25321#35786#25152#65306
          end
          object Label32: TLabel
            Left = 6
            Top = 90
            Width = 84
            Height = 13
            Caption = #36873#25321#26597#35810#26465#20214#65306
          end
          object GroupBox19: TGroupBox
            Left = 0
            Top = 300
            Width = 324
            Height = 127
            Caption = #32570#36135#20449#24687#26597#35810
            TabOrder = 0
            object Label2: TLabel
              Left = 40
              Top = 37
              Width = 60
              Height = 13
              Caption = #32570#36135#31243#24230#65306
            end
            object ComboBox5: TComboBox
              Left = 112
              Top = 32
              Width = 113
              Height = 21
              ItemHeight = 0
              TabOrder = 0
            end
            object Button14: TButton
              Left = 38
              Top = 88
              Width = 75
              Height = 25
              Caption = #26597#35810' '#12297#12299
              TabOrder = 1
            end
          end
          object KCGL_frm_cmbSearchType: TComboBox
            Left = 108
            Top = 61
            Width = 81
            Height = 21
            ItemHeight = 13
            TabOrder = 1
            Text = #33647#21697
            Items.Strings = (
              #33647#21697
              #29992#21697
              #38750#29992#21697
              #22260#26639)
          end
          object KCGL_frm_chbItemId: TCheckBox
            Left = 72
            Top = 124
            Width = 62
            Height = 17
            Caption = #39033#30446#21495#65306
            TabOrder = 2
            OnClick = KCGL_frm_chbItemIdClick
          end
          object KCGL_frm_edtItemId: TEdit
            Left = 142
            Top = 122
            Width = 121
            Height = 21
            TabOrder = 3
            Visible = False
          end
          object KCGL_frm_chbItemName: TCheckBox
            Left = 72
            Top = 160
            Width = 64
            Height = 17
            Caption = #39033#30446#21517#65306
            TabOrder = 4
            OnClick = KCGL_frm_chbItemNameClick
          end
          object KCGL_frm_edtItemName: TEdit
            Left = 142
            Top = 159
            Width = 121
            Height = 21
            TabOrder = 5
            Visible = False
          end
          object KCGL_frm_btnSearch: TButton
            Left = 72
            Top = 226
            Width = 75
            Height = 25
            Caption = #26597'  '#35810#12297#12297
            TabOrder = 6
            OnClick = KCGL_frm_btnSearchClick
          end
          object KCGL_frm_cmbClinicId1: TComboBox
            Left = 112
            Top = 27
            Width = 89
            Height = 21
            ItemHeight = 0
            TabOrder = 7
            Text = 'all'
          end
        end
        object GroupBox18: TGroupBox
          Left = 0
          Top = 504
          Width = 793
          Height = 89
          TabOrder = 1
        end
        object GroupBox17: TGroupBox
          Left = 344
          Top = 8
          Width = 449
          Height = 497
          Caption = #26597#35810#32467#26524
          TabOrder = 2
          object KCGL_frm_dbgearch: TDBGrid
            Left = 0
            Top = 15
            Width = 345
            Height = 354
            DataSource = KCGL_frm_ds3
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = #33647#21697
        ImageIndex = 1
        object Label28: TLabel
          Left = 42
          Top = 16
          Width = 48
          Height = 13
          Caption = #35786#25152#21517#65306
        end
        object GroupBox3: TGroupBox
          Left = 7
          Top = 35
          Width = 289
          Height = 334
          Caption = #35814#32454#20449#24687
          TabOrder = 0
          object Label10: TLabel
            Left = 11
            Top = 22
            Width = 48
            Height = 13
            Caption = #33647#21697#21495#65306
          end
          object Label11: TLabel
            Left = 9
            Top = 54
            Width = 48
            Height = 13
            Caption = #33647#21697#21517#65306
          end
          object Label12: TLabel
            Left = 13
            Top = 85
            Width = 42
            Height = 13
            Caption = #35745'  '#37327#65306
          end
          object Label13: TLabel
            Left = 17
            Top = 179
            Width = 42
            Height = 13
            Caption = #20171'  '#32461#65306
          end
          object Label15: TLabel
            Left = 10
            Top = 251
            Width = 60
            Height = 13
            Caption = #35760#24405#32423#21035#65306
          end
          object Label16: TLabel
            Left = 14
            Top = 148
            Width = 42
            Height = 13
            Caption = #25968'  '#37327#65306
          end
          object Label17: TLabel
            Left = 12
            Top = 117
            Width = 42
            Height = 13
            Caption = #37197'  '#26041#65306
          end
          object Label18: TLabel
            Left = 10
            Top = 280
            Width = 60
            Height = 13
            Caption = #35760#24405#25968#37327#65306
          end
          object Label19: TLabel
            Left = 24
            Top = 304
            Width = 42
            Height = 13
            Caption = #36153'  '#29992#65306
          end
          object Label14: TLabel
            Left = 162
            Top = 308
            Width = 51
            Height = 13
            Caption = #20803#65288'RMB)'
          end
          object GroupBox20: TGroupBox
            Left = 3
            Top = 233
            Width = 289
            Height = 9
            TabOrder = 0
          end
          object KCGL_frm_dbeMedicineId: TDBEdit
            Left = 60
            Top = 21
            Width = 121
            Height = 21
            DataField = 'MedicineId'
            DataSource = KCGL_frm_ds1
            TabOrder = 1
          end
          object KCGL_frm_dbeMedicineName: TDBEdit
            Left = 60
            Top = 54
            Width = 121
            Height = 21
            DataField = 'MedicineName'
            DataSource = KCGL_frm_ds1
            TabOrder = 2
          end
          object KCGL_frm_dbeMedicineQuantity: TDBEdit
            Left = 61
            Top = 86
            Width = 121
            Height = 21
            DataField = 'MedicineQuantity'
            DataSource = KCGL_frm_ds1
            TabOrder = 3
          end
          object KCGL_frm_dbePrescription: TDBEdit
            Left = 60
            Top = 119
            Width = 121
            Height = 21
            DataField = 'Prescription'
            DataSource = KCGL_frm_ds1
            TabOrder = 4
          end
          object KCGL_frm_dbeMedicineCount: TDBEdit
            Left = 58
            Top = 147
            Width = 57
            Height = 21
            DataField = 'MedicineCount'
            DataSource = KCGL_frm_ds1
            TabOrder = 5
          end
          object KCGL_frm_dbeRecordCount: TDBEdit
            Left = 68
            Top = 277
            Width = 65
            Height = 21
            DataField = 'OrderCount'
            DataSource = KCGL_frm_ds2
            TabOrder = 6
          end
          object KCGL_frm_dbeRecordCost: TDBEdit
            Left = 67
            Top = 302
            Width = 79
            Height = 21
            DataField = 'OrderCost'
            DataSource = KCGL_frm_ds2
            TabOrder = 7
          end
          object KCGL_frm_dbecmbRecordLeve: TDBComboBox
            Left = 67
            Top = 247
            Width = 105
            Height = 21
            DataField = 'RecordLeve'
            DataSource = KCGL_frm_ds2
            ItemHeight = 13
            Items.Strings = (
              #38750#24120#32039#24613
              #24613#29992
              #19968#33324
              #20854#23427)
            TabOrder = 8
          end
          object KCGL_frm_dbeMedicineDesc: TDBMemo
            Left = 58
            Top = 184
            Width = 178
            Height = 49
            DataField = 'MedicineDesc'
            DataSource = KCGL_frm_ds1
            TabOrder = 9
          end
          object CheckBox1: TCheckBox
            Left = 195
            Top = 24
            Width = 97
            Height = 17
            Caption = #35814#32454#32570#36135#35760#24405
            TabOrder = 10
            OnClick = CheckBox1Click
          end
        end
        object GroupBox12: TGroupBox
          Left = 0
          Top = 504
          Width = 793
          Height = 21
          TabOrder = 1
        end
        object GroupBox13: TGroupBox
          Left = 8
          Top = 367
          Width = 289
          Height = 74
          Caption = #25805'  '#20316
          TabOrder = 2
          object KCGL_frm_btnAdd: TButton
            Left = 64
            Top = 10
            Width = 75
            Height = 25
            Caption = #28155'  '#21152
            TabOrder = 0
            OnClick = KCGL_frm_btnAddClick
          end
          object KCGL_frm_btnUpdate: TButton
            Left = 160
            Top = 10
            Width = 75
            Height = 25
            Caption = #20462'  '#25913
            TabOrder = 1
            OnClick = KCGL_frm_btnUpdateClick
          end
          object KCGL_frm_btnDelete: TButton
            Left = 64
            Top = 40
            Width = 75
            Height = 25
            Caption = #21024'   '#38500
            TabOrder = 2
            OnClick = KCGL_frm_btnDeleteClick
          end
          object KCGL_frm_btnCancel: TButton
            Left = 160
            Top = 41
            Width = 75
            Height = 25
            Caption = #21462'  '#28040
            TabOrder = 3
            OnClick = KCGL_frm_btnCancelClick