lx.pas

客户关系管理系统 客户关系管理系统

unit LX;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, DBCtrls, DB, ADODB;

type
  TLXFrm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    DBLookupListBox1: TDBLookupListBox;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LXFrm: TLXFrm;

implementation

  uses main;

{$R *.dfm}

procedure TLXFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    LXFrm:=nil ;
end;

procedure TLXFrm.SpeedButton4Click(Sender: TObject);
begin
    close;
end;

procedure TLXFrm.SpeedButton1Click(Sender: TObject);
begin
   Edit1.Enabled:=true;
   Edit1.SetFocus;
end;

procedure TLXFrm.SpeedButton2Click(Sender: TObject);
begin
ADOQuery1.Delete;
end;

procedure TLXFrm.SpeedButton3Click(Sender: TObject);
{var
 V :string ;  }
begin
{ADOQuery1.Open;
while not ADOQuery1.Eof do ADOQuery1.Next;
v:=ADOQuery1.FieldByName('typeID').AsString;
showmessage(v); }
if trim(Edit1.Text)='' then
   begin
        ShowMessage('请输入内容');
        exit;
        Edit1.SetFocus;
   end;
ADOQuery1.Append;
ADOQuery1.FieldByName('typedocument').AsString:=trim(edit1.Text);
ADOQuery1.Post;
Edit1.Clear;
end;

procedure TLXFrm.FormShow(Sender: TObject);
begin
with ADOQuery1 do
begin
close;
sql.Text:='select distinct typedocument,typeID from companytype ';
open;
end;
end;

end.