ps_p_ordbill.pas

DELPHI5加SQL SERVER2000完成的进销存系统,具体哪些内容记不清了,六七年前写的,希望还能有点贡献

unit PS_P_ordbill;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Qrctrls, QuickRpt, ExtCtrls, StdCtrls;

type
  TF_R_ordbill = class(TForm)
    R_ordbill: TQuickRep;
    DetailBand2: TQRBand;
    E_billno: TQRDBText;
    E_targetid: TQRDBText;
    E_deliveryaddr: TQRDBText;
    E_personid: TQRDBText;
    E_totalmoney: TQRDBText;
    E_totaltax: TQRDBText;
    E_memo: TQRDBText;
    TitleBand2: TQRBand;
    L_title: TQRLabel;
    QRSubDetail2: TQRSubDetail;
    E_serialno: TQRDBText;
    E_productid: TQRDBText;
    E_amount: TQRDBText;
    E_price: TQRDBText;
    E_money: TQRDBText;
    E_taxrate: TQRDBText;
    E_tax: TQRDBText;
    E_translated: TQRDBText;
    E_memo2: TQRDBText;
    L_billno: TQRLabel;
    L_targetid: TQRLabel;
    L_deliveryaddr: TQRLabel;
    L_personid: TQRLabel;
    L_totalmoney: TQRLabel;
    L_totaltax: TQRLabel;
    L_memo: TQRLabel;
    L_serialno: TQRLabel;
    L_productid: TQRLabel;
    L_amount: TQRLabel;
    L_price: TQRLabel;
    L_money: TQRLabel;
    L_taxrate: TQRLabel;
    L_tax: TQRLabel;
    L_memo2: TQRLabel;
    L_translated: TQRLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_R_ordbill: TF_R_ordbill;

implementation

uses PS_db;

{$R *.DFM}

procedure TF_R_ordbill.FormCreate(Sender: TObject);
begin
(*  with comdatabase do
    with Q_ordbillmain do begin
    close;
    sql.Clear;
    sql.Add('select * from ordbillmain ');
    sql.Add('where billno=''');
    sql.Add(ordbillmain.fieldvalues['billno']);
    sql.Add('''');
    showmessage(text);
    open;
    end;*)
r_ordbill.Preview;
end;

end.