unit1.pas.~21~

delphi2007开发的汽车配件进销存系统.实用级的源码.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    qry1: TADOQuery;
    qry2: TADOQuery;
    Button2: TButton;
    conn: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  procedure cleartable(str:string);
  begin
     with qry2 do begin
       close;
       with SQL do begin
         Clear;
         Add(str);
       end;
       ExecSQL;
     end;
  end;

  function checkfield(s:string) : string ;
  begin
    if (qry1.FieldByName(s).Value <>null ) or
       (qry1.FieldByName(s).Value <>'' )  then
       Result := qry1.FieldByName(s).Value
    else
     result:='';
  end;
begin
  cleartable('delete from dwgl');

  with qry1 do begin
    close;
    with sql do begin
      Clear;
      Add('select * from dwgl ')
    end;
    Open;
  end;

  qry1.First;
  for I := 0 to qry1.RecordCount - 1 do
    with qry2 do begin
      Close;
      with SQL do begin
        Clear;
        Add('insert into dwgl(dwbm,dwmc,lxr,ch,dh,sh,dz,yhzh,khyh,clxx)');
        Add('values(:dwbm,:dwmc,:lxr,:ch,:dh,:sh,:dz,:yhzh,:khyh,:clxx)');
        Parameters.ParamByName('dwbm').Value :=checkfield('dwbm');
        Parameters.ParamByName('dwmc').Value :=checkfield('dwmc');
        Parameters.ParamByName('lxr').Value :=checkfield('lxr');
        Parameters.ParamByName('ch').Value :=checkfield('ch');
        Parameters.ParamByName('dh').Value :=checkfield('dh');
        Parameters.ParamByName('sh').Value :=checkfield('sh');
        Parameters.ParamByName('dz').Value :=checkfield('dz');
        Parameters.ParamByName('yhzh').Value :=checkfield('yhzh');
        Parameters.ParamByName('khyh').Value :=checkfield('khyh');
        Parameters.ParamByName('clxx').Value :=checkfield('clxx');
      end;
      ExecSQL;
      qry1.Next;
    end;
    ShowMessage('导出单位信息完成!');


  with qry1 do begin
    close;
    with sql do begin
      Clear;
      Add('select * from xsd ')
    end;
    Open;
  end;

  qry1.First;
  for I := 0 to qry1.RecordCount - 1 do
    with qry2 do begin
      Close;
      with SQL do begin
        Clear;
        Add('insert into xsd(xsdh,dwbm,xsrq,jzbz)');
        Add('values(:xsdh,:dwbm,:xsrq,:jzbz)');
        Parameters.ParamByName('xsdh').Value :=checkfield('xsdh');
        Parameters.ParamByName('dwbm').Value :=checkfield('dwbm');
        Parameters.ParamByName('xsrq').Value :=checkfield('xsrq');
        Parameters.ParamByName('jzbz').Value :=checkfield('jzbz');
      end;
      ExecSQL;
      qry1.Next;
    end;
    ShowMessage('销售单据导出完成!');

  with qry1 do begin
    close;
    with sql do begin
      Clear;
      Add('select * from xsdmx ')
    end;
    Open;
  end;

  qry1.First;
  for I := 0 to qry1.RecordCount - 1 do
    with qry2 do begin
      Close;
      with SQL do begin
        Clear;
        Add('insert into xsdmx(xsdh,bm,pm,sl,dj,je,rq)');
        Add('values(:xsdh,:bm,:pm,:sl,:dj,:je,:rq)');
        Parameters.ParamByName('xsdh').Value :=checkfield('xsdh');
        Parameters.ParamByName('bm').Value :=checkfield('bm');
        Parameters.ParamByName('pm').Value :=checkfield('pm');
        Parameters.ParamByName('sl').Value :=checkfield('sl');
        Parameters.ParamByName('dj').Value :=checkfield('dj');
        Parameters.ParamByName('je').Value :=checkfield('je');
        Parameters.ParamByName('rq').Value :=StrToDatetime(checkfield('rq'));
      end;
      try
        ExecSQL;
      except 
      end;
      qry1.Next;
    end;
    ShowMessage('销售单明细据导出完成!');


end;

procedure TForm1.Button2Click(Sender: TObject);
var
  I: Integer;
begin
//  with qry1 do begin
//    Close;
//    with SQL do begin
//      Clear;
//      Add('delete from xsd');
//    end;
//    ExecSQL;
//  end;
//
//  with qry1 do begin
//    Close;
//    with SQL do begin
//      Clear;
//      Add('delete from xsdmx');
//    end;
//    ExecSQL;
//  end;


  with qry1 do begin
    Close;
    with SQL do begin
      Clear;
      Add('select name from sysobjects where Xtype =''U'' and name like ''XS0%''')
    end;
    Open;
  end;

  qry1.First;
  for I := 0 to qry1.RecordCount - 1 do begin
    with conn do begin
      Close;
      with SQL do begin
        Clear;
        Add('drop table ');
        Add(Trim(qry1.FieldByName('name').Value));
      end;
      ExecSQL;
    end;
    qry1.Next;
  end;
  ShowMessage('清理数据成功!');
end;

end.