unit_mater_sumbrowse.pas

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

unit Unit_mater_SumBrowse;

interface

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

type
  TfrmMsumlist = class(TForm)
    Table1: TTable;
    BitBtn1: TBitBtn;
    Bevel1: TBevel;
    BitBtn2: TBitBtn;
    Query1: TQuery;
    ListBox1: TListBox;
    procedure FormShow(Sender: TObject);
    procedure clClick(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMsumlist: TfrmMsumlist;

implementation

uses Unit_Mater_Main,IniFiles;

{$R *.DFM}

procedure TfrmMsumlist.FormShow(Sender: TObject);
var
  Mon,i:integer;
begin
  with table1 do
  begin
    open;
    first;
    while not eof do
    begin
      if fieldbyname('ifsum').asboolean then
      begin
        Mon:=fieldbyname('Id').asinteger;
        break;
      end;
      next;
    end; //while
  end; //with

  listbox1.Clear;
  for i:= 1 to Mon do
  begin
    listbox1.items.Add(inttostr(i)+'月份已经结帐!');
  end; //for

end;

procedure TfrmMsumlist.clClick(Sender: TObject);
begin
  close;

end;

procedure TfrmMsumlist.BitBtn2Click(Sender: TObject);
var
  i,j:integer;
  JLSumSys:TIniFile;
begin
//写数据库
  with query1 do
  begin
    close;
    sql.Clear;
    sql.Add('update 结账月份 set IfSum = false where Id = :m');
    parambyname('m').asinteger:=strtoint(formatdatetime('m',d_LimDate));
    execsql;
  end;//with

  with query1 do
  begin
    close;
    sql.Clear;
    sql.Add('update 结账月份 set IfSum = true where Id = :m');
    parambyname('m').asinteger:=strtoint(formatdatetime('m',d_LimDate))-1;
    execsql;
  end;//with

//重新写listbox
  j:=listbox1.Items.Count;
  listbox1.Clear;
  for i:= 1 to j - 1 do
  begin
    Listbox1.items.Add(inttostr(i)+'月份已经结帐!');
  end; //for


//写入Ini文件 结账日期
  d_LimDate:=d_LimDate-30;
  JLSumSys:=TIniFile.Create('Jl2000.ini');
  JLSumSys.writeDate('SumDate','date' , d_LimDate);
  JLSumSys.free;


  end;

end.