savetempdb.pas

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

unit SaveTempDb;

interface

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

type
  Tsavetempdb_form = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    q1: TRemoteDataSet;
    q2: TRemoteDataSet;
    qq: TADOQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    Billtype:string;
    { Public declarations }
  end;

var
  savetempdb_form: Tsavetempdb_form;

implementation

{$R *.dfm}

procedure Tsavetempdb_form.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure Tsavetempdb_form.FormShow(Sender: TObject);
begin
  edit1.SetFocus;
  edit1.SelectAll;
end;

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

procedure Tsavetempdb_form.BitBtn1Click(Sender: TObject);
begin
  if length(trim(edit1.Text))=0 then
  begin
    showmessage('单据编号不能够为空！');
    exit;
  end;
  {if not q1.Active then
  begin
    showmessage('无法保存关闭的数据集！');
    exit;
  end;
  if q1.RecordCount=0 then
  begin
     showmessage('保存数据不完整！');
     exit;
  end;
  if not q2.Active then
  begin
    showmessage('无法保存关闭的数据集！');
    exit;
  end;
  if q2.RecordCount=0 then
  begin
     showmessage('保存数据不完整！');
     exit;
  end;  }
  //判断有无重复，无则插入，有则更新
  qq.Close;
  qq.SQL.Text:='select bill_code from tempdb where bill_type='''+self.Billtype+
               ''' and bill_code='''+self.Edit1.Text+'''';
  qq.Open;
  if qq.RecordCount>=1 then
  begin
    qq.Close;
    qq.SQL.Text:='update tempdb set bill_time='''+datetimetostr(now)+''','+
                 'bill_q1=:A,bill_q2=:B,bill_memo='''+memo1.Text+''''+
                 ' where bill_type='''+self.Billtype+
                 ''' and bill_code='''+self.Edit1.Text+'''';
    qq.Parameters.ParamValues['A']:=q1.XMLData;
    qq.Parameters.ParamValues['B']:=q2.XMLData;
    //showmessage(qq.SQL.text);
    qq.ExecSQL;
  end else
  begin
    qq.Close;
    qq.SQL.Text:='insert into tempdb(bill_type,bill_code,bill_memo,bill_time,bill_q1,bill_q2) values('+
                 ''''+billtype+''','+
                 ''''+edit1.Text+''','+
                 ''''+memo1.Text+''','+
                 ''''+datetimetostr(now)+''','+
                 ':A,'+
                 ':B)';
    qq.Parameters.ParamValues['A']:=q1.XMLData;
    qq.Parameters.ParamValues['B']:=q2.XMLData;
    qq.ExecSQL;
  end;
  close;
end;

end.