frm_stocku.~pas

这是一个餐饮业收费管理系统

unit frm_stockU;

interface

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

type
  Tfrm_stock = class(Tfrm_info)
    edt_date: TEdit;
    Label1: TLabel;
    edt_name: TEdit;
    Label2: TLabel;
    edt_num: TEdit;
    Label3: TLabel;
    edt_unit: TEdit;
    Label4: TLabel;
    edt_fee: TEdit;
    Label5: TLabel;
    edt_worker: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    edt_company: TEdit;
    Label8: TLabel;
    edt_name_s: TEdit;
    btn_search: TButton;
    Label9: TLabel;
    procedure FormShow(Sender: TObject);
    procedure DBGrid_infoCellClick(Column: TColumn);
    procedure btn_addClick(Sender: TObject);
    procedure btn_delClick(Sender: TObject);
    procedure btn_editClick(Sender: TObject);
    procedure btn_searchClick(Sender: TObject);
    procedure edt_numKeyPress(Sender: TObject; var Key: Char);
    procedure edt_feeKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    procedure FillData;
  end;

var
  frm_stock: Tfrm_stock;

implementation

{$R *.dfm}
procedure Tfrm_Stock.FillData;
begin
  DataSource_info.DataSet:=Control_stockU.GetStockArray;
  self.DBGrid_info.Columns[0].Visible  :=false;
end;

procedure Tfrm_stock.FormShow(Sender: TObject);
begin
  inherited;
FillData;
end;

procedure Tfrm_stock.DBGrid_infoCellClick(Column: TColumn);
begin
  inherited;
if self.DBGrid_info.Fields[0].IsNull then
    exit;
  self.edt_date.Tag:=self.DBGrid_info.Fields[0].Value;//保存id
  self.edt_date.Text:=self.DBGrid_info.Fields[1].Value;
  self.edt_name.Text:=self.DBGrid_info.Fields[2].Value;
  self.edt_num.Text:=floattostr(self.DBGrid_info.Fields[3].Value);
  self.edt_unit.Text:=self.DBGrid_info.Fields[4].Value;
  self.edt_fee.Text:=floattostr(self.DBGrid_info.Fields[5].Value);
  self.edt_worker.Text:=self.DBGrid_info.Fields[6].Value;
  self.edt_company.Text:=self.DBGrid_info.Fields[7].Value;
end;

procedure Tfrm_stock.btn_addClick(Sender: TObject);
var
  Stock:TStock;
begin
  inherited;
 if((edt_name.Text='') or (edt_num.Text='')
     or (edt_unit.Text='') or (edt_fee.Text='')
        or (edt_worker.Text='') or (edt_company.Text='')) then
        begin
           MessageBox(Handle, '内容填写不正确！', '信息', MB_ICONEXCLAMATION);
           exit;
        end;
      Stock:=TStock.Create;
      Stock.id:=edt_date.Tag;
      Stock.GetDate:=DateToStr(now);
      Stock.commodity:=trim(self.edt_name.Text);
      Stock.Num:=strtofloat(self.edt_num.Text);
      Stock.units:=self.edt_unit.Text;
      Stock.fee:=strtofloat(self.edt_fee.Text);
      Stock.worker:=self.edt_worker.Text;
      Stock.company:=self.edt_company.Text;
      
      if(Control_StockU.AddStock(Stock)) then
        begin
          MessageBox(Handle, '添加成功！', '信息', MB_ICONASTERISK);

          //刷新内容
          FillData;
        end
      else
        begin
          MessageBox(Handle, '添加失败！', '信息', MB_ICONEXCLAMATION);
          exit;
        end;
end;

procedure Tfrm_stock.btn_delClick(Sender: TObject);
begin
  inherited;
if MessageBox(Handle, '您确定要删除该入库信息', '信息',
     MB_ICONQUESTION or MB_OKCANCEL) = IDOK then
    begin
      Control_StockU.DelStock(self.edt_date.Tag);
      FillData;
      if self.DBGrid_info.Fields[0].IsNull then
        exit;
        self.edt_date.Tag:=self.DBGrid_info.Fields[0].Value;//保存id
        self.edt_date.Text:=self.DBGrid_info.Fields[1].Value;
        self.edt_name.Text:=self.DBGrid_info.Fields[2].Value;
        self.edt_num.Text:=floattostr(self.DBGrid_info.Fields[3].Value);
        self.edt_unit.Text:=self.DBGrid_info.Fields[4].Value;
        self.edt_fee.Text:=floattostr(self.DBGrid_info.Fields[5].Value);
        self.edt_worker.Text:=self.DBGrid_info.Fields[6].Value;
        self.edt_company.Text:=self.DBGrid_info.Fields[7].Value;
    end;
end;

procedure Tfrm_stock.btn_editClick(Sender: TObject);
var
  Stock:TStock;
begin
  inherited;
 if edt_name.Text ='' then
    begin
       MessageBox(Handle, '没有可以修改的数据！', '信息', MB_ICONEXCLAMATION);
      exit;
    end
  else
    begin
       if((edt_name.Text='') or (edt_num.Text='')
        or (edt_unit.Text='') or (edt_fee.Text='')
        or (edt_worker.Text='') or (edt_company.Text='')) then
        begin
           MessageBox(Handle, '内容填写不正确！', '信息', MB_ICONEXCLAMATION);
           exit;
        end;

      Stock:=TStock.Create;
      Stock.id:=edt_date.Tag;
      Stock.GetDate:=DateToStr(now);
      Stock.commodity:=trim(self.edt_name.Text);
      Stock.Num:=strtofloat(self.edt_num.Text);
      Stock.units:=self.edt_unit.Text;
      Stock.fee:=strtofloat(self.edt_fee.Text);
      Stock.worker:=self.edt_worker.Text;
      Stock.company:=self.edt_company.Text;
      if(Control_StockU.EditStock(Stock)) then
        begin
          MessageBox(Handle, '修改成功！', '信息', MB_ICONASTERISK);
          //刷新内容
          FillData;
        end
      else
         begin
          MessageBox(Handle, '修改失败！', '信息', MB_ICONEXCLAMATION);
          exit;
         end;
          self.edt_name.SetFocus;
    end;
end;

procedure Tfrm_stock.btn_searchClick(Sender: TObject);
begin
  inherited;
if trim(self.edt_name_s.Text)<>'' then
  DataSource_info.DataSet:=GetStockByStockID(self.edt_name_s.Text)
else
  DataSource_info.DataSet:=Control_stockU.GetStockArray;
  self.DBGrid_info.Columns[0].Visible  :=false;
end;

procedure Tfrm_stock.edt_numKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if not((key in ['0'..'9',#8,#13,#46])) then
    key:=#0;
end;

procedure Tfrm_stock.edt_feeKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if not((key in ['0'..'9',#8,#13,#46])) then
    key:=#0;
end;

end.