unit5.pas

来自「服装制造业的库存管理系统,服装进销存进货,库存,出货等等.」· PAS 代码 · 共 149 行

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation
uses Data;
{$R *.dfm}

procedure TForm5.Button4Click(Sender: TObject);
begin
  close;
end;

procedure TForm5.Button1Click(Sender: TObject);
begin
  if Application.MessageBox(' 你是否真的要全系统初始化？' + #13#10#13#10 +
    '初始化后系统数据就全部丢失！！　　　　', '友情提示', MB_YESNO +
    MB_ICONWARNING)=id_yes then
  begin
    with MyData  do
    begin
      try
        ADOConnection1.BeginTrans;
        ADOSelect.SQL.Clear;
        ADOSelect.SQL.Add('Delete From 产品库存');
        ADOSelect.ExecSQL;
        ADOSelect.SQL.Clear;
        ADOSelect.SQL.Add('Delete From 产品资料');
        ADOSelect.ExecSQL;
        ADOSelect.SQL.Clear;
        ADOSelect.SQL.Add('Delete From 用户资料');
        ADOSelect.ExecSQL;
        ADOSelect.SQL.Clear;
        ADOSelect.SQL.Add('Delete From 原料库存资料');
        ADOSelect.ExecSQL;
        ADOSelect.SQL.Clear;
        ADOSelect.SQL.Add('Delete From 原料资料录入');
        ADOSelect.ExecSQL;
        ADOSelect.SQL.Clear;
        ADOSelect.SQL.Add('Delete From 产品出库单资料');
        ADOSelect.ExecSQL;
        ADOSelect.SQL.Clear;
        ADOSelect.SQL.Add('Delete From 产品入库单资料');
        ADOSelect.ExecSQL;
        ADOSelect.SQL.Clear;
        ADOSelect.SQL.Add('Delete From 生产单资料');
        ADOSelect.ExecSQL;
        ADOSelect.SQL.Clear;
        ADOSelect.SQL.Add('Delete From 原料出库单资料');
        ADOSelect.ExecSQL;
        ADOSelect.SQL.Clear;
        ADOSelect.SQL.Add('Delete From 原料入库单资料');
        ADOSelect.ExecSQL;
        ADOConnection1.CommitTrans;
      except
        Application.MessageBox('初始化失败！', '友情提示',
          MB_OK + MB_ICONWARNING);
        ADOConnection1.RollbackTrans;
      end;
    end;
  end;
end;

procedure TForm5.Button3Click(Sender: TObject);
begin
  if Application.MessageBox(' 你是否真的要库存初始化？' + #13#10#13#10 +
    '初始化后库存数据就全部丢失！！　　　　', '友情提示', MB_YESNO +
    MB_ICONWARNING)=id_yes then
  begin
    with MyData  do
    begin
      try
        ADOConnection1.BeginTrans;
        ADOSelect.SQL.Clear;
        ADOSelect.SQL.Add('Delete From 原料库存资料');
        ADOSelect.ExecSQL;
        ADOSelect.SQL.Clear;
        ADOSelect.SQL.Add('Delete From 原料资料录入');
        ADOSelect.ExecSQL;
        ADOSelect.SQL.Clear;
        ADOSelect.SQL.Add('Delete From 产品库存');
        ADOSelect.ExecSQL;
      ADOConnection1.CommitTrans;
      except
        Application.MessageBox('初始化失败！', '友情提示',
          MB_OK + MB_ICONWARNING);
        ADOConnection1.RollbackTrans;
      end;
    end;
  end;
end;

procedure TForm5.Button2Click(Sender: TObject);
begin
  if Application.MessageBox(' 你是否真的要出入库初使化？' + #13#10#13#10 +
    '初始化后出入库数据就全部丢失！！　　　　', '友情提示', MB_YESNO +
    MB_ICONWARNING)=id_yes then
  begin
    with MyData  do
    begin
      try
        ADOConnection1.BeginTrans;
        ADOSelect.SQL.Clear;
        ADOSelect.SQL.Add('Delete From 产品出库单资料');
        ADOSelect.ExecSQL;
        ADOSelect.SQL.Clear;
        ADOSelect.SQL.Add('Delete From 产品入库单资料');
        ADOSelect.ExecSQL;
        ADOSelect.SQL.Clear;
        ADOSelect.SQL.Add('Delete From 原料出库单资料');
        ADOSelect.ExecSQL;
        ADOSelect.SQL.Clear;
        ADOSelect.SQL.Add('Delete From 原料入库单资料');
        ADOSelect.ExecSQL;
      ADOConnection1.CommitTrans;
      except
        Application.MessageBox('初始化失败！', '友情提示',
          MB_OK + MB_ICONWARNING);
        ADOConnection1.RollbackTrans;
      end;
    end;
  end;
end;

end.