tj_caizepeng042_04.pas

这个是我的数据库的课程设计:超市商品数据管理系统的设计,,采用面向C/S模式的通用开发工具Delphi设计其前台的操作

unit tj_caizepeng042_04;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;

type
  TForm8 = class(TForm)
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.Button1Click(Sender: TObject);
begin
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('insert into tj_caizepeng042_04 select 商品编号,0,0,0,''否'',''否'' from product_caizepeng042_04');
adoquery1.execsql;

adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.sql.Text:='select 商品编号 from tj_caizepeng042_04 where (select 时间 from(select datepart(hour,getdate()) as 时间) 时间)<cast('''+edit1.Text+''' as int)';
adoquery1.Open;
if adoquery1.fieldbyname('商品编号').AsString<>'' then
 begin
adoquery1.close;
adoquery1.sql.Clear;
adoquery1.SQL.add('update tj_caizepeng042_04 set 入库量=(select sum(进货数量) from in_caizepeng042_04 where 商品编号=tj_caizepeng042_04.商品编号 and 验收单号 in (select 验收单号 from in_master_caizepeng042_04 where ');
adoquery1.sql.Add('入库日期>=(select dateadd(hh,cast('''+edit1.text+''' as int),dateadd(day,datediff(day,0,getdate())-2,0))) and 入库日期<=(select dateadd(hh,cast('''+edit1.text+''' as int),dateadd(day,datediff(day,0,getdate())-1,0)))))');
adoquery1.ExecSQL;

adoquery1.close;
adoquery1.sql.Clear;
adoquery1.SQL.add('update tj_caizepeng042_04 set 销售量=(select sum(数量) from sell_caizepeng042_04 where 商品编号=tj_caizepeng042_04.商品编号 and 销售时间>=(select dateadd(hh,cast('''+edit1.text+''' as int),dateadd(day,datediff(day,0,getdate())-2,0))) ');
adoquery1.sql.Add('and 销售时间<=(select dateadd(hh,cast('''+edit1.text+''' as int),dateadd(day,datediff(day,0,getdate())-1,0))))');
adoquery1.ExecSQL;

adoquery1.close;
adoquery1.sql.Clear;
adoquery1.SQL.add('update tj_caizepeng042_04 set 实际库存量=(select 库存总量 from chao_caizepeng042_04 where 商品编号= tj_caizepeng042_04.商品编号)');
adoquery1.SQL.add('update tj_caizepeng042_04 set 超高储额=(select 是否超高储额 from chao_caizepeng042_04 where 商品编号= tj_caizepeng042_04.商品编号)');
adoquery1.SQL.add('update tj_caizepeng042_04 set 超低储额=(select 是否超低储额 from chao_caizepeng042_04 where 商品编号= tj_caizepeng042_04.商品编号)');
adoquery1.ExecSQL;
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from tj_caizepeng042_04');
adoquery1.open;
end
else
begin
adoquery1.close;
adoquery1.sql.Clear;
adoquery1.SQL.add('update tj_caizepeng042_04 set 入库量=(select sum(进货数量) from in_caizepeng042_04 where 商品编号=tj_caizepeng042_04.商品编号 and 验收单号 in (select 验收单号 from in_master_caizepeng042_04 where ');
adoquery1.sql.Add('入库日期>=(select dateadd(hh,cast('''+edit1.text+''' as int),dateadd(day,datediff(day,0,getdate())-1,0))) and 入库日期<=(select dateadd(hh,cast('''+edit1.text+''' as int),dateadd(day,datediff(day,0,getdate()),0)))) group by 商品编号)');
adoquery1.ExecSQL;

adoquery1.close;
adoquery1.sql.Clear;
adoquery1.SQL.add('update tj_caizepeng042_04 set 销售量=(select sum(数量) from sell_caizepeng042_04 where 商品编号=tj_caizepeng042_04.商品编号 and 销售时间>=(select dateadd(hh,cast('''+edit1.text+''' as int),dateadd(day,datediff(day,0,getdate())-1,0))) ');
adoquery1.sql.Add('and 销售时间<=(select dateadd(hh,cast('''+edit1.text+''' as int),dateadd(day,datediff(day,0,getdate()),0))) group by 商品编号)');
adoquery1.ExecSQL;

adoquery1.close;
adoquery1.sql.Clear;
adoquery1.SQL.add('update tj_caizepeng042_04 set 实际库存量=(select 库存总量 from chao_caizepeng042_04 where 商品编号= tj_caizepeng042_04.商品编号)');
adoquery1.SQL.add('update tj_caizepeng042_04 set 超高储额=(select 是否超高储额 from chao_caizepeng042_04 where 商品编号= tj_caizepeng042_04.商品编号)');
adoquery1.SQL.add('update tj_caizepeng042_04 set 超低储额=(select 是否超低储额 from chao_caizepeng042_04 where 商品编号= tj_caizepeng042_04.商品编号)');
adoquery1.ExecSQL;
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from tj_caizepeng042_04');
adoquery1.open;
end;


end;
procedure TForm8.Button2Click(Sender: TObject);
begin
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('delete from tj_caizepeng042_04');
adoquery1.execsql;

end;

end.