【delphi开源代码栏目提醒】:网学会员,鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“Materiel_Stock.pas”一文,供大家参考学习!
unit Materiel_Stock;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Inherit, ImgList, ComCtrls, ToolWin, StdCtrls, Buttons, Grids,
Mask, DBCtrls, ExtCtrls;
type
TMateriel_StockFrm = class(TInheritFrm)
Panel2: TPanel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Edit1: TEdit;
Panel1: TPanel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label9: TLabel;
Label7: TLabel;
Label8: TLabel;
Label3: TLabel;
Label2: TLabel;
Label1: TLabel;
DateTime: TDateTimePicker;
SpeedButton1: TSpeedButton;
Panel3: TPanel;
Materiel_StockSG: TStringGrid;
Label10: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
procedure ToolButton6Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure DateTimeCloseUp(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure Edit9Exit(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Materiel_StockFrm: TMateriel_StockFrm;
time:string;
n:integer=0;
Scheme_AllNum:integer;
Scheme_AllPrice:integer;
SQNo:integer;
implementation
uses DataModule,MaterielSelect,Materiel_S_Modfy,MS_SQ;
{$R *.dfm}
procedure TMateriel_StockFrm.ToolButton6Click(Sender: TObject);
begin
inherited;
Materiel_StockFrm.Close;
n:=0;
end;
procedure TMateriel_StockFrm.FormCreate(Sender: TObject);
begin
inherited;
with Materiel_StockSG do
begin
Materiel_StockSG.ColCount:=9;
cells[0,0]:='序号';
cells[1,0]:='材料名称';
cells[2,0]:='材料编号';
cells[3,0]:='材料规格';
cells[4,0]:='计量单位';
cells[5,0]:='采购数量';
cells[6,0]:='单价';
cells[7,0]:='金额';
cells[8,0]:='备注';
end;
end;
procedure TMateriel_StockFrm.DateTimeCloseUp(Sender: TObject);
begin
inherited;
time:=formatDatetime('yyyy-m-d',DateTime.Date); //比较前后选择日期
with DM.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('Select * From Materiel_Stock where S_Materiel_Time='+'#'+time+'#'+''+' and'+''+' S_Materiel_ID='+'1');
Open;
end;
Edit3.Text:=formatDatetime('yyyymmdd',DateTime.Date)+'00'+inttostr(DM.ADOQuery1.RecordCount+1);
end;
procedure TMateriel_StockFrm.SpeedButton1Click(Sender: TObject);
begin
inherited;
Application.CreateForm(TMaterielSelectFrm,MaterielSelectFrm);
MaterielSelectFrm.Left:=Materiel_StockFrm.Left+SpeedButton1.Left; //选择窗口显示位置
MaterielSelectFrm.Top:=Materiel_StockFrm.Top+SpeedButton1.Top;
MaterielSelectFrm.ShowModal;
if MaterielSelectFrm.ModalResult = mrOk then //用户确定选择的日期
begin
Edit5.Text:=MaterielSelectFrm.M_Name;
Edit6.Text:=MaterielSelectFrm.M_ID;
Edit7.Text:=MaterielSelectFrm.M_Standard;
Edit8.Text:=MaterielSelectFrm.M_Unit;
Edit10.Text:=MaterielSelectFrm.M_Pirce;
end;
end;
procedure TMateriel_StockFrm.Edit9Exit(Sender: TObject);
var
i:integer;
flag:integer;
begin
inherited;
n:=0;
Scheme_AllNum:=0;
Scheme_AllPrice:=0;
if (Edit9.Text<>'') and (Edit10.Text<>'') then
begin
for i:=1 to Materiel_StockSG.RowCount do
if Edit6.Text=Materiel_StockSG.Cells[2,i] then
begin
Materiel_StockSG.Cells[5,i]:=inttostr(strtoint(Materiel_StockSG.Cells[5,i])+strtoint(Edit9.Text));
Materiel_StockSG.Cells[7,i]:=inttostr(strtoint(Materiel_StockSG.Cells[5,i])*strtoint(Materiel_StockSG.Cells[6,i]));
flag:=