【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了: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.
上一篇:
DistributionDlg.cpp
下一篇:
ASP小区停车管理系统(Access)(含录像)