ugetdata.pas

DELPHI做的制衣厂管理系统,功能完善,可能马上使用,SQL2000数据库

unit uGetData;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, DBGrids, StdCtrls;

type
  TfrmGetData = class(TForm)
    dsGetData: TDataSource;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


implementation

uses
   uMain, uGlobal;

{$R *.dfm}

procedure TfrmGetData.DBGrid1DblClick(Sender: TObject);
begin
   if not dsGetData.DataSet.IsEmpty then
      modalResult:=mrOK;
end;

procedure TfrmGetData.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   case key of
      vk_return:DBGrid1DblClick(sender);
   end;
end;

procedure TfrmGetData.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   Action:=caHide;
   dsGetData.DataSet := Nil;
end;

procedure TfrmGetData.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   case key of
      vk_escape:close;
   end;
end;

procedure TfrmGetData.FormShow(Sender: TObject);
begin
   dsGetData.DataSet := frmMain.cdPub;
end;

end.