unit_browse.pas

实现短信的收发应用非常的方便,系统很小直接使用不需安装

unit Unit_browse;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, DBGrids, ComCtrls, DB, DBTables,
  DBClient, Provider, ExtCtrls, ADODB;

type
  TBrowseform = class(TForm)
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    StatusBar1: TStatusBar;
    DataSource1: TDataSource;
    BitBtn2: TSpeedButton;
    SpeedButton1: TSpeedButton;
    Shape1: TShape;
    Label4: TLabel;
    Shape2: TShape;
    Query1: TADOQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure FormActivate(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn4Click(Sender: TObject);
    procedure Query1AfterScroll(DataSet: TDataSet);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Shape1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
     num:Integer;
     infield:array of string;
     outfield:array of string;
     Initiastr:string;
    { Public declarations }
  end;
  Procedure ExecMysql(QueryName:TadoQuery;sqlstring:string);
var
  Browseform: TBrowseform;

implementation
uses unit_design,udb;
{$R *.dfm}
 Procedure ExecMysql(QueryName:TadoQuery;sqlstring:string);
 begin
   with  QueryName do
   begin
     Close;
     SQL.Clear;
     SQL.Text:=SqlString;
     Execsql;
     Open;
   end;
 end;

procedure TBrowseform.BitBtn2Click(Sender: TObject);
begin
  try
    designform:=Tdesignform.Create(self);
    designform.ShowModal;
  Finally
    designform.Free;
  end;  
end;

procedure TBrowseform.DBGrid1TitleClick(Column: TColumn);
var
mysql1:string;
i:integer;
begin
  if Initiastr<>'' then
  begin
   for i:=0 to dbgrid1.Columns.Count-1 do
   if column=dbgrid1.Columns[i] then
   begin
    Mysql1:=Initiastr+' order by '''+dbgrid1.Columns[i].FieldName+'''';
    Execmysql(query1,mysql1);
   end;
  end; 
end;

procedure TBrowseform.FormActivate(Sender: TObject);
begin
Initiastr:=Query1.SQL.Text;
end;

procedure TBrowseform.DBGrid1DblClick(Sender: TObject);
begin
 close;
end;

procedure TBrowseform.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure TBrowseform.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (key=#13) and (Query1.Active=true) then
  begin
   With Query1 do
    begin
     Locate(FieldList[0].FieldName,Edit1.Text,[]);
    end;

  end;
end;

procedure TBrowseform.BitBtn4Click(Sender: TObject);
begin
   ExecMysql(Query1,Initiastr);
end;

procedure TBrowseform.Query1AfterScroll(DataSet: TDataSet);
begin
Edit1.Text:=Query1.Fields[0].AsString;
end;

procedure TBrowseform.BitBtn1Click(Sender: TObject);
begin
   {Try
     PubFindForm:=TPubFindForm.Create(self);
     PubFindForm.ShowModal;
   Finally
     PubFindForm.Free;
   end; }
   //
end;

procedure TBrowseform.SpeedButton1Click(Sender: TObject);
begin
close;
end;

procedure TBrowseform.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
{if button=mbleft then
  begin
  releasecapture;
  perform(wm_syscommand,$f012,0);
  end; }
end;

procedure TBrowseform.DBGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if button=mbleft then
  begin
  releasecapture;
  perform(wm_syscommand,$f012,0);
  end; 
end;

procedure TBrowseform.Shape1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if button=mbleft then
  begin
  releasecapture;
  perform(wm_syscommand,$f012,0);
  end; 
end;

end.