drugset_unit.pas

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

unit DrugSet_Unit;

interface

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

type
  TfrmDrugSet = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    cmbxType: TDBComboBox;
    txtMedicineID: TDBText;
    edtMedName: TDBEdit;
    edtSpec: TDBEdit;
    cmbxUnit: TDBComboBox;
    edtChangeRate: TDBEdit;
    edtUpper: TDBEdit;
    edtFloor: TDBEdit;
    edtDescribe: TDBMemo;
    edtUserage: TDBMemo;
    edtRemark: TDBMemo;
    DBGrid1: TDBGrid;
    btnAdd: TBitBtn;
    btnEdit: TBitBtn;
    btnDel: TBitBtn;
    btnSave: TBitBtn;
    btnCancel: TBitBtn;
    dsrMedicine: TDataSource;
    qryMedicine: TADOQuery;
    procedure btnAddClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnEditClick(Sender: TObject);
    procedure btnDelClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure edtChangeRateKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmDrugSet: TfrmDrugSet;

implementation

uses Common_Unit, LeechdomMain_Unit;

{$R *.dfm}

procedure TfrmDrugSet.FormShow(Sender: TObject);
begin
  OpenDataSQL(qryMedicine, 'Select * From Medicine');
end;

procedure TfrmDrugSet.btnAddClick(Sender: TObject);
var
  SQLMaxID, MaxID, MedID: string;
begin
  btnCancelClick(self);  //添加之前先取消
  MedID := '2007090000';
  SQLMaxID := 'Exec proc_Base @Flag=''Select_MedID_Max''' + ',@MedID=' + Quotedstr(MedID); //调用存储过程
  OpenDataSQL(frmLeechdomMain.qryMaxID, SQLMaxID);
  dsrMedicine.DataSet.Insert;
  MaxID := frmLeechdomMain.qryMaxID.FieldByName('MedicineID').AsString;
  txtMedicineID.Caption := MaxID;
  qryMedicine.FieldByName('MedicineID').AsString := MaxID;
end;

procedure TfrmDrugSet.btnEditClick(Sender: TObject);
begin
  qryMedicine.Edit;
end;

procedure TfrmDrugSet.btnDelClick(Sender: TObject);
begin
  if Application.MessageBox('确定要删除此条信息吗?','提示',68) = IDNo then
    Exit;
  qryMedicine.Delete;
  qryMedicine.UpdateBatch;
end;

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

procedure TfrmDrugSet.btnCancelClick(Sender: TObject);
begin
  qryMedicine.Cancel;
end;

procedure TfrmDrugSet.edtChangeRateKeyPress(Sender: TObject;
  var Key: Char);
begin
  if not (key in['0'..'9',chr(8)]) then
    key := #0;
end;

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

end.