sysiniunt.pas

商品销售系统完全的功能SQL和JAVA

unit sysiniunt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Gauges, ExtCtrls;

type
  Tsysinifrm = class(TForm)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    Memo1: TMemo;
    BitBtn19: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    procedure deletetable(tablename:string);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn19Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn10Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sysinifrm: Tsysinifrm;

implementation
      uses data;
{$R *.dfm}

procedure tsysinifrm.deletetable(tablename:string);
begin
   try
  dataman.ADOCon.BeginTrans;
    with dataman.xfqkQuery do
      begin
        close;
        sql.Clear;
        sql.Add('delete from '+tablename);
        prepared;
        execsql;
      end;
    dataman.ADOCon.CommitTrans;
    showmessage('初始化成功！！');
  except
    begin
     dataman.ADOCon.RollbackTrans;
     abort;
    end;
  end;
end;

procedure Tsysinifrm.BitBtn1Click(Sender: TObject);
begin
   deletetable('sellm');
end;

procedure Tsysinifrm.BitBtn2Click(Sender: TObject);
begin
deletetable('withdrawm');
end;

procedure Tsysinifrm.BitBtn3Click(Sender: TObject);
begin
deletetable('withdraws');
end;

procedure Tsysinifrm.BitBtn4Click(Sender: TObject);
begin
deletetable('moveoutm');
end;

procedure Tsysinifrm.BitBtn5Click(Sender: TObject);
begin
deletetable('moveinm');
end;

procedure Tsysinifrm.BitBtn6Click(Sender: TObject);
begin
deletetable('menber');
end;

procedure Tsysinifrm.BitBtn7Click(Sender: TObject);
begin
 deletetable('consume');
end;

procedure Tsysinifrm.BitBtn8Click(Sender: TObject);
begin
 deletetable('menlog');
end;

procedure Tsysinifrm.BitBtn9Click(Sender: TObject);
begin
  deletetable('kc');
end;

procedure Tsysinifrm.BitBtn19Click(Sender: TObject);
begin
close;
end;

procedure Tsysinifrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 dataman.xfqkQuery.Close;
  sysinifrm:=nil;
  sysinifrm.Free;
end;

procedure Tsysinifrm.BitBtn10Click(Sender: TObject);
begin
deletetable('ly');
end;

procedure Tsysinifrm.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
      Perform(CM_DialogKey,Vk_TAB,0);
      key:=#0;
    end;
end;

procedure Tsysinifrm.BitBtn11Click(Sender: TObject);
begin
deletetable('changem');
end;

end.