loadtempdb.pas

p2pdbanywhere 可以通过之udp方式远程连接数据库的组件,这个组件非常好,是Delphi7,9,2006能够使用,包含源码.

unit LoadTempDb;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, Buttons, DB, ADODB, GridTitle,
  DBClient, remotedataset;

type
  Tloadtempdb_form = class(TForm)
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DataSource1: TDataSource;
    BitBtn4: TBitBtn;
    qq: TADOQuery;
    gt: TGridTitle;
    q1: TRemoteDataSet;
    q2: TRemoteDataSet;
    qq1: TADOQuery;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    billtype:string;
    { Public declarations }
  end;

var
  loadtempdb_form: Tloadtempdb_form;

implementation

{$R *.dfm}

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

procedure Tloadtempdb_form.BitBtn4Click(Sender: TObject);
begin
  gt.DesignGridTitle(self,dbgrid1);
end;

procedure Tloadtempdb_form.FormActivate(Sender: TObject);
begin
  gt.SetGridTitle(self,dbgrid1);
end;

procedure Tloadtempdb_form.BitBtn2Click(Sender: TObject);
begin
  if not qq.Active then exit;
  if qq.RecordCount=0 then exit;
  if application.MessageBox('确定要删除选定的暂存单据吗？','提示',mb_yesno)=idno then exit;
  //删除
  qq.delete;
end;

procedure Tloadtempdb_form.FormShow(Sender: TObject);
begin
  qq.Close;
  qq.SQL.Text:='select bill_code,bill_memo,bill_time from tempdb'+
               ' where bill_type='''+self.billtype+''' order by bill_time desc';
  qq.Open;
  if qq.RecordCount=0 then bitbtn1.Enabled:=false else bitbtn1.Enabled:=true;
end;

procedure Tloadtempdb_form.BitBtn1Click(Sender: TObject);
begin
  //判断
  if not qq.Active then abort;
  if qq.RecordCount=0 then abort;
  if length(trim(qq.FieldByName('bill_code').AsString))=0 then abort;
  qq1.Close;
  qq1.SQL.Text:='select * from tempdb where bill_type='''+
                self.billtype+''' and bill_code='''+
                qq.fieldbyname('bill_code').AsString+'''';
  qq1.Open;
  q1.XMLData:=qq1.fieldbyname('bill_q1').AsString;
  q2.XMLData:=qq1.fieldbyname('bill_q2').AsString;  
end;

procedure Tloadtempdb_form.FormCreate(Sender: TObject);
begin
  billtype:='';
end;

end.