lbzy_u.pas

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

unit LBZY_U;

interface

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

type
  TLBZY = class(TForm)
    CoolBar2: TCoolBar;
    Label1: TLabel;
    ToolBar2: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Panel4: TPanel;
    SpeedButton8: TSpeedButton;
    ToolButton1: TToolButton;
    SpeedButton9: TSpeedButton;
    SpeedButton4: TSpeedButton;
    DBGrid1: TDBGrid;
    l1: TLabel;
    Panel1: TPanel;
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LBZY: TLBZY;

implementation

uses DB_U, ADDLBZY_U, DJ_U, Find_U;

{$R *.dfm}

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

procedure TLBZY.SpeedButton1Click(Sender: TObject);
begin
ADDLBZY.ShowModal;;
end;

procedure TLBZY.DBGrid1DblClick(Sender: TObject);
var
lx:integer;
begin

if speedbutton4.Enabled=true then begin
  lx:=strtoint(l1.Caption);
  case lx of
  1:DJ.edit3.text:=customerdata.ADOQuery2.Fieldbyname('职员姓名').AsString;
  2:DJ.edit4.text:=customerdata.ADOQuery2.Fieldbyname('职员姓名').AsString;
  3:Find.edit1.text:=customerdata.ADOQuery2.Fieldbyname('职员姓名').AsString;
  end;
LBZY.speedbutton4.Enabled:=False;
LBZY.speedbutton4.Visible:=False;
close;
end;
end;

procedure TLBZY.SpeedButton2Click(Sender: TObject);
begin
if  CustomerData.ADOQuery2.RecordCount<>0 then
CustomerData.ADOQuery2.Delete;
end;

procedure TLBZY.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
with DBGrid1.Canvas do
  begin
    Pen.Color := clBlue;
    MoveTo(Rect.Left, Rect.Bottom);
    LineTo(Rect.Right, Rect.Bottom);
    Pen.Color := clGreen;
    MoveTo(Rect.Right, Rect.Top);
    LineTo(Rect.Right, Rect.Bottom);
  end;
end;

procedure TLBZY.FormShow(Sender: TObject);
begin
with customerdata.ADOQuery2 do begin
close;
SQL.Clear;
SQL.Add('Select * from LBZY Order By 职员编号');
Open;
end;//with customerdata.ADOQuery2 do begin
end;

end.