manager.pas

自己编写的delphi程序 可以与以有的数据库连接 使用SQL语言查询和修改数据库

unit Manager;

interface

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

type
  TManagerForm = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    goodsQuery: TQuery;
    goodssource: TDataSource;
    customQuery: TQuery;
    customersource: TDataSource;
    importQuery: TQuery;
    importsource: TDataSource;
    supplyQuery: TQuery;
    supplysource: TDataSource;
    GKQuery2: TQuery;
    GKsource2: TDataSource;
    db3: TDatabase;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGrid3: TDBGrid;
    goodsTable: TTable;
    gdsdispSource: TDataSource;
    gklist: TDBLookupComboBox;
    gdsNavigator: TDBNavigator;
    Label2: TLabel;
    Label3: TLabel;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    custable: TTable;
    cusNavigator: TDBNavigator;
    TabSheet3: TTabSheet;
    DBGrid4: TDBGrid;
    Label7: TLabel;
    supplyTable: TTable;
    DBNavigator1: TDBNavigator;
    procedure Button1Click(Sender: TObject);
    procedure gkselect(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cfmgdsinsert(DataSet: TDataSet);
    procedure cfmgdspost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ManagerForm: TManagerForm;

implementation

{$R *.dfm}

procedure TManagerForm.Button1Click(Sender: TObject);
begin
if messagedlg('Are you sure to Logout',mtConfirmation,[mbYes,mbNo,mbCancel],0)=mryes then
ManagerForm.ModalResult:=mrCancel; //close the manager form;
end;

procedure TManagerForm.gkselect(Sender: TObject);
var
gdsname:string[20];
begin
gdsname:=gklist.Text;
goodsQuery.Close;
goodsQuery.ParamByName('goodsname').Value:=gdsname;
goodsQuery.Open;

end;

procedure TManagerForm.FormCreate(Sender: TObject);
begin
GKQuery2.Close;
GKQuery2.Open;
//goodsQuery.RequestLive:=true;
end;


procedure TManagerForm.cfmgdsinsert(DataSet: TDataSet);
begin
if messagedlg('Insert a record?',mtconfirmation,[mbyes,mbno],0)<>mryes then
Abort;
end;

procedure TManagerForm.cfmgdspost(DataSet: TDataSet);
begin
if messagedlg('Make sure the GoodsID is Unique!',mtWarning,[mbyes,mbcancel],0)<>mryes then
Abort;
end;

end.