query.pas

1 系统登陆 为了对数据保密和防止以外数据破坏

unit query;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, DBActns, ActnList, DB, ADODB, StdCtrls, Buttons, Grids,
  DBGrids, DBCtrls, Mask, ComCtrls, ExtCtrls;

type
  Tfrm_query = class(TForm)
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ActionList1: TActionList;
    DataSetFirst1: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetLast1: TDataSetLast;
    DataSetInsert1: TDataSetInsert;
    DataSetDelete1: TDataSetDelete;
    DataSetPost1: TDataSetPost;
    DataSetCancel1: TDataSetCancel;
    ImageList1: TImageList;
    DataSetRefresh1: TDataSetRefresh;
    Panel2: TPanel;
    Panel3: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label20: TLabel;
    Label19: TLabel;
    Label21: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    DBComboBox4: TDBComboBox;
    DBComboBox5: TDBComboBox;
    DBMemo1: TDBMemo;
    DBMemo2: TDBMemo;
    DBMemo3: TDBMemo;
    DBMemo4: TDBMemo;
    DBMemo5: TDBMemo;
    DBEdit3: TDBEdit;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn7: TBitBtn;
    GroupBox1: TGroupBox;
    lb_RecNo: TLabel;
    lb_RecCount: TLabel;
    StaticText1: TStaticText;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    btn_Query: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure btn_QueryClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    Queryed:Boolean;
    procedure DispAllRecords;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_query: Tfrm_query;

implementation

uses main, table;

{$R *.dfm}

procedure Tfrm_query.DispAllRecords;
begin
  with ADOQuery1 do
  begin
    SQL.Clear;
    SQL.Add('select * from 助学申请');
    Prepared;
    Open;
  end;
  Queryed:=False;
  Edit1.Text:='';
end;

procedure Tfrm_query.FormCreate(Sender: TObject);
var
  i:Integer;
begin
  Queryed:=False;
  ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                               MyPath+'mdb\勤工助学.mdb;Jet OLEDB:Database Password='+
                               MyPassW+';Persist Security Info=False';
  DispAllRecords;
  //=====================================
  ComboBox1.Clear;
  for i:=0 to ADOQuery1.FieldCount-2 do
    ComboBox1.Items.Add(ADOQuery1.Fields[i].FieldName);
  ComboBox1.ItemIndex:=0;
  ComboBox2.ItemIndex:=0;
  Edit1.Text:='';
end;

procedure Tfrm_query.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  lb_RecNo.Caption:='当前记录：'+IntToStr(DataSource1.DataSet.RecNo);
  lb_RecCount.Caption:='记录总数：'+IntToStr(DataSource1.DataSet.RecordCount);
end;

procedure Tfrm_query.btn_QueryClick(Sender: TObject);
var
  sign:string;
  fstr:string;
begin
  if Edit1.Text='' then
  begin
    DispAllRecords;
    Queryed:=False;
    Exit;
  end;
  case ComboBox2.ItemIndex of
    0: sign:='=';
    1: sign:='>';
    2: sign:='<';
    3: sign:=' like ';
    4: sign:='<>';
  end;
  case ComboBox1.ItemIndex of
    0,4:fstr:='select * from 助学申请 where(%s%s%s) order by %s';
    19: fstr:='select * from 助学申请 where(%s%s#%s#) order by %s';
  else fstr:='select * from 助学申请 where(%s%s''%s'') order by %s';
  end;
  with ADOQuery1 do
  begin
    SQL.Clear;
    SQL.Add(Format(fstr,[ComboBox1.Text,sign,Edit1.Text,ComboBox1.Text]));
    Prepared;
    Open;
  end;
  Queryed:=True;
end;

procedure Tfrm_query.FormActivate(Sender: TObject);
begin
  if not frm_table.bModified then Exit;
  if Queryed then
  begin
    if MessageBox(Handle,'记录有所改变，是否刷新显示？','信息',MB_YESNO or MB_ICONWARNING)=IDYES then
    begin
      DispAllRecords;
      frm_table.bModified:=False;
    end;
  end else
  begin
    DispAllRecords;
    frm_table.bModified:=False;
  end;
end;

procedure Tfrm_query.BitBtn5Click(Sender: TObject);
begin
  DispAllRecords;
end;

procedure Tfrm_query.FormShow(Sender: TObject);
begin
  DispAllRecords;
end;

end.