totprice.txt

来自「一个程序而已」· 文本 代码 · 共 73 行

CItems.pas程序代码
unit CItems;
interface
uses
Windows, Messages, Classes, SysUtils, Graphics, Controls, StdCtrls, Forms,  Dialogs, 
DBCtrls, DB, DBGrids, DBTables, Grids, ExtCtrls;
type
  TForm2 = class(TForm)
    Panel1: TPanel;
    DBNavigator: TDBNavigator;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ItemsTable: TTable;
    ItemsTableItemNum: TAutoIncField;
    ItemsTableCustNum: TFloatField;
    ItemsTablePartNum: TFloatField;
    ItemsTableQtySold: TFloatField;
    cmdExit: TButton;
    Label1: TLabel;
    PartsTable: TTable;
    DataSource2: TDataSource;
    DBGrid2: TDBGrid;
    PartsTablePartNum: TFloatField;
    PartsTableDescription: TStringField;
    PartsTableQtyInStock: TFloatField;
    PartsTableSellingPrice: TFloatField;
    ItemsTableTotalPrice: TFloatField;
    ItemsTableItemDescription: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure cmdExitClick(Sender: TObject);
    procedure ItemsTableCalcFields(DataSet: TDataSet);
procedure PartsTableAfterPost(DataSet: TDataSet);
private
    { private declarations }
public
    { public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.DFM}
procedure TForm2.FormCreate(Sender: TObject);
begin
  ItemsTable.Open;
end; 
procedure TForm2.cmdExitClick(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm2.ItemsTableCalcFields(DataSet: TDataSet);
var
FindResultBoolean:Boolean;
begin
FindResultBoolean:=
     PartsTable.FindKey([ItemsTablePartNum]);
if FindResultBoolean then
begin
   ItemsTableItemDescription.Value:=
         PartsTableDescription.Value;
   ItemsTableTotalPrice.Value:=
   PartsTableSellingPrice.Value*ItemsTableQtySold.Value;
end;
end;
Procedure TForm2.PartsTableAfterPost(DataSet: TDataSet);
begin
ItemsTable.Refresh;
end;
end.