dfm_start.pas

仓库管理系统 仓库管理系统

unit dfm_start;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, Db, DBTables, Mask,
  DBCtrls, ADODB;

type
  Tdfmstart = class(TForm)
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    Panel2: TPanel;
    postbtn: TBitBtn;
    quitbtn: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ADOQuery1: TADOQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure quitbtnClick(Sender: TObject);
    procedure delquery;
    procedure postbtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfmstart: Tdfmstart;
  delstr: string;

implementation

uses  dbmRainbowMis;

{$R *.DFM}

procedure Tdfmstart.delquery;
begin
  with ADOQuery1 do
  begin
    SQL.Clear;
    SQL.Add(delstr);
    ExecSQL ;
  end;
end;

procedure Tdfmstart.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure Tdfmstart.quitbtnClick(Sender: TObject);
begin
  close;
end;

procedure Tdfmstart.postbtnClick(Sender: TObject);
begin
  if Application.MessageBox('你确信要进行系统初始化吗?','系统提示',MB_ICONERROR + MB_OKCANCEL)
    = IDOK then
  begin
    delstr:='delete from t_saledet';
    delquery;
    delstr:='delete from t_checkin';
    delquery;
    delstr:='delete from t_stoin';
    delquery;
    delstr:='delete from t_stoout';
    delquery;
    delstr:='delete from t_store';
    delquery;
    Application.MessageBox('系统初始化完成!','系统提示',MB_OK);
  end
end;

end.