cxtj_u.pas

从盒子上面转过来的一个很小的软件

unit CXTJ_U;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Buttons, ToolWin, StdCtrls, Grids, DBGrids, ExtCtrls, DB_U,
  DB;

type
  TCXTJ = class(TForm)
    Panel4: TPanel;
    DBgrid1: TDBGrid;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    JE1: TLabel;
    JE2: TLabel;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    SpeedButton5: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton8: TSpeedButton;
    Panel2: TPanel;
    ToolButton1: TToolButton;
    SpeedButton9: TSpeedButton;
    Panel3: TPanel;
    JLS: TLabel;
    l1: TLabel;
    DataSource1: TDataSource;
    procedure SpeedButton9Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure DBgrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CXTJ: TCXTJ;

implementation

uses Find_U, DJ_U;

{$R *.dfm}

procedure TCXTJ.SpeedButton9Click(Sender: TObject);
begin
Close;
end;

procedure TCXTJ.FormShow(Sender: TObject);
begin
customerdata.adoquery1.close;
JLS.Caption:='';
JE1.Caption:='';
JE2.Caption:='';
end;

procedure TCXTJ.SpeedButton5Click(Sender: TObject);
begin
Find.l1.Caption:='2';
Find.ShowModal;
end;

procedure TCXTJ.DBgrid1DblClick(Sender: TObject);
begin
DJ.l1.Caption:='2';
DJ_Write;
DJ.ShowModal;
end;

end.