buymaterialform.pas

本程序是一个餐饮业的管理软件

unit BuyMaterialForm;

interface

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

type
  TFrmBuyMaterial = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    DBGrid1: TDBGrid;
    Button1: TButton;
    TabSheet3: TTabSheet;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBNavigator1: TDBNavigator;
    DBGrid2: TDBGrid;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    DBEdit10: TDBEdit;
    DBText1: TDBText;
    DBText2: TDBText;
    DBEdit9: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBComboBox2: TDBComboBox;
    DBEdit13: TDBEdit;
    DBComboBox3: TDBComboBox;
    DBComboBox4: TDBComboBox;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBNavigator2: TDBNavigator;
    DBGrid3: TDBGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure TabSheet3Show(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmBuyMaterial: TFrmBuyMaterial;

implementation

uses DataM;

{$R *.dfm}

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

procedure TFrmBuyMaterial.FormCreate(Sender: TObject);
begin
  Data.DataSStaple.DataSet:=Data.ADOQStaple;
  Data.ADOQStaple.Open;
end;

procedure TFrmBuyMaterial.Button1Click(Sender: TObject);
begin
  if (Edit1.Text<>'') and (Edit2.Text<>'') then
  begin
    Data.ADOQStaple.Close;
    Data.ADOQStaple.SQL.Clear;
    Data.ADOQStaple.SQL.Add('select * from Staple where ID='+Edit1.Text);
    Data.ADOQStaple.Open;
    if Data.ADOQStaple.RecordCount=1 then
    begin
      Data.ADOQBuyEvent.Open;
      Data.ADOQBuyEvent.Append;
      Data.ADOQBuyEvent.FieldByName('StapleID').AsString:=Edit1.Text;
      Data.ADOQBuyEvent.FieldByName('Time').AsDateTime:=Now;
      Data.ADOQBuyEvent.FieldByName('Number').AsString:=Edit2.Text;
      Data.ADOQBuyEvent.Post;
      Data.ADOQBuyEvent.Close;
      Data.ADOQStaple.Edit;
      Data.ADOQStaple.FieldByName('Remain').AsFloat:=StrToFloat(Edit2.Text)+Data.ADOQStaple.FieldByName('Remain').AsFloat;
      Data.ADOQStaple.Post;
    end
    else MessageDlg('原料ID错误',mtError,[mbOK],0);
  end
  else MessageDlg('Not Null',mtError,[mbOK],0);
end;

procedure TFrmBuyMaterial.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key>105) or (Key<8) or ((Key>8) and (key<13)) or ((Key>13) and (Key<48)) or ((key>57) and (Key<96)) then
  begin
    MessageDlg('InputError!',mtError,[mbOK],0);
    Edit2.Clear;
  end;
end;

procedure TFrmBuyMaterial.TabSheet3Show(Sender: TObject);
begin
  Data.DataSStaple.DataSet:=Data.ADOQStaple;
  Data.ADOQStaple.Close;
  Data.ADOQStaple.SQL.Clear;
  Data.ADOQStaple.SQL.Add('select * from Staple');
  Data.ADOQStaple.Open;
  Data.ADOQStaple.Append;
end;

procedure TFrmBuyMaterial.TabSheet2Show(Sender: TObject);
begin
  Data.DataSProvider.DataSet:=Data.ADOQProvider;
  Data.ADOQProvider.Close;
  Data.ADOQProvider.SQL.Clear;
  Data.ADOQProvider.SQL.Add('select * from MProvider');
  Data.ADOQProvider.Open;
end;

end.