当前位置:主页>仓库管理软件> 列表

请问这个代码怎么写 找企业管理软件

销售管理软件版1楼: 有3个按钮 是提交\保存\清空
比如进了相同数量的机器台数为2则进货数量为2的时候 先将这两台相同的信息部分录入 点"保存",然后他变成灰色,接着写每台机器的唯一机器号,写第一台的机器号后,点提交,接着写第2台机器号,然后点提交,则 完成一次.点"清空" 则把原来的信息框内的内容清空.
但现在我发现我的这个程序目前实现不够完善.比如,当机器号没填的时候,虽然他提示说,请输入机器号,但他仍然把这台机器给录入了,同时显示"录入完毕",其次,当录入信息完成,点清空时,就不能再次输入了.请高手给出完整代码.我现在把这段代码完整写出来,如下:
unit Unit3;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, DB, DBTables;

type
TForm3 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
Label5: TLabel;
ComboBox1: TComboBox;
Edit1: TEdit;
ComboBox2: TComboBox;
DateTimePicker1: TDateTimePicker;
Label6: TLabel;
Edit2: TEdit;
Label3: TLabel;
Label7: TLabel;
Table1: TTable;
DataSource1: TDataSource;
Button1: TButton;
Button2: TButton;
Edit3: TEdit;
Button3: TButton;
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
i:integer;
end;

var
Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);
var
path:string;
begin
Getdir(0,path);
table1.DatabaseName := path+''\db'';
table1.TableName := ''jinhuo'';
table1.Active := true;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
combobox1.Text := '''';
edit1.Text := '''';
combobox2.Text := '''';
edit3.Text := '''';
datetimepicker1.Format := '''';
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
if edit3.Text = '''' then showmessage(''数量为空!!请输入数量'')
else begin
edit3.Enabled := False;
button1.Enabled := false;
button2.Enabled := false;
button3.Enabled := true;
i := strtoint(edit3.Text);
end;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
i := i - 1;
if edit2.Text = '''' then showmessage(''请输入机器号'') else
begin
table1.Insert;
table1.FieldByName(''机器号'').AsString := edit2.Text;
table1.FieldByName(''配置'').AsString := edit1.Text;
table1.FieldByName(''品牌型号'').AsString := combobox1.Text;
table1.FieldByName(''来源'').AsString := combobox2.Text;
table1.FieldByName(''进货日期'').AsDateTime := datetimepicker1.DateTime;
table1.Post;
edit2.Text:='''';
table1.Active;
end;
if i = 0 then
begin

showmessage(''进货完毕'');
button3.Enabled := false;
button1.Enabled := True;
button2.Enabled := True;
end;
end;

end.

2楼: 这分明就是代工嘛。 如企业管理软件

3楼: 怎么了,我不会啊,没办法,才求助的啊

4楼: 你把它发给我,我帮你调试一下:
panzichan@vip.sina.com

5楼: 1)在procedure TForm3.FormCreate(Sender: TObject);中添加如下二句
i:=-1;
edit2.text:='''';
2)procedure TForm3.Button2Click(Sender: TObject);中也加入前面两句

6楼: wind_2005 谢谢你 ,但是你的代码我添加进去了,没有作用,但还是谢谢你的帮忙.

销售管理软件版7楼: panzichen 你好,我已经给你发邮件了, 请查收

8楼: unit Unit3;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, DB, DBTables;

type
TForm3 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
Label5: TLabel;
ComboBox1: TComboBox;
Edit1: TEdit;
ComboBox2: TComboBox;
DateTimePicker1: TDateTimePicker;
Label6: TLabel;
Edit2: TEdit;
Label3: TLabel;
Label7: TLabel;
Table1: TTable;
DataSource1: TDataSource;
Button1: TButton;
Button2: TButton;
Edit3: TEdit;
Button3: TButton;
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
i:integer;
end;

var
Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);
var
path:string;
begin
Getdir(0,path);
table1.DatabaseName := path+''\db'';
table1.TableName := ''jinhuo'';
table1.Active := true;
end;

procedure TForm3.Button2Click(Sender: TObject);


begin
combobox1.Text := '''';
edit1.Text := '''';
combobox2.Text := '''';
edit3.Text := '''';
datetimepicker1.Format := '''';
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
if edit3.Text = '''' then
begin
showmessage(''数量为空!!请输入数量'');
exit;
end
else
begin
edit3.Enabled := False;
button1.Enabled := false;
button2.Enabled := false;
button3.Enabled := true;
i := strtoint(edit3.Text);
end;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
i := i - 1;
if edit2.Text = '''' then
begin
showmessage(''请输入机器号'');
exit;
end
else
begin
table1.Insert;
table1.FieldByName(''机器号'').AsString := edit2.Text;
table1.FieldByName(''配置'').AsString := edit1.Text;
table1.FieldByName(''品牌型号'').AsString := combobox1.Text;
table1.FieldByName(''来源'').AsString := combobox2.Text;
table1.FieldByName(''进货日期'').AsDateTime := datetimepicker1.DateTime;
table1.Post;
edit2.Text:='''';
table1.Active;
end;
if i = 0 then
begin
showmessage(''进货完毕'');
button3.Enabled := false;
button1.Enabled := True;
button2.Enabled := True;
end;
end;

end.

9楼: procedure TForm3.Button3Click(Sender: TObject);
begin
i := i - 1;
if edit2.Text = '''' then showmessage(''请输入机器号'') else
begin
//这里改成 table1.Insert;
Table1.Append;//从末尾添加

table1.FieldByName(''机器号'').AsString := edit2.Text;
table1.FieldByName(''配置'').AsString := edit1.Text;
table1.FieldByName(''品牌型号'').AsString := combobox1.Text;
table1.FieldByName(''来源'').AsString := combobox2.Text;


table1.FieldByName(''进货日期'').AsDateTime := datetimepicker1.DateTime;
table1.Post;
edit2.Text:='''';
//这句不要 table1.Active;
end;
if i = 0 then
begin
showmessage(''进货完毕'');
button3.Enabled := false;
button1.Enabled := True;
button2.Enabled := True;
end;
end;

10楼: 多人接受答案了。