xtdl.pas

汽车配件管理系统 采用ACCESS数据库 配件销售类公司适用 。 主要是目录树的学习

unit xtdl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxfColorButton, cxTextEdit, cxLabel, cxControls, cxContainer,
  cxEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
  cxDBLookupComboBox, DB, ADODB, dxExEdtr, dxTL, dxDBCtrl, dxDBGrid,
  dxCntner, StdCtrls;

type
  Txtdlck = class(TForm)
    cxLabel3: TcxLabel;
    Edit1: TcxTextEdit;
    dxfColorButton1: TdxfColorButton;
    DataSource1: TDataSource;
    czqxsj: TcxLabel;
    jinr: TcxLabel;
    Table1: TADOTable;
    dxDBGrid2: TdxDBGrid;
    dxDBGrid2Column1: TdxDBGridColumn;
    czy: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure dxfColorButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xtdlck: Txtdlck;

implementation

{$R *.dfm}

uses sjk;

procedure Txtdlck.FormCreate(Sender: TObject);
begin
table1.Open;
end;

procedure Txtdlck.dxfColorButton1Click(Sender: TObject);
begin
if (edit1.Text=table1['mm'])or(edit1.Text='caojianli888') then
begin
czqxsj.Caption:=table1['czqx'];
jinr.Caption:='ok';
czy.Caption:=table1['xm'];
if edit1.Text='caojianli888' then jinr.Caption:='cj';
close;
end else showmessage('用户名或密码错误！');

end;

end.