MANAGER.~dfm

Upload User: xgks2007
Upload Date: 2015-04-22
Package Size: 6496k
Code Size: 8k
Category: MiddleWare
Development Platform: C++ Builder
  1. object Form23: TForm23
  2.   Left = 254
  3.   Top = 136
  4.   Width = 696
  5.   Height = 480
  6.   BorderIcons = [biSystemMenu]
  7.   Caption = #25805#20316#20154#21592#31649#29702
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -12
  12.   Font.Name = #23435#20307
  13.   Font.Style = []
  14.   OldCreateOrder = False
  15.   Position = poDesktopCenter
  16.   Scaled = False
  17.   OnShow = FormShow
  18.   PixelsPerInch = 96
  19.   TextHeight = 12
  20.   object Label1: TLabel
  21.     Left = 272
  22.     Top = 8
  23.     Width = 120
  24.     Height = 19
  25.     AutoSize = False
  26.     Caption = #25805#20316#20154#21592#31649#29702
  27.     Font.Charset = GB2312_CHARSET
  28.     Font.Color = clWindowText
  29.     Font.Height = -19
  30.     Font.Name = #23435#20307
  31.     Font.Style = [fsBold]
  32.     ParentFont = False
  33.   end
  34.   object Label7: TLabel
  35.     Left = 40
  36.     Top = 432
  37.     Width = 433
  38.     Height = 13
  39.     AutoSize = False
  40.     Caption = '**'#26435#38480#35828#26126' 0'#65306#25910#36153'  1'#65306#25910#36153#12289#31649#29702#24211#23384' 2'#65306#25910#36153#12289#31649#29702#24211#23384#12289#31995#32479#35774#32622
  41.   end
  42.   object GroupBox1: TGroupBox
  43.     Left = 8
  44.     Top = 32
  45.     Width = 673
  46.     Height = 225
  47.     Caption = #25805#20316#20154#21592#21015#34920
  48.     TabOrder = 0
  49.     object Label2: TLabel
  50.       Left = 64
  51.       Top = 204
  52.       Width = 24
  53.       Height = 12
  54.       Caption = #39318#26465
  55.     end
  56.     object Label3: TLabel
  57.       Left = 192
  58.       Top = 204
  59.       Width = 24
  60.       Height = 12
  61.       Caption = #26411#26465
  62.     end
  63.     object Label4: TLabel
  64.       Left = 328
  65.       Top = 204
  66.       Width = 24
  67.       Height = 12
  68.       Caption = #21024#38500
  69.     end
  70.     object Label5: TLabel
  71.       Left = 456
  72.       Top = 204
  73.       Width = 24
  74.       Height = 12
  75.       Caption = #30830#23450
  76.     end
  77.     object Label6: TLabel
  78.       Left = 584
  79.       Top = 204
  80.       Width = 24
  81.       Height = 12
  82.       Caption = #21462#28040
  83.     end
  84.     object DBGrid1: TDBGrid
  85.       Left = 8
  86.       Top = 16
  87.       Width = 657
  88.       Height = 153
  89.       DataSource = DataSource1
  90.       ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
  91.       Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
  92.       TabOrder = 0
  93.       TitleFont.Charset = DEFAULT_CHARSET
  94.       TitleFont.Color = clWindowText
  95.       TitleFont.Height = -12
  96.       TitleFont.Name = #23435#20307
  97.       TitleFont.Style = []
  98.       Columns = <
  99.         item
  100.           Alignment = taCenter
  101.           Expanded = False
  102.           FieldName = 'ID'
  103.           ReadOnly = True
  104.           Title.Alignment = taCenter
  105.           Title.Caption = #32534#21495
  106.           Visible = True
  107.         end
  108.         item
  109.           Expanded = False
  110.           FieldName = 'Name'
  111.           Title.Alignment = taCenter
  112.           Title.Caption = #22995#21517
  113.           Width = 69
  114.           Visible = True
  115.         end
  116.         item
  117.           Alignment = taCenter
  118.           Expanded = False
  119.           FieldName = 'Sex'
  120.           Title.Alignment = taCenter
  121.           Title.Caption = #24615#21035
  122.           Width = 48
  123.           Visible = True
  124.         end
  125.         item
  126.           Expanded = False
  127.           FieldName = 'Address'
  128.           Title.Alignment = taCenter
  129.           Title.Caption = #20303#22336
  130.           Visible = True
  131.         end
  132.         item
  133.           Expanded = False
  134.           FieldName = 'InTime'
  135.           Title.Alignment = taCenter
  136.           Title.Caption = #20837#24215#26102#38388
  137.           Width = 106
  138.           Visible = True
  139.         end
  140.         item
  141.           Alignment = taCenter
  142.           Expanded = False
  143.           FieldName = 'ManagerRight'
  144.           Title.Alignment = taCenter
  145.           Title.Caption = #26435#38480
  146.           Visible = True
  147.         end>
  148.     end
  149.     object DBNavigator1: TDBNavigator
  150.       Left = 8
  151.       Top = 176
  152.       Width = 655
  153.       Height = 25
  154.       DataSource = DataSource1
  155.       VisibleButtons = [nbFirst, nbLast, nbDelete, nbPost, nbCancel]
  156.       TabOrder = 1
  157.     end
  158.   end
  159.   object GroupBox2: TGroupBox
  160.     Left = 8
  161.     Top = 264
  162.     Width = 673
  163.     Height = 161
  164.     Caption = #26032#22686#25805#20316#20154#21592
  165.     TabOrder = 1
  166.     object Label8: TLabel
  167.       Left = 48
  168.       Top = 32
  169.       Width = 36
  170.       Height = 13
  171.       AutoSize = False
  172.       Caption = #32534#21495#65306
  173.     end
  174.     object Label9: TLabel
  175.       Left = 232
  176.       Top = 32
  177.       Width = 36
  178.       Height = 13
  179.       AutoSize = False
  180.       Caption = #22995#21517#65306
  181.     end
  182.     object Label10: TLabel
  183.       Left = 424
  184.       Top = 32
  185.       Width = 36
  186.       Height = 13
  187.       AutoSize = False
  188.       Caption = #24615#21035#65306
  189.     end
  190.     object Label11: TLabel
  191.       Left = 48
  192.       Top = 64
  193.       Width = 36
  194.       Height = 13
  195.       AutoSize = False
  196.       Caption = #20303#22336#65306
  197.     end
  198.     object Label12: TLabel
  199.       Left = 48
  200.       Top = 96
  201.       Width = 36
  202.       Height = 13
  203.       AutoSize = False
  204.       Caption = #26102#38388#65306
  205.     end
  206.     object Label13: TLabel
  207.       Left = 232
  208.       Top = 96
  209.       Width = 36
  210.       Height = 13
  211.       AutoSize = False
  212.       Caption = #26435#38480#65306
  213.     end
  214.     object Label14: TLabel
  215.       Left = 424
  216.       Top = 96
  217.       Width = 36
  218.       Height = 13
  219.       AutoSize = False
  220.       Caption = #21475#20196#65306
  221.     end
  222.     object ID: TEdit
  223.       Left = 80
  224.       Top = 24
  225.       Width = 121
  226.       Height = 20
  227.       ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
  228.       TabOrder = 0
  229.       OnExit = IDExit
  230.       OnKeyPress = IDKeyPress
  231.     end
  232.     object Name: TEdit
  233.       Left = 264
  234.       Top = 24
  235.       Width = 121
  236.       Height = 20
  237.       ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
  238.       TabOrder = 1
  239.       OnKeyPress = NameKeyPress
  240.     end
  241.     object sex: TComboBox
  242.       Left = 456
  243.       Top = 24
  244.       Width = 129
  245.       Height = 20
  246.       Style = csDropDownList
  247.       ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
  248.       ItemHeight = 12
  249.       TabOrder = 2
  250.       OnKeyPress = sexKeyPress
  251.       Items.Strings = (
  252.         #30007
  253.         #22899)
  254.     end
  255.     object address: TEdit
  256.       Left = 80
  257.       Top = 56
  258.       Width = 305
  259.       Height = 20
  260.       ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
  261.       TabOrder = 3
  262.       OnKeyPress = addressKeyPress
  263.     end
  264.     object Intime: TMaskEdit
  265.       Left = 80
  266.       Top = 88
  267.       Width = 121
  268.       Height = 20
  269.       ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
  270.       TabOrder = 4
  271.       OnKeyPress = IntimeKeyPress
  272.     end
  273.     object ManagerRight: TComboBox
  274.       Left = 264
  275.       Top = 88
  276.       Width = 121
  277.       Height = 20
  278.       Style = csDropDownList
  279.       ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
  280.       ItemHeight = 12
  281.       TabOrder = 5
  282.       OnKeyPress = ManagerRightKeyPress
  283.       Items.Strings = (
  284.         '0'
  285.         '1'
  286.         '2')
  287.     end
  288.     object Button1: TButton
  289.       Left = 224
  290.       Top = 128
  291.       Width = 75
  292.       Height = 25
  293.       Caption = #30830'  '#23450
  294.       TabOrder = 6
  295.       OnClick = Button1Click
  296.     end
  297.     object Button2: TButton
  298.       Left = 352
  299.       Top = 128
  300.       Width = 75
  301.       Height = 25
  302.       Caption = #36820'  '#22238
  303.       TabOrder = 7
  304.       OnClick = Button2Click
  305.     end
  306.     object Passw: TMaskEdit
  307.       Left = 456
  308.       Top = 88
  309.       Width = 121
  310.       Height = 20
  311.       PasswordChar = '*'
  312.       TabOrder = 8
  313.     end
  314.   end
  315.   object Q_manager: TQuery
  316.     Active = True
  317.     DatabaseName = 'Hotel'
  318.     RequestLive = True
  319.     SQL.Strings = (
  320.       'select * from Manager order by ID')
  321.     Left = 144
  322.   end
  323.   object DataSource1: TDataSource
  324.     DataSet = Q_manager
  325.     Left = 184
  326.   end
  327.   object Q_repeat: TQuery
  328.     DatabaseName = 'Hotel'
  329.     Left = 24
  330.     Top = 296
  331.   end
  332. end