venderset_unit.pas

药品进销管理程序,内有SQL附加的数据库.....详情看里面的,运行就OK

unit VenderSet_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, DBCtrls, Mask, Buttons, Grids,
  DBGrids, DB, ADODB;

type
  TfrmVenderSet = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    txtProviderID: TDBText;
    edtProName: TDBEdit;
    edtAddress: TDBEdit;
    edtPrincipal: TDBEdit;
    edtTelephone: TDBEdit;
    edtRamark: TDBMemo;
    btnAdd: TBitBtn;
    btnModify: TBitBtn;
    btnDelete: TBitBtn;
    btnSave: TBitBtn;
    btnCancel: TBitBtn;
    DBGrid1: TDBGrid;
    dsrProvider: TDataSource;
    qryProvider: TADOQuery;
    procedure btnAddClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnModifyClick(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmVenderSet: TfrmVenderSet;

implementation

uses Common_Unit, LeechdomMain_Unit;

{$R *.dfm}

procedure TfrmVenderSet.btnAddClick(Sender: TObject);
var
  SQLMaxID, MaxID, ProID: string;
begin
  dsrProvider.DataSet.Insert;
  ProID := '2007090000';
  SQLMaxID := 'Exec proc_Base @Flag=''Select_ProID_Max''' + ',@ProID=' + Quotedstr(ProID); //调用存储过程
  OpenDataSQL(frmLeechdomMain.qryMaxID, SQLMaxID);
  MaxID := frmLeechdomMain.qryMaxID.FieldByName('ProviderID').AsString;
  txtProviderID.Caption := MaxID;
  qryProvider.FieldByName('ProviderID').AsString := MaxID;
end;

procedure TfrmVenderSet.FormShow(Sender: TObject);
begin
  OpenDataSQL(qryProvider, 'Select * From Provider');
end;

procedure TfrmVenderSet.btnModifyClick(Sender: TObject);
begin
  qryProvider.Edit;
end;

procedure TfrmVenderSet.btnDeleteClick(Sender: TObject);
begin
  if Application.MessageBox('确定要删除此条记录吗?','提示',68)= IDNo then
    Exit;
  qryProvider.Delete;
  qryProvider.UpdateBatch;
end;

procedure TfrmVenderSet.btnSaveClick(Sender: TObject);
begin
  if qryProvider.State in [dsInsert,dsEdit] then
    qryProvider.UpdateBatch;
end;

procedure TfrmVenderSet.btnCancelClick(Sender: TObject);
begin
  qryProvider.Cancel;
end;

procedure TfrmVenderSet.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
  frmVenderSet := nil;
end;

end.