unit_small.dfm

航空人身保险信息管理系统使用SQL和DELHPI开发

object FrmSmall: TFrmSmall
  Left = 263
  Top = 77
  Width = 515
  Height = 319
  Caption = #31614#21457#20445#38505#21333
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 15
  object Label1: TLabel
    Left = 40
    Top = 40
    Width = 60
    Height = 15
    Caption = #25237#20445#20221#25968
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 40
    Top = 80
    Width = 90
    Height = 15
    Caption = #34987#20445#38505#20154#22995#21517
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 40
    Top = 148
    Width = 45
    Height = 15
    Caption = #33322#29677#21495
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 40
    Top = 188
    Width = 60
    Height = 15
    Caption = #20056#26426#26085#26399
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 39
    Top = 112
    Width = 60
    Height = 15
    Caption = #36523#20221#35777#21495
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Edit1: TEdit
    Left = 136
    Top = 40
    Width = 169
    Height = 23
    MaxLength = 1
    TabOrder = 0
    Text = '1'
    OnKeyPress = Edit1KeyPress
  end
  object Edit2: TEdit
    Left = 136
    Top = 80
    Width = 169
    Height = 23
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    MaxLength = 20
    TabOrder = 1
    OnKeyPress = Edit2KeyPress
  end
  object Edit3: TEdit
    Left = 136
    Top = 148
    Width = 169
    Height = 23
    ImeMode = imClose
    TabOrder = 2
    OnKeyPress = Edit3KeyPress
  end
  object Edit4: TEdit
    Left = 136
    Top = 188
    Width = 169
    Height = 23
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 3
  end
  object Button1: TButton
    Left = 56
    Top = 248
    Width = 80
    Height = 21
    Caption = #30830#23450'(&Y)'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 176
    Top = 244
    Width = 80
    Height = 25
    Caption = #35814#32454#20449#24687'>>'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 296
    Top = 244
    Width = 80
    Height = 25
    Caption = #21462#28040'(&X)'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = Button3Click
  end
  object DateTimePicker1: TDateTimePicker
    Left = 136
    Top = 188
    Width = 169
    Height = 23
    Date = 38720.820836226850000000
    Format = 'yyyy'#24180'MM'#26376'dd'#26085
    Time = 38720.820836226850000000
    DateFormat = dfLong
    TabOrder = 7
  end
  object Edit5: TEdit
    Left = 135
    Top = 112
    Width = 169
    Height = 23
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    MaxLength = 18
    TabOrder = 8
    Text = '620103696969101'
    OnKeyPress = Edit2KeyPress
  end
  object GroupBox1: TGroupBox
    Left = 312
    Top = 34
    Width = 193
    Height = 177
    Caption = #33322#29677#21495
    TabOrder = 9
    object ListBox1: TListBox
      Left = 2
      Top = 17
      Width = 189
      Height = 158
      Align = alClient
      ItemHeight = 15
      Items.Strings = (
        'sdfg '
        'sdfg'
        'sdfg'
        'sdg'
        'sdg'
        'sdfg')
      TabOrder = 0
      OnClick = ListBox1Click
      OnData = ListBox1Data
    end
  end
  object frReport1: TfrReport
    Dataset = frDBDataSet1
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    StoreInDFM = True
    RebuildPrinter = False
    Left = 8
    Top = 8
    ReportForm = {
      190000007F090000190000000026004D6963726F736F6674204F666669636520
      446F63756D656E7420496D6167652057726974657200FFFFFFFFFF0001000058
      0700007A0300000000000000000000000000000000000000FFFF00000000FFFF
      000000000000000000000000030400466F726D000F0000FFDC00000078000000
      7C0100002C01000004000000FFFFFFFFFF09000000340800009A0B0000000000
      0000000000000000000000000000FFFF00000000FFFF00000000000000000105
      00506167653100030400466F726D000F0000FF5C010000D30000007C0100002C
      010000040000000200540100000900D6F7CFEECAFDBEDD310002010000000000
      000000A6020000400100003000050001000000000000000000FFFFFF1F000000
      000C0066724442446174615365743100000000000000FFFF0000000000020000
      00010000000000000001000000C800000014000000010000000000000000E401
      000005004D656D6F310002007400000090000000FD0000001A00000003000000
      01000000000000000000FFFFFF1F2E020000000000010012005B41444F517565
      7279312E224E616D65225D00000000FFFF000000000002000000010000000005
      00417269616C000A0000000000000000000A0000000100020000000000FFFFFF
      00000000020000000000000000007402000005004D656D6F32000200AC010000
      90000000F60000001A0000000300000001000000000000000000FFFFFF1F2E02
      0000000000010012005B41444F5175657279312E2249444E6F225D00000000FF
      FF00000000000200000001000000000500417269616C000A0000000000000000
      00010000000100020000000000FFFFFF00000000020000000000000000000903
      000005004D656D6F3300020070000000AC000000010100001A00000003000000
      01000000000000000000FFFFFF1F2E020000000000010017005B41444F517565
      7279312E224169726C696E654E6F225D00000000FFFF00000000000200000001
      000000000500417269616C000A00000000000000000009000000010002000000
      0000FFFFFF0000000002000000000000000000F303000005004D656D6F340002
      0074010000AC000000F60000001A0000000300000001000000000000000000FF
      FFFF1F2E02000000000001006C005B594541524F46285B41444F517565727931
      2E2241626F61726444617465225D295DC4EA5B4D4F4E54484F46285B41444F51
      75657279312E2241626F61726444617465225D295DD4C25B4441594F46285B41
      444F5175657279312E2241626F61726444617465225D295DC8D500000000FFFF
      00000000000200000001000000000500417269616C000A000000000000000000
      010000000100020000000000FFFFFF00000000020000000000000000006F0400
      0005004D656D6F3500020064000000C8000000010100001A0000000300000001
      000000000000000000FFFFFF1F2E020000000000000000000000FFFF00000000
      000200000001000000000500417269616C000A00000002000000000001000000
      0100020000000000FFFFFF0000000002000000000000000000ED04000005004D
      656D6F3600020064010000C8000000F60000001A000000030000000100000000
      0000000000FFFFFF1F2E0200000000000100000000000000FFFF000000000002
      00000001000000000500417269616C000A000000020000000000010000000100
      020000000000FFFFFF00000000020000000000000000008105000005004D656D
      6F3700020074000000E4000000F8010000130000000300000001000000000000
      000000FFFFFF1F2E020000000000010016005B41444F5175657279312E225265
      6C6174696F6E225D00000000FFFF000000000002000000010000000005004172
      69616C000A000000000000000000110000000100020000000000FFFFFF000000
      00020000000000000000001206000005004D656D6F380002008C000000200100
      00810000001A0000000300000001000000000000000000FFFFFF1F2E02000000
      0000010013005B41444F5175657279312E2274656C6E6F225D00000000FFFF00
      000000000200000001000000000500417269616C000A00000000000000000001
      0000000100020000000000FFFFFF0000000002000000000000000000F6060000
      05004D656D6F39000200FB010000210100008800000017000000030000000100
      0000000000000000FFFFFF1F2E020000000000010066005B594541524F46285B
      41444F5175657279312E227369676E64617465225D295DC4EA5B4D4F4E54484F
      46285B41444F5175657279312E227369676E64617465225D295DD4C25B444159
      4F46285B41444F5175657279312E227369676E64617465225D295DC8D5000000
      00FFFF00000000000200000001000000000500417269616C000A000000000000
      000000010000000100020000000000FFFFFF0000000002000000000000000000
      8E07000006004D656D6F3130000200840000006C000000F30000001A00000003
      00000001000000000000000000FFFFFF1F2E020000000000010019005B41444F
      5175657279312E22496E737572616E63654E6F225D00000000FFFF0000000000
      0200000001000000000500417269616C000B0000000000000000001100000001
      00020000000000FFFFFF00000000020000000000000000002108000006004D65
      6D6F313100020068000000F4000000E400000020000000030000000100000000
      0000000000FFFFFF1F2E020000000000010014005B41444F5175657279312E22
      6E616D655F31225D00000000FFFF000000000002000000010000000005004172
      69616C000A000000000000000000110000000100020000000000FFFFFF000000
      0002000000000000000000B608000006004D656D6F313200020048010000F800
      0000A80000001C0000000300000001000000000000000000FFFFFF1F2E020000
      000000010016005B41444F5175657279312E2241646472657373225D20000000
      00FFFF00000000000200000001000000000500417269616C000A000000000000
      000000110000000100020000000000FFFFFF0000000002000000000000000000
      4D09000006004D656D6F3133000200F0010000FC000000800000001800000003
      00000001000000000000000000FFFFFF1F2E020000000000010018005B41444F
      5175657279312E22706F7374636F64655F31225D00000000FFFF000000000002
      00000001000000000500417269616C000A000000000000000000110000000100
      020000000000FFFFFF000000000200000000000000FEFEFF0000000000000000
      00000000FC0000000000000000000000000000000058008BA4180A98E8E24011
      06508F5DF0E240}
  end
  object frDBDataSet1: TfrDBDataSet
    DataSet = ADOQuery1
    Left = 48
    Top = 8
  end
  object ADOQuery1: TADOQuery
    AutoCalcFields = False
    Connection = Dtm.ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'CurrentNo'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 26
        Value = Null
      end>
    SQL.Strings = (
      '    select a.[Name],'
      'b.signdate as signdate  ,b.InsuranceNo,a.AirlineNo,'
      '   a.AboardDate as AboardDate ,'
      ''
      'c.Relation,c.Postcode,c.Address,a.IDNo,c.telno'
      '    , c.postcode ,c.address,c.[name]'
      ''
      'from dbo.InsuranceCustomer as a,'
      '      dbo.InsuranceForm as b,'
      '      dbo.BenefitPerson as c'
      'where'
      '       a.CurrentNo=b.CurrentNo'
      '       and b.InsuranceNo=c.InsuranceNo'
      'and   a.CurrentNo=:CurrentNo'
      ''
      '      ')
    Left = 104
    Top = 8
  end
end