unit6.~pas

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

unit Unit6;

interface

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

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

var
  Form6: TForm6;

implementation
   uses Unit1;
{$R *.dfm}
procedure   tform6.DbgridRefresh();
var
  zz, S, ConStr, ii2: string;
  F: TextFile;
  i, ii: Integer;
begin
ADOQuery1.Close;
DBGrid1.Refresh;
//DBFdir.Text:='c:\';
 Unit6.Form6.DBFdir.Text := Unit1.Form1.Filedir.Text;
zz:='FSJC_JZQ.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);
      ADOQuery1.Active := true;
      ADOQuery1.Open;
      DBGrid1.DataSource.DataSet := ADOQuery1;
      DBGrid1.Refresh;
end;

procedure TForm6.FormCreate(Sender: TObject);


begin
    Edit1.Text:= '0';
      //ADOQuery1
end;


procedure TForm6.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:\';
 Unit6.Form6.DBFdir.Text := Unit1.Form1.Filedir.Text;
  zz := 'FSJC_JZQ.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.