czyda.dfm

一个基于数据的药品行业管理系统,较全面,可供学习数据的开发人员参考消息

object frm_czyda: Tfrm_czyda
  Left = 89
  Top = 265
  BorderIcons = []
  BorderStyle = bsNone
  Caption = #25805#20316#21592#26723#26696
  ClientHeight = 564
  ClientWidth = 804
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 804
    Height = 28
    AutoSize = True
    ButtonWidth = 66
    Caption = 'ToolBar1'
    Color = clInfoBk
    EdgeBorders = [ebTop, ebBottom]
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Images = ImageList2
    List = True
    ParentColor = False
    ParentFont = False
    ShowCaptions = True
    TabOrder = 0
    Wrapable = False
    object tadd: TToolButton
      Left = 0
      Top = 2
      Caption = '  '#26032#22686
      ImageIndex = 8
      OnClick = taddClick
    end
    object tdel: TToolButton
      Left = 66
      Top = 2
      Caption = ' '#21024#38500'    '
      ImageIndex = 0
    end
    object tedit: TToolButton
      Left = 132
      Top = 2
      Caption = ' '#32534#36753
      ImageIndex = 1
      OnClick = teditClick
    end
    object tsave: TToolButton
      Left = 198
      Top = 2
      Caption = ' '#20445#23384
      Enabled = False
      ImageIndex = 2
      OnClick = tsaveClick
    end
    object tcancel: TToolButton
      Left = 264
      Top = 2
      Caption = ' '#21462#28040
      Enabled = False
      ImageIndex = 3
    end
    object tprint: TToolButton
      Left = 330
      Top = 2
      Caption = ' '#25171#21360
      ImageIndex = 4
    end
    object tfind: TToolButton
      Left = 396
      Top = 2
      Caption = ' '#26597#35810' '
      ImageIndex = 9
      OnClick = tfindClick
    end
  end
  object PageControl1: TPageControl
    Left = 116
    Top = 32
    Width = 593
    Height = 422
    ActivePage = TabSheet2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MultiLine = True
    ParentFont = False
    TabOrder = 1
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = 
        '                               '#28155'      '#21152'      '#29992'        '#25143'         ' +
        '                '
      ImageIndex = 8
      object Label4: TLabel
        Left = 144
        Top = 402
        Width = 153
        Height = 13
        AutoSize = False
        Caption = #21021#22987#23494#30721#65306'1234'
      end
      object Label3: TLabel
        Left = 352
        Top = 14
        Width = 329
        Height = 171
        AutoSize = False
        Caption = #27880#24847#65306#26032#24314#29992#25143#30340#21021#22987#23494#30721#20026#65306'1234'
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -14
        Font.Name = #21326#25991#20013#23435
        Font.Style = []
        ParentFont = False
      end
      object GroupBox1: TGroupBox
        Left = 93
        Top = 0
        Width = 257
        Height = 105
        TabOrder = 0
        object Label1: TLabel
          Left = 31
          Top = 18
          Width = 60
          Height = 13
          Caption = #29992#25143#32534#21495#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 31
          Top = 52
          Width = 60
          Height = 13
          Caption = #29992#25143#21517#31216#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object txtczybh: TEdit
          Left = 96
          Top = 16
          Width = 121
          Height = 24
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 0
        end
        object txtczymc: TEdit
          Left = 96
          Top = 48
          Width = 121
          Height = 24
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 1
        end
      end
      object DBGrid1: TDBGrid
        Left = 93
        Top = 105
        Width = 257
        Height = 275
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
    object TabSheet2: TTabSheet
      Caption = 
        '                                 '#29992' '#25143' '#21151' '#33021' '#26435' '#38480'                    ' +
        '              '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImageIndex = 1
      ParentFont = False
      OnShow = TabSheet2Show
      object TreeView1: TTreeView
        Left = 11
        Top = 11
        Width = 226
        Height = 360
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        Images = ImageList2
        Indent = 19
        ParentFont = False
        TabOrder = 0
        OnClick = TreeView1Click
        OnExpanding = TreeView1Expanding
        OnExpanded = TreeView1Expanded
      end
      object StringGrid1: TStringGrid
        Left = 258
        Top = 40
        Width = 320
        Height = 321
        Enabled = False
        TabOrder = 1
        OnClick = StringGrid1Click
        OnSelectCell = StringGrid1SelectCell
      end
      object txtczyqx: TComboBox
        Left = 257
        Top = 16
        Width = 202
        Height = 24
        Style = csDropDownList
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ItemHeight = 16
        TabOrder = 2
        OnChange = txtczyqxChange
      end
    end
  end
  object ImageList2: TImageList
    Left = 486
    Top = 2
    Bitmap = {
      494C01010C000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000004000000001002000000000000040
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000