main.dfm

一个很好用的万能查询控件。部分代码经过更改。

object Form1: TForm1
  Left = 116
  Top = 147
  Width = 658
  Height = 430
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 650
    Height = 353
    Align = alTop
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'CheckCardNo'
        Title.Caption = #32534#21495
        Width = 63
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DealDate'
        Title.Caption = #24314#31435#26102#38388
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'AnnoValue'
        Title.Caption = #20215#20540
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'InfoOrgID'
        Title.Caption = #26426#26500#32534#21495
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ShortName'
        Title.Caption = #31616#31216
        Width = 62
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Name'
        Title.Caption = #20840#31216
        Width = 94
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Province'
        Title.Caption = #30465
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'City'
        Title.Caption = #24066
        Visible = True
      end>
  end
  object Button1: TButton
    Left = 159
    Top = 368
    Width = 105
    Height = 25
    Caption = #21333#19968#26465#20214#26597#35810
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 264
    Top = 368
    Width = 75
    Height = 25
    Caption = #22810#26465#20214#26597#35810
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 444
    Top = 368
    Width = 117
    Height = 25
    Caption = #20219#24847#32452#21512#26465#20214#26597#35810
    TabOrder = 3
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 339
    Top = 368
    Width = 105
    Height = 25
    Caption = #22810#26465#20214#32452#21512#26597#35810
    TabOrder = 4
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 561
    Top = 368
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 5
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 76
    Top = 368
    Width = 75
    Height = 25
    Caption = #36873#25321#23383#27573
    TabOrder = 6
    OnClick = Button6Click
  end
  object ADOQuery1: TADOQuery
    AutoCalcFields = False
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=jiaji;Persist Security Info=True;Us' +
      'er ID=jiaji;Initial Catalog=ec_jiaji_app;Data Source=PRDSQLSERVE' +
      'R1'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT *'
      'FROM dbo.BUSI_Waybill a LEFT OUTER JOIN'
      
        '      dbo.BAS_Org b ON a.InfoOrgID = b.OrgID where ltrim(rtrim(c' +
        'ity))<>'#39#39)
    Left = 68
    Top = 52
  end
  object Find1: TFind
    FormName = Owner
    GridName = 'DBGrid1'
    SqlText = 
      'SELECT * FROM dbo.BUSI_Waybill a LEFT OUTER JOIN  dbo.BAS_Org b ' +
      'ON a.InfoOrgID = b.OrgID where ltrim(rtrim(city))<>'#39#39
    AdoQuery = ADOQuery1
    FindSet = [fsDBGrid]
    ParentFont = True
    ShowDateTimePicker = True
    FindFormCaption = 'xxxxxxxxxxxxxx'
    Left = 124
    Top = 52
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 96
    Top = 52
  end
end