cmylookup.txt

一个程序而已

源程序CLookup.pas
 
unit CLookup;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, DB, DBTables;
type
  TfrmMyLookup = class(TForm)
    ClientsTable: TTable;
    ClientsDataSource: TDataSource;
    SalesperDataSource: TDataSource;
    SalesperTable: TTable;
    ClientsNavigator: TDBNavigator;
    DBTextCustNum: TDBText;
    lblCustNum: TLabel;
    DBEditLastName: TDBEdit;
    lblLastName: TLabel;
    lblFirstName: TLabel;
    DBEditFirstName: TDBEdit;
    cmdExit: TButton;
    DBLookupListSalesPer: TDBLookupListBox;
    lblSalesPersonLastName: TLabel;
    DBText1: TDBText;
    lblSalesPersonNum: TLabel;
    SalesperTableSalesPersonNum: TFloatField;
    SalesperTableLastName: TStringField;
    SalesperTableFirstName: TStringField;
    SalesperTableLastFirst: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure cmdExitClick(Sender: TObject);
    procedure DBLookupListSalesPerClick(Sender: TObject);
    procedure SalesperTableCalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  frmMyLookup: TfrmMyLookup;
 
implementation
{$R *.dfm}
procedure TfrmMyLookup.FormCreate(Sender: TObject);
begin
ClientsTable.Open;
SalesperTable.Open;
end;
procedure TfrmMyLookup.cmdExitClick(Sender: TObject);
begin
frmMyLookup.Close;
end;
procedure TfrmMyLookup.DBLookupListSalesPerClick(Sender: TObject);
begin
ClientsTable.Refresh;
end;
procedure TfrmMyLookup.SalesperTableCalcFields(DataSet: TDataSet);
begin
{SalesperTableLastFirst.Value:=
  SalesperTableLastName.Value+
  ','+
  SalesperTableFirstName.Value;
  }
  end;
end.