cclients.txt

一个程序而已

CClients.pas 程序清单

unit CClients;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Grids, DBGrids, DB, DBTables, DBCtrls, Mask;
type
  TfrmClients = class(TForm)
    pnlTop: TPanel;
    pnlBottom: TPanel;
    cmdExit: TButton;
    ClientsTable: TTable;
    ClientsDataSource: TDataSource;
    DBGridClients: TDBGrid;
    DBTextCustNum: TDBText;
    lblCustNum: TLabel;
    DBNavigatorClients: TDBNavigator;
    DBEditLastName: TDBEdit;
    DBEditFirstName: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    cmdNewCustomer: TButton;
    cmdDelete: TButton;
    radOrderBy: TDBRadioGroup;
    optLastName: TRadioButton;
    optCustNum: TRadioButton;
    cmdSearch: TButton;
    procedure cmdExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdNewCustomerClick(Sender: TObject);
    procedure cmdDeleteClick(Sender: TObject);
    procedure optLastNameClick(Sender: TObject);
    procedure optCustNumClick(Sender: TObject);
    procedure cmdSearchClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmClients: TfrmClients;
implementation

{$R *.dfm}
procedure TfrmClients.cmdExitClick(Sender: TObject);
begin
close;
end;

procedure TfrmClients.FormCreate(Sender: TObject);
begin
ClientsTable.Open;
end;
procedure TfrmClients.cmdNewCustomerClick(Sender: TObject);
begin
ClientsTable.Edit;
ClientsTable.Insert;
end;
procedure TfrmClients.cmdDeleteClick(Sender: TObject);
begin
ClientsTable.Edit;
ClientsTable.Delete;
end;
procedure TfrmClients.optLastNameClick(Sender: TObject);
begin
ClientsTable.IndexName:='ByLastName';
ClientsTable.Refresh;
end;
procedure TfrmClients.optCustNumClick(Sender: TObject);
begin
ClientsTable.IndexName:=''
end;
procedure TfrmClients.cmdSearchClick(Sender: TObject);
var
ClientLastNameString:String;
begin
ClientsTable.IndexName:='ByLastName';
ClientLastNameString:=
    InputBox('Search',
             'Type the Customer Last Name to be searched:',
             '');
ClientsTable.FindNearest([ClientLastNameString]);
if optCustNum.Checked=True then
   begin
   ClientsTable.IndexName:='';
   ClientsTable.Refresh;
   end;
end;
end.