kcmxut.~pas

来自「本程序主要功能是进行进销存管理系统的开发源码,主要是使用DElphi为开发环境.」· ~PAS 代码 · 共 89 行

unit kcmxut;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, QRCtrls, QuickRpt, ExtCtrls;

type
  Tkcmxfm = class(TForm)
    Panel1: TPanel;
    QuickRep1: TQuickRep;
    TitleBand1: TQRBand;
    QRLabel2: TQRLabel;
    QRLabel10: TQRLabel;
    zbrq: TQRLabel;
    DetailBand1: TQRBand;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    clbh: TQRMemo;
    clmc: TQRMemo;
    pl: TQRMemo;
    sl: TQRMemo;
    zje: TQRMemo;
    hw: TQRMemo;
    PageHeaderBand1: TQRBand;
    QRLabel1: TQRLabel;
    ADOQuery: TADOQuery;
    zsl: TQRLabel;
    zgje: TQRLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  kcmxfm: Tkcmxfm;

implementation

{$R *.dfm}

procedure Tkcmxfm.FormCreate(Sender: TObject);
var
mypath:string;
sumje,sumsl:integer;
begin
sumje:=0;
sumsl:=0;
mypath:=extractfilepath(paramstr(0));
ADOquery.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+mypath+'data\kcgl.mdb;Persist Security Info=False';
ADOquery.active:=true;
zbrq.Caption:=datetostr(date());

with adoquery do
begin
close;
sql.Clear;
sql.Add('select * from kcb');
//Parameters.ParamByName('rq').Value:=datetostr(date());
open;
first;
while not eof do
begin

clbh.Lines.Add(fieldbyname('编号').AsString);
clmc.Lines.Add(fieldbyname('名称').AsString);
pl.Lines.Add(fieldbyname('品类').AsString);
sl.Lines.Add(fieldbyname('数量').AsString);
zje.Lines.Add(fieldbyname('总金额').AsString);
hw.Lines.Add(fieldbyname('货位').AsString);
sumje:=sumje+fieldbyname('总金额').AsInteger;
sumsl:=sumsl+fieldbyname('数量').AsInteger;

next;
end;
zsl.Caption:='总数量：'+inttostr(sumsl);
zgje.Caption:='总金额：'+inttostr(sumje);
end;
end;

end.