q_other.dfm

汽配前台收费,一个具有详细功能的小系统

object frm_q_other: Tfrm_q_other
  Left = 315
  Top = 216
  BorderStyle = bsDialog
  Caption = #19994#21153#26597#35810'--'#20854#20182#19994#21153#25910#20837
  ClientHeight = 292
  ClientWidth = 411
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pe_bh: TPanel
    Left = 0
    Top = 0
    Width = 410
    Height = 36
    BevelInner = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 12
      Width = 59
      Height = 13
      Caption = #32467#31639#26085#26399':'
    end
    object Label7: TLabel
      Left = 149
      Top = 12
      Width = 13
      Height = 13
      Caption = #33267
    end
    object txt_d_xx: TMaskEdit
      Left = 69
      Top = 8
      Width = 76
      Height = 21
      EditMask = '!9999-99-99;1;0'
      MaxLength = 10
      TabOrder = 0
      Text = '    -  -  '
      OnKeyPress = txt_d_xxKeyPress
    end
    object cmd_q: TBitBtn
      Left = 337
      Top = 6
      Width = 64
      Height = 25
      Caption = #26597#35810
      TabOrder = 1
      OnClick = cmd_qClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333FF3FF3333333333CC30003333333333773777333333333C33
        3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
        33003377333337F33377333333333C333300333F333337F33377339333333C33
        3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
        330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
        330077F377F337F33377993399333C33330077FF773337F33377399993333C33
        33333777733337F333FF333333333C33300033333333373FF7773333333333CC
        3000333333333377377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object txt_d_sx: TMaskEdit
      Left = 165
      Top = 8
      Width = 76
      Height = 21
      EditMask = '!9999-99-99;1;0'
      MaxLength = 10
      TabOrder = 2
      Text = '    -  -  '
      OnKeyPress = txt_d_xxKeyPress
    end
  end
  object pe_edit: TPanel
    Left = 0
    Top = 36
    Width = 410
    Height = 255
    BevelInner = bvLowered
    TabOrder = 1
    object Label2: TLabel
      Left = 176
      Top = 198
      Width = 26
      Height = 13
      Caption = #22791#27880
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsUnderline]
      ParentFont = False
    end
    object DBGrid1: TDBGrid
      Left = 5
      Top = 5
      Width = 399
      Height = 188
      Color = clInfoBk
      DataSource = ds_other
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'o_date'
          Title.Alignment = taCenter
          Title.Caption = #32467#31639#26085#26399
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'o_unit'
          Title.Alignment = taCenter
          Title.Caption = #21333#20301'/'#36710#29260#21495
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'o_text'
          Title.Alignment = taCenter
          Title.Caption = #26381#21153#39033#30446
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'o_fk'
          Title.Alignment = taCenter
          Title.Caption = #25910#27454#37329#39069
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'o_fk_fs'
          Title.Alignment = taCenter
          Title.Caption = #25910#27454#26041#24335
          Visible = True
        end>
    end
    object txt_memo: TDBMemo
      Left = 6
      Top = 214
      Width = 397
      Height = 33
      Color = clInfoBk
      DataField = 'o_memo'
      DataSource = ds_other
      ReadOnly = True
      TabOrder = 1
    end
  end
  object qe_other: TQuery
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    SQL.Strings = (
      'select * from others')
    Left = 152
    Top = 132
  end
  object ds_other: TDataSource
    DataSet = qe_other
    Left = 120
    Top = 132
  end
end