unit_rubb_sumcfg.~pas

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

unit Unit_Rubb_SumCfg;

interface

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

type
  TForm_Rubb_SumCfg = class(TForm)
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    DateTimePicker_From: TDateTimePicker;
    DateTimePicker_To: TDateTimePicker;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    ListBox1: TListBox;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Query1: TQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure zdyjiaoCheckDiary();
  end;

var
  Form_Rubb_SumCfg: TForm_Rubb_SumCfg;
  z:integer;
implementation

uses UnitDM, Unit_Rubb_WasSum;

{$R *.DFM}

procedure TForm_Rubb_SumCfg.BitBtn2Click(Sender: TObject);
begin
    with dm.table2 do
  begin
   filter:='';
   filtered:=false;
   close;
  end;
  close;
end;

procedure TForm_Rubb_SumCfg.FormShow(Sender: TObject);
begin

    zdyjiaoCheckDiary(); //显示结帐日期表
    Panel2.caption:='只设截止日期';
      DateTimePicker_From.visible:=false;
      DateTimePicker_From.enabled:=false;
       Label1.caption:='上次结帐日期是'+datetostr( dm.zdyGetjiaoCheckDate);
       if panel2.caption='起始日期' then
       Form_Rubb_SumCfg.Label1.caption:='没结过帐，请输入结帐起始日期：';
    DateTimePicker_From.date :=date-30;
    DateTimePicker_To.date :=date;
end;

 procedure TForm_Rubb_SumCfg.zdyjiaoCheckDiary();
var
  dDate:Tdate;
begin

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

  listbox1.ItemIndex:=listbox1.Items.Count  ;

end;

  procedure TForm_Rubb_SumCfg.Button1Click(Sender: TObject);
  var
   dfrom,dto,wFrom,wTo:TDate;
  begin
//===================================
// 修改 ProdCheckDiary最后一条记录
//===================================
  with dm.table2 do
  begin
    open;
    if recordcount = 0 then
    begin
    dm.table2.close;
    exit;
    end;
    last;
    delete;
    zdyjiaoCheckDiary; //显示修改后的日期
    close;
  end; //with
  wTo:=dm.zdyGetjiaoCheckDate;
   // showmessage(datetostr(wTo));
    with dm.table2 do
  begin
    open;
    last;
    Prior;
    wFrom:=fieldbyname('jDate').asdatetime;
    close;

  end; //with
//======读出上次结帐====
  // 清空
  with dm.table1 do
  begin
    close;
    emptytable;
  end; //with


 // end; //with
    dfrom:=wFrom;
    dto:=wTo;
    Form_Rubb_WasSum.zdyWasSum(dfrom,dto);
    Form_Rubb_WasSum.labDate.caption:=datetostr(dfrom)+'----'+datetostr(dto);
    Form_Rubb_WasSum.labCurdate.caption:=datetostr(dto);
    Form_Rubb_WasSum.query1.close;
    dm.table1.close;
    with dm.table2 do
  begin
    open;
    if recordcount = 0 then
    begin
    dm.table2.close;
    exit;
    end;
    last;
    delete;
    zdyjiaoCheckDiary; //显示修改后的日期
    close;
  end; //with
     zdyjiaoCheckDiary(); //显示结帐日期表
    Panel2.caption:='只设截止日期';
      DateTimePicker_From.visible:=false;
      DateTimePicker_From.enabled:=false;
       Label1.caption:='上次结帐日期是'+datetostr( dm.zdyGetjiaoCheckDate);
       if panel2.caption='起始日期' then
       Label1.caption:='没结过帐，请输入结帐起始日期：';
   end;

procedure TForm_Rubb_SumCfg.BitBtn1Click(Sender: TObject);
  var
  dfrom,dto:Tdate;
  fFrom:Tdate ;
 begin
   with query1 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from Rubjiao ');
    open;
    if recordcount<>0 then
    DateTimePicker_From.date:=dm.zdyGetjiaoCheckDate;
    end;
 // fFrom:=dm.zdyGetjiaoCheckDate; //上次结帐日期
//  dTo:=dFrom+31;
 // DateTimePicker_From.date:=fFrom;  //上次结帐日期送起始日

  zdyjiaoCheckDiary;//上次结帐日期
    if (dm.zdyGetjiaoCheckDate >= strtodate(datetostr(DateTimePicker_To.date ))) then
    begin
      showmessage('您选择的结帐日期早于上次结帐日期！'+#13+#13+'上次结帐日期是：'+datetostr(dm.zdyGetjiaoCheckDate));
      exit;
    end;

    dfrom:=strtodate(datetostr(Form_Rubb_SumCfg.DateTimePicker_From.date));
    dto:=strtodate(datetostr(Form_Rubb_SumCfg.DateTimePicker_To.date));
    Form_Rubb_WasSum.zdyWasSum(dfrom,dto);
    showmessage('ssssssssssssssss');
    Form_Rubb_WasSum.labDate.caption:=datetostr(dfrom)+'--'+datetostr(dto);
    Form_Rubb_WasSum.labCurdate.caption:=datetostr(date);
    Form_Rubb_WasSum.showmodal;
     showmessage('ppppppppppppppppppppppppppppppppp');
    dm.table1.close;
     zdyjiaoCheckDiary(); //显示结帐日期表
    Panel2.caption:='只设截止日期';
      DateTimePicker_From.visible:=false;
      DateTimePicker_From.enabled:=false;
       Label1.caption:='上次结帐日期是'+datetostr( dm.zdyGetjiaoCheckDate);
       if panel2.caption='起始日期' then
       Form_Rubb_SumCfg.Label1.caption:='没结过帐，请输入结帐起始日期：';
  end;

procedure TForm_Rubb_SumCfg.FormCreate(Sender: TObject);
begin
   z:=0;
end;

procedure TForm_Rubb_SumCfg.Button2Click(Sender: TObject);
begin
  dm.table1.open;
  Form_Rubb_WasSum.showmodal;

end;

end.