unit5.~pas

电力系统集中抄表 采集器 上位机软件 可以经行集中抄表

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, DBTables, ADODB, StdCtrls;

type
  TForm5 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    Database1: TDatabase;
    DBFdir: TEdit;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure DbgridRefresh();
  end;

var
  Form5: TForm5;
  click: integer;

implementation
uses Unit1;

{$R *.dfm}

procedure TForm5.FormCreate(Sender: TObject);
var
  zz, S, ConStr, ii2: string;
  F: TextFile;
  i, ii: integer;
begin
   Edit1.Text := '0';
end;

procedure TForm5.DbgridRefresh();

var
  zz, S, ConStr, ii2,TitleStr: string;
  F: TextFile;
  i, ii, click: integer;

label FjSql;
begin

  ADOQuery1.Close;
 // DBFdir.Text := 'c:\';
 Unit5.Form5.DBFdir.Text := Unit1.Form1.Filedir.Text;
  zz := 'FSJC_CBJ.dbf';

  ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source="'
    + DBFdir.Text //ExtractFilePath(zz)
  + '";Extended Properties=dBase 5.0;Persist Security Info=False';
  S := ExtractFileName(zz);
  S := copy(S, 1, Pos('.dbf', Lowercase(S)) - 1);
  //ADOQuery1
  ADOQuery1.ConnectionString := ConStr;
  ADOQuery1.SQL.Clear;

    ADOQuery1.SQL.Add('select * from ' + S );//+  order by bh desc
                                                                       

  FjSql: ADOQuery1.Active := true;
  ADOQuery1.Open;
  DBGrid1.DataSource.DataSet := ADOQuery1;
  DBGrid1.Refresh;
  //ADOQuery1

end;


procedure TForm5.DBGrid1TitleClick(Column: TColumn);
var
  zz, S, ConStr, ii2,TitleStr: string;
  F: TextFile;
  i, ii, click: integer;

label FjSql;
begin
  TitleStr:=Column.FieldName;
  ADOQuery1.Close;
 // DBFdir.Text := 'c:\';
 Unit5.Form5.DBFdir.Text := Unit1.Form1.Filedir.Text;
  zz := 'FSJC_CBJ.dbf';

  ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source="'
    + DBFdir.Text //ExtractFilePath(zz)
  + '";Extended Properties=dBase 5.0;Persist Security Info=False';
  S := ExtractFileName(zz);
  S := copy(S, 1, Pos('.dbf', Lowercase(S)) - 1);
  //ADOQuery1
  ADOQuery1.ConnectionString := ConStr;
  ADOQuery1.SQL.Clear;
  if Edit1.Text = '0' then begin
    ADOQuery1.SQL.Add('select * from ' + S + ' order by '+ TitleStr +  ' desc');
    Edit1.Text := '1';
    goto FjSql;
  end;

  if Edit1.Text = '1' then begin
    ADOQuery1.SQL.Add('select * from ' + S + ' order by '+ TitleStr +  '  ASC');
    Edit1.Text := '0';
  end;

  FjSql: ADOQuery1.Active := true;
  ADOQuery1.Open;
  DBGrid1.DataSource.DataSet := ADOQuery1;
  DBGrid1.Refresh;
  //ADOQuery1

end;

end.