cmylist.txt

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

unit CMylist;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, DB, DBTables, StdCtrls, Mask;
type
  TfrmMylist = class(TForm)
    ClientsTable: TTable;
    ClientsDataSource: TDataSource;
    ClientsNavigator: TDBNavigator;
    DBEditLastName: TDBEdit;
    lblLastName: TLabel;
    DBEditFirstName: TDBEdit;
    lblFirstName: TLabel;
    DBTextCustNum: TDBText;
    lblCustNum: TLabel;
    cmdExit: TButton;
    DBTextlientType: TDBText;
    lblClientType: TLabel;
    DBComboBoxClientType: TDBComboBox;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure cmdExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmMylist: TfrmMylist;
implementation
{$R *.dfm}
procedure TfrmMylist.FormCreate(Sender: TObject);
begin
ClientsTable.Open;
end;
procedure TfrmMylist.cmdExitClick(Sender: TObject);
begin
frmMylist.Close;
end;
end.