?? tjwxwz.pas
字號:
unit tjwxwz;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, db, Mask, DBCtrlsEh, Buttons, ExtCtrls;
type
Twxwz = class(TForm)
Panel2: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Edit1: TEdit;
Edit2: TEdit;
DBNumberEditEh1: TDBNumberEditEh;
ComboBox1: TComboBox;
DBNumberEditEh2: TDBNumberEditEh;
DBNumberEditEh3: TDBNumberEditEh;
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure DBNumberEditEh1Change(Sender: TObject);
procedure DBNumberEditEh2Change(Sender: TObject);
private
{ Private declarations }
public
wztj:boolean;
{ Public declarations }
end;
var
wxwz: Twxwz;
implementation
uses datafrm,yfwxfrm;
{$R *.dfm}
procedure Twxwz.SpeedButton2Click(Sender: TObject);
begin
close;
end;
procedure Twxwz.SpeedButton1Click(Sender: TObject);
begin
if wxwz.wztj then
begin
if wxwz.Edit1.Text<>'' then
begin
if yfgldata.wxwz1.Locate('名稱',wxwz.Edit1.Text,[loCaseInsensitive]) then
messagebox(wxwz.handle,'名稱發生重復。','營房工作管理系統',16)
else
begin
if wxwz.ComboBox1.Text<>'' then
begin
yfgldata.wxwz1.Append;
yfgldata.wxwz1.FieldByName('名稱').AsString:=wxwz.Edit1.Text;
yfgldata.wxwz1.FieldByName('單位').AsString:=wxwz.ComboBox1.Text;
yfgldata.wxwz1.FieldByName('規格').AsString:=wxwz.Edit2.Text;
yfgldata.wxwz1.FieldByName('數量').AsInteger:=wxwz.DBNumberEditEh1.Value;
yfgldata.wxwz1.FieldByName('單價').AsFloat:=wxwz.DBNumberEditEh2.Value;
yfgldata.wxwz1.FieldByName('金額').AsInteger:=wxwz.DBNumberEditEh3.Value;
yfgldata.wxwz1.Post;
yfwx.DBNumberEditEh1.Value:=yfwx.DBNumberEditEh1.Value+wxwz.DBNumberEditEh3.Value;
close;
yfwx.showwz;
end
else
messagebox(wxwz.handle,'單位不能為空。','營房工作管理系統',16);
end;
end
else
messagebox(wxwz.handle,'名稱不能為空。','營房工作管理系統',16);
end
else
begin
yfwx.DBNumberEditEh1.Value:=yfwx.DBNumberEditEh1.Value+wxwz.DBNumberEditEh3.Value-yfgldata.wxwz1.FieldByName('金額').AsInteger;
yfgldata.wxwz1.Edit;
yfgldata.wxwz1.FieldByName('單位').AsString:=wxwz.ComboBox1.Text;
yfgldata.wxwz1.FieldByName('規格').AsString:=wxwz.Edit2.Text;
yfgldata.wxwz1.FieldByName('數量').AsInteger:=wxwz.DBNumberEditEh1.Value;
yfgldata.wxwz1.FieldByName('單價').AsFloat:=wxwz.DBNumberEditEh2.Value;
yfgldata.wxwz1.FieldByName('金額').AsInteger:=wxwz.DBNumberEditEh3.Value;
yfgldata.wxwz1.Post;
close;
end;
end;
procedure Twxwz.DBNumberEditEh1Change(Sender: TObject);
begin
wxwz.DBNumberEditEh3.Value:=wxwz.DBNumberEditEh1.Value*wxwz.DBNumberEditEh2.Value;
end;
procedure Twxwz.DBNumberEditEh2Change(Sender: TObject);
begin
wxwz.DBNumberEditEh3.Value:=wxwz.DBNumberEditEh1.Value*wxwz.DBNumberEditEh2.Value;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -