?? f_material_master.pas
字號:
unit f_material_master;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, Buttons, ToolWin, ComCtrls, DB, ADODB,
Grids, DBGrids;
type
Tw_material_master = class(TForm)
GroupBox1: TGroupBox;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
Label1: TLabel;
Label2: TLabel;
DBGrid1: TDBGrid;
ado_material_master: TADOQuery;
data_material_master: TDataSource;
ToolBar1: TToolBar;
btadd: TBitBtn;
btok: TBitBtn;
Btdel: TBitBtn;
btno1: TBitBtn;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
ado_material_masterproduct_id: TStringField;
ado_material_mastermaterial_id: TStringField;
ado_material_mastermaterial_unit: TFloatField;
ado_material_masterunit_amount: TFloatField;
ado_material_masterunit_cost: TFloatField;
BitBtn1: TBitBtn;
procedure SpeedButton1Click(Sender: TObject);
procedure btaddClick(Sender: TObject);
procedure btokClick(Sender: TObject);
procedure BtdelClick(Sender: TObject);
procedure btno1Click(Sender: TObject);
procedure ado_material_masterCalcFields(DataSet: TDataSet);
procedure SpeedButton2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
w_material_master: Tw_material_master;
implementation
uses f_product_id, f_material_id, f_main;
{$R *.dfm}
procedure Tw_material_master.SpeedButton1Click(Sender: TObject);
begin
Application.CreateForm(Tw_product_id, w_product_id);
if w_product_id.ShowModal = mrOk then
DBEdit1.Text:=copy(trim(w_product_id.combobox1.text),1,5);
end;
procedure Tw_material_master.btaddClick(Sender: TObject);
begin
try
ado_material_master.Append;
ado_material_master.FieldByName('unit_cost').AsString:=trim(dbedit5.Text);
except
showmessage('產生例外錯誤,請聯系開發人員或者程序供應商');
end;
end;
procedure Tw_material_master.btokClick(Sender: TObject);
begin
try
ado_material_master.Post;
except
showmessage('產生例外錯誤,請聯系開發人員或者程序供應商');
end;
end;
procedure Tw_material_master.BtdelClick(Sender: TObject);
begin
try
if MessageDlg('您確定要刪除錄入的數據嗎?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
ado_material_master.Delete;
except
showmessage('產生例外錯誤,請聯系開發人員或者程序供應商');
end;
end;
procedure Tw_material_master.btno1Click(Sender: TObject);
begin
try
ado_material_master.Cancel;
except
showmessage('產生例外錯誤,請聯系開發人員或者程序供應商');
end;
close;
end;
procedure Tw_material_master.ado_material_masterCalcFields(
DataSet: TDataSet);
begin
ado_material_masterunit_cost.Value:=ado_material_mastermaterial_unit.value*ado_material_masterunit_amount.Value;
end;
procedure Tw_material_master.SpeedButton2Click(Sender: TObject);
begin
Application.CreateForm(Tw_material_id, w_material_id);
if w_material_id.ShowModal = mrOk then
DBEdit2.Text:=copy(trim(w_material_id.combobox1.text),1,5);
end;
procedure Tw_material_master.FormCreate(Sender: TObject);
begin
// edit1.Text:=dbedit5.Text;
w_main.Enabled:=false;
end;
procedure Tw_material_master.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
w_main.Enabled:=true;
end;
procedure Tw_material_master.BitBtn1Click(Sender: TObject);
begin
dbedit5.Text:=floattostr(ado_material_master.fieldbyname('material_unit').Value*ado_material_master.fieldbyname('unit_amount').Value);
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -