unitresetaccount.pas

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

unit UnitReSetAccount;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Buttons, ComCtrls;

type
  TfrmCommReSetAccount = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    LBMaterCheckDiary: TListBox;
    bbMaterReSetAcc: TBitBtn;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    LBProdCheckDiary: TListBox;
    BitBtn3: TBitBtn;
    stHistory: TStaticText;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure zdyProdCheckDiary();
  end;

var
  frmCommReSetAccount: TfrmCommReSetAccount;

implementation

uses UnitDM, UnitAccSet;

{$R *.DFM}


procedure TfrmCommReSetAccount.zdyProdCheckDiary(); //显示历次结帐日期
var
  dDate:Tdate;
begin
  LBProdCheckDiary.Clear;
  with dm.tabProdCheckDiary do
  begin
    open;
    first;
    while not eof do
    begin
      dDate:=fieldbyname('checkDate').asdatetime;
      LBProdCheckDiary.items.append(formatdatetime('yyyy"年"mm"月"dd"日"',dDate));
      next;
    end; //while
    close;
  end; //with

end;


procedure TfrmCommReSetAccount.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TfrmCommReSetAccount.BitBtn3Click(Sender: TObject);
var
  dDate:TDate;
begin

//===================================
// 修改 ProdCheckDiary最后一条记录
//===================================
  with dm.tabProdCheckDiary do
  begin
    open;
    if recordcount = 0 then
    begin
    dm.tabProdCheckDiary.close;
    exit;
    end;
    last;
    dDate:=fieldbyname('CheckDate').asdatetime;
    delete;
    zdyProdCheckDiary; //显示修改后的日期
    close;
  end; //with

//==============================
// 删除ProdSetttleAccount的记录
//==============================
  with dm.qryExe do
  begin
    close;
    sql.Clear;
    sql.Add('delete from ProdSettleAccount  ');
    sql.Add('where AccDate = :vDate ');
    parambyname('vDate').asdatetime:=dDate;
    execsql;
  end; //with
//删除ProdSetttleAccount的记录
    with dm.qryExe do
  begin
    close;
    sql.Clear;
    sql.Add('delete from ProdMonthCheck.db  ');
    sql.Add('where MonthCheck = :vDate ');
    parambyname('vDate').asdatetime:=dDate;
    execsql;
  end; //with
end;

procedure TfrmCommReSetAccount.FormCreate(Sender: TObject);
begin
  tabsheet1.TabVisible:=false;
  tabsheet2.TabVisible:=false;
  tabsheet3.TabVisible:=false;
  tabsheet4.TabVisible:=false;
end;

end.