unitaccset.~pas

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

unit UnitAccSet;

interface

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

type
  TfrmCommAccSet = class(TForm)
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    dtpTo: TDateTimePicker;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    BitBtn3: TBitBtn;
    ListBox1: TListBox;
    StaticText1: TStaticText;
    Label1: TLabel;
    Query1: TQuery;
    dtpFrom: TDateTimePicker;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    iWhichPart:integer;
  procedure zdyProdCheckDiary();

  end;

var
  frmCommAccSet: TfrmCommAccSet;

implementation

uses UnitDM, UnitProdSetAccount, UnitProdMain;

{$R *.DFM}

//==========选上次日期=======

procedure TfrmCommAccSet.zdyProdCheckDiary();
var
  dDate:Tdate;
begin

  listbox1.Clear;
  with dm.tabProdCheckDiary do
  begin
    open;
    first;
    while not eof do
    begin
      dDate:=fieldbyname('CheckDate').asdatetime;
      listbox1.items.append(datetostr(dDate));
      next;
    end; //while
  end; //with

  listbox1.ItemIndex:=listbox1.Items.Count-1  ;

end;


procedure TfrmCommAccSet.BitBtn2Click(Sender: TObject);
begin
  frmProdMain.Visible:=true;
  close;
end;

procedure TfrmCommAccSet.BitBtn3Click(Sender: TObject);
var
  dDate:Tdate;
begin
  frmCommAccSet.iWhichPart:=4;
  case iWhichPart of
    1:
    begin
    end;
    2:
    begin
    end;
    3:
    begin
    end;
    4:
    begin
      if listbox1.Items.Count =0 then
        begin
          messagedlg(' 您还没有结账记录!',mterror,[mbok],0);
          exit;
        end; //if

      dDate:=strtodate(listBox1.Items.Strings[listBox1.ItemIndex]);
      frmProdSetAccount.zdyFilterAcc(dDate);
      frmProdSetAccount.showmodal;
    end;
  end; // case of the statement

end;

procedure TfrmCommAccSet.FormShow(Sender: TObject);
begin
    zdyProdCheckDiary(); //显示结帐日期表

    Panel2.caption:='只设截止日期';
      dtpFrom.visible:=false;
      dtpFrom.enabled:=false;
       Label1.caption:='上次结帐日期是'+datetostr( dm.zdyGetProdCheckDate);
       if panel2.caption='起始日期' then
      Label1.caption:='没结过帐，请输入结帐起始日期：';
  dtpFrom.date :=date-30;
  dtpTo.date :=date;
end;



procedure TfrmCommAccSet.BitBtn1Click(Sender: TObject);
var
  dFrom,dTo:Tdate;
  yy,mm:string;
begin
  with query1 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from ProdCheckDiary ');
    open;
    if recordcount<>0 then
    dtpFrom.date:=dm.zdyGetprodCheckDate;
    end;
  //dFrom:=dm.zdyGetProdCheckDate; 

  frmCommAccSet.zdyProdCheckDiary;//上次结帐日期
  frmCommAccSet.iWhichPart:=4;

 // if frmCommAccSet.showmodal = mrok then
  begin
    if (dm.zdyGetProdCheckDate >= strtodate(datetostr(frmCommAccSet.dtpTo.date)) ) then
    begin
      showmessage('您选择的结帐日期早于上次结帐日期！'+#13+#13+'上次结帐日期是：'+datetostr(dm.zdyGetprodCheckDate));
      // showmodal;
       frmProdMain.Visible:=true;
      exit;
    end; // if

    with frmProdSetAccount do //月报表
    begin

     // zdySettleAccount(frmCommAccSet.dtpFrom.date,frmCommAccSet.dtpTo.date);
      zdySettleAccount(dtpFrom.date,frmCommAccSet.dtpTo.date);
      zdyFilterAcc(frmCommAccSet.dtpTo.date);
      zdyProdCheckDiary();
     // showmessage(datetostr(dFrom));
      showmodal;
       frmProdMain.Visible:=true;
    end; //with
  end; //if

end;

end.