fymc_u.pas

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

unit FYMC_U;

interface

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

type
  TFYMC = class(TForm)
    DBGrid1: TDBGrid;
    CoolBar2: TCoolBar;
    Label1: TLabel;
    ToolBar2: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Panel4: TPanel;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    Panel1: TPanel;
    SpeedButton9: TSpeedButton;
    SpeedButton4: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FYMC: TFYMC;

implementation

uses DB_U,ADDFYMC_U, DJ_U;

{$R *.dfm}

procedure TFYMC.FormShow(Sender: TObject);
begin
with customerdata.ADOQuery3 do begin
close;
SQL.Clear;
SQL.Add('Select * from FYMC');
Open;
DBgrid1.Columns[0].Width:=400;
end;//with customerdata.ADOQuery3 do begin
end;

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

procedure TFYMC.SpeedButton4Click(Sender: TObject);
begin
  if speedbutton4.Enabled=true then  begin
     DJ.Memo1.text:=DJ.Memo1.text+' '+customerdata.ADOQuery3.Fieldbyname('用品名称').AsString;
  FYMC.speedbutton4.Enabled:=False;
  FYMC.speedbutton4.Visible:=False;
  close;
end;
end;
procedure TFYMC.SpeedButton1Click(Sender: TObject);
begin
ADDFYMC.ShowModal;
end;

procedure TFYMC.SpeedButton2Click(Sender: TObject);
begin
if  CustomerData.ADOQuery3.RecordCount<>0 then
    customerdata.ADOQuery3.Delete;
end;

end.