mr_xtcsh.pas

生产管理系统：系统具有数据备份及数据还原功能。能够保证系统数据的安全性方便的全方位的数据查询。在相应的权限下

unit MR_XTCSH;

interface

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

type
  TFRM_XTCSH = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_XTCSH: TFRM_XTCSH;

implementation
  USES MR_DATA;
{$R *.dfm}

procedure TFRM_XTCSH.Button1Click(Sender: TObject);
var
  yi : integer;
  ssp : string;
begin
  yi := 1;
  if application.MessageBox('你真的要初始化吗？','提示',mb_yesno)=idyes then
  begin
    try
/////////////////////////////////////////////////////////////////
       with data.ADOc do
         begin
             close;
             sql.Clear;
             sql.Add('delete tb_user');
             execsql;
         end;
/////////////////////////////////////////////////////////////////
       with data.ADOc do
       begin
         close;
         sql.Clear;
         sql.Add('select * from tb_user');
         open;
       end;
       data.ADOc.Insert;
       data.ADOc.FieldByName('czyid').AsString := 'CY'+formatdatetime('yyyymm',now())+'000001';
       data.ADOc.FieldByName('czyname').AsString := 'mingrisoft';
       data.ADOc.FieldByName('czymm').AsString := 'www.mingrisoft.com';
       data.ADOc.FieldByName('czysj').AsDateTime := date();
       while yi>0 do
       begin
         ssp := inttostr(yi);
         data.ADOc.fieldbyname(ssp).AsString := '1';
         yi := yi+1;
         if yi = 12 then
           break;
       end;
       data.ADOc.Post;
/////////////////////////////////////////////////////////////////
       with data.ADOc do
         begin
             close;
             sql.Clear;
             sql.Add('delete tb_scdd');
             execsql;
         end;
/////////////////////////////////////////////////////////////////
       with data.ADOc do
         begin
             close;
             sql.Clear;
             sql.Add('delete tb_ll');
             execsql;
         end;
/////////////////////////////////////////////////////////////////
       with data.ADOc do
         begin
             close;
             sql.Clear;
             sql.Add('delete tb_jy');
             execsql;
         end;
/////////////////////////////////////////////////////////////////
       with data.ADOc do
         begin
             close;
             sql.Clear;
             sql.Add('delete tb_cprk');
             execsql;
         end;
/////////////////////////////////////////////////////////////////
       with data.ADOc do
         begin
             close;
             sql.Clear;
             sql.Add('delete tb_cpcl');
             execsql;
         end;
/////////////////////////////////////////////////////////////////
       with data.ADOc do
         begin
             close;
             sql.Clear;
             sql.Add('delete tb_cl');
             execsql;
         end;
       showmessage('初始化成功');
     except
        showmessage('数据库连接错误。');
     end;
/////////////////////////////////////////////////////////////////
  end;
end;

end.