formrukuxinxichaxunjieguo.pas

来自「这是一个关于药品进销存的管理软件」· PAS 代码 · 共 59 行

unit FormRukuxinxichaxunjieguo;

interface

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

type
  Trukuxinxichaxunjieguo = class(TForm)
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    ADOQuery1: TADOQuery;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rukuxinxichaxunjieguo: Trukuxinxichaxunjieguo;

implementation

{$R *.dfm}

procedure Trukuxinxichaxunjieguo.FormShow(Sender: TObject);
var
num:integer;
begin
adoquery1.Close;
adoquery1.SQL.Clear ;
adoquery1.SQL.Text:=' select count(*) as 记录数量 from 入库信息查询';
adoquery1.Open;
num:=adoquery1.FieldByName('记录数量').AsInteger;
edit1.Text:=inttostr(num);
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select sum(入库数量) as 合计数量 from 入库信息查询';
adoquery1.Open;
edit2.Text:=inttostr(adoquery1.fieldbyname('合计数量').AsInteger );
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select sum(入库金额) as 合计金额 from 入库信息查询';
adoquery1.Open;
edit3.Text:=inttostr(adoquery1.fieldbyname('合计金额').AsInteger);

end;

end.