unitcommoptionsel.~pas

此代码为企业原料管理代码

unit UnitCommOptionSel;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, IniFiles, Db, DBTables;

type
  TfrmSysOptionSel = class(TForm)
    Label1: TLabel;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Qry_Exe: TQuery;
    BitBtn3: TBitBtn;
    Query1: TQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSysOptionSel: TfrmSysOptionSel;

implementation

uses Unit_Tip, Unit_Mater_Main, UnitDM, UnitClearLim, Unit_Mater_mima,
  Unit_Rubb_Pass, Unit_Rubb_Main, Unitcommqingli, UnitSysSet;

{$R *.DFM}

procedure TfrmSysOptionSel.BitBtn1Click(Sender: TObject);
var
  JLSumSys:TIniFile;
begin
  if messagedlg('会烧毁全部帐本'+#13+'请三思而行!',mtwarning,[mbyes,mbno],0) = mrno then
    exit;
{
    if Form_Mater_mima.showmodal = mrok then
  begin
    with Form_Rubb_Main.Qry_exe do
    begin
      close;
      sql.clear;
      sql.Add('select * from 人员登陆表 where 密码 = :v_pass and 职务 = :v_identy  ');
      parambyname('v_pass').asstring:=Form_Mater_mima.Password.text;
      parambyname('v_identy').asstring:='其它人员';
      open;
      if recordcount = 0 then
      begin
        showmessage('密码错误; 或者没设置初始化密码！');
        Form_Mater_mima.close;
        exit;
      end; //if
    end; //with
    Form_Mater_mima.close;
}
  if Form_Tip.showmodal = mrok then //if0
  begin
    with Qry_exe do
    begin
      if Form_Tip.CheckBox_Mater.Checked then
      begin
        close;
        sql.Clear;
        sql.Add('delete from 原材料台帐 ');
        execsql;

         close;
        sql.Clear;
        sql.Add('delete from 原材料仓库 ');
        execsql;

        close;
        sql.Clear;
        sql.Add('delete from 结账月份 ');
        execsql;

        close;
        sql.Clear;
        sql.Add('delete from 临时表 ');
        execsql;
//写入Ini文件 结账日期
    JLSumSys:=TIniFile.Create('Jl2000.ini');
    JLSumSys.writeDate('SumDate','date' , strtodate('90-12-1'));
    JLSumSys.free;
    d_LimDate:=strtodate('90-1-1');

        showmessage('已经删除原材料帐本的所有数据 ,恢复到初始状态!');
        end; //if
      if Form_Tip.CheckBox_Rubb.Checked then
      begin
        close;
        sql.Clear;
        sql.Add('delete from 炼胶工艺卡 ');
        execsql;
        close;
        sql.Clear;
        sql.Add('delete from 炼胶配方表 ');
        execsql;
        close;
        sql.clear;
        sql.add('delete from 结账月份');
        execsql;
        close;
        sql.Clear;
        sql.Add('delete from 炼胶台帐 ');
        execsql;
        close;
        sql.Clear;
        sql.Add('delete from 炼胶用料单 ');
        execsql;
        close;
        sql.Clear;
        sql.Add('delete from 炼胶指标报告单 ');
        execsql;

      close;
      sql.clear;
      sql.add('delete from 炼胶指标报告单2');
      execsql;

      close;
        sql.Clear;
        sql.Add('delete from 炼胶月报表');
        execsql;
      close;
      sql.clear;
      sql.add('delete from ProdDictionary');
      execsql;

      close;
      sql.clear;
      sql.add('delete from CommManufacturer');
      execsql;

      close;
      sql.clear;
      sql.add('delete from CommStaff');
      execsql;

      close;
      sql.clear;
      sql.add('delete from 原材料字典');
      execsql;

      close;
      sql.clear;
      sql.add('delete from CommStaff2');
      execsql;

      close;
      sql.clear;
      sql.add('delete from ProdDictionary2');
      execsql;

      close;
      sql.clear;
      sql.add('delete from CommWorkshop');
      execsql;
      
      close;
      sql.clear;
      sql.add('delete from ProdMonthCheck');
      execsql;
      
      close;
      sql.clear;
      sql.add('delete from ProdCheckDiary');
      execsql;
        showmessage('已经删除混炼胶帐本和各字典的所有记录!');
      end; //if
      if Form_Tip.CheckBox_Login.Checked then //if1
      begin
        close;
        sql.Clear;
        sql.Add('delete from 人员登陆表');
        execsql;
      //  showmessage('已经删除所有登陆人员的资料 ,恢复到初始状态!');
      end; //if1
    end; //with


//第四部分清空
    if Form_Tip.CheckBox_Login.Checked then//if2
    begin
    with dm.qryExe do
    begin
     close;
     sql.clear;
     sql.add('delete from ProdInCard ');
     execsql;

     close;
     sql.clear;
     sql.add('delete from ProdOutCard ');
     execsql;

     close;
     sql.clear;
     sql.add('delete from ProdStock');
     execsql;
     close;

      sql.clear;
      sql.add('delete from ProdWasteBook');
      execsql;

     close;
     sql.clear;
     sql.add('delete from ProdCheckDiary ');
     execsql;

     close;
     sql.clear;
     sql.add('delete from ProdIDHistory ');
     execsql;


     close;
     sql.clear;
     sql.add('delete from ProdMonthCheck ');
     execsql;

     close;
     sql.clear;
     sql.add('delete from ProdSettleAccount ');
     execsql;
    end; //with

// 第三部分
    with dm.qryexe do
    begin
      close;
      sql.clear;
      sql.add('delete from SulfCardALLName');
      execsql;

      close;
      sql.clear;
      sql.add('delete from SulfCardDate');
      execsql;

      close;
      sql.clear;
      sql.add('delete from SulfCardName');
      execsql;

      close;
      sql.clear;
      sql.add('delete from SulfCardPer');
      execsql;

      close;
      sql.clear;
      sql.add('delete from SulfCardSalary');
      execsql;

      close;
      sql.clear;
      sql.add('delete from syqk');
      execsql;

      close;
      sql.clear;
      sql.add('delete from prodzmb');
      execsql;

      close;
      sql.clear;
      sql.add('delete from byqk');
      execsql;

      close;
      sql.clear;
      sql.add('delete from SulfCardSalaryDay');
      execsql;

      close;
      sql.clear;
      sql.add('delete from sulfcard ');
      execsql;
      showmessage('已经删除所有登录人员、成品仓库、硫化车间的数据！');
    end; //with
    end;//if2
  end //if0
  else
   // showmessage('您取消了操作!');
  //end
end;

procedure TfrmSysOptionSel.BitBtn2Click(Sender: TObject);
begin
  if frmClearLim.showmodal = mrok then
  begin
    if messagedlg('本操作将清除下面所选项目里、' +#13 + datetostr(frmClearLim.DateTimePicker1.date)+'以前的'
                  +'不必要记录,要继续吗?',mtwarning,[mbyes,mbno]
                  ,0) = mryes then
    begin
     if Form_qingli.showmodal = mrok then //if0
  begin
      with query1 do
      begin
      if Form_qingli.CheckBox2.Checked then
      begin
        close;
        sql.clear;
        sql.add('select * from 原材料台帐 where 剩余库存 = 0  and 出入标识 = :b');
        parambyname('b').asboolean := false;
        open;
        with qry_exe do
        begin
          close;
          sql.clear;
          sql.add('delete from 原材料台帐 where 材料名称 = :sName ');
          sql.add('and 单价 = :price and 领料单号 = :outcardNum   ' );
          sql.add('and 日期 < :vDate  ' );
          parambyname('sName').asstring:=query1.fieldbyname('材料名称').asstring;
          parambyname('Price').asfloat:=query1.fieldbyname('单价').asfloat;
          parambyname('outcardNum').asstring:=query1.fieldbyname('领料单号').asstring;
          parambyname('vDate').asdatetime:=strtodate(datetostr(frmClearLim.DateTimePicker1.date));
          execsql;
          end;
        end; //with
      end; //if

      with qry_exe do
      begin
//删除第二部分
        if Form_qingli.CheckBox2.Checked then
      begin
          close;
          sql.clear;
          sql.add('delete from 炼胶工艺卡 where 混炼日期 < :vdate ');
          parambyname('vDate').asdatetime:=strtodate(datetostr(frmClearLim.DateTimePicker1.date));
          execsql;
        end;
//删除第三部分
       if Form_qingli.CheckBox3.Checked then
      begin
          close;
          sql.clear;
          sql.add('delete from sulfcard where TDate < :vDate ');
          parambyname('vDate').asdatetime:=strtodate(datetostr(frmClearLim.DateTimePicker1.date));
          execsql;
      end;
//删除第四部分  入库
       if Form_qingli.CheckBox4.Checked then
      begin
          close;
          sql.clear;
          sql.add('delete from ProdIncard where InDate < :vDate ');
          parambyname('vDate').asdatetime:=strtodate(datetostr(frmClearLim.DateTimePicker1.date));
          execsql;

//删除第四部分  出库
          close;
          sql.clear;
          sql.add('delete from ProdOutcard where OutDate < :vdate ');
          parambyname('vDate').asdatetime:=strtodate(datetostr(frmClearLim.DateTimePicker1.date));
          execsql;
       end;
      end; //with
      showmessage('已经完成了清除工作!');
    end; //if
  end; //if
  end
  else
   // showmessage('您取消了操作!');

end;

procedure TfrmSysOptionSel.BitBtn3Click(Sender: TObject);
begin
//frmSysSet.visible:=true;
close;
end;

procedure TfrmSysOptionSel.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 frmSysSet.visible:=true;
end;

end.