saleconsole.pas

一个关于DELPHI的汽车配件销售系统,具有销售,会计和采购等功能

unit saleconsole;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, Grids, DBGrids, ExtCtrls, jpeg, StdCtrls, DB, ADODB,
  RpRave, RpDefine, RpCon, RpConDS;

type
  TForm5 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    Image1: TImage;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    N9: TMenuItem;
    N10: TMenuItem;
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    RvDataSetConnection2: TRvDataSetConnection;
    RvProject2: TRvProject;
    N4: TMenuItem;
    Label6: TLabel;
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
 

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.N3Click(Sender: TObject);
begin
if (edit1.Text='') or  (edit2.Text='')or (edit3.Text='') or (edit4.Text='') or (edit5.Text='') then
begin
showmessage('请输入完整信息!!!');
end
else
begin
adotable1.Append;
adotable1.FieldValues['Cname']:=edit1.Text;
adotable1.FieldValues['Qljname']:=edit2.Text;
adotable1.FieldValues['Qnumber']:=strtoint(edit3.Text);
adotable1.FieldValues['price']:=strtoint(edit4.Text);
adotable1.FieldValues['price-total']:=strtoint(edit5.Text);
adotable1.Post;
end;
end;
procedure TForm5.N2Click(Sender: TObject);
begin
close;
end;

procedure TForm5.Button1Click(Sender: TObject);
begin

if button2.caption='关闭销售历史列表'then
begin
showmessage('请关闭销售历史列表');
end
else
begin
if adotable1.Active=false then
begin
adotable1.TableName:='salelist';
adotable1.Active:=true;
button1.Caption:='关闭销售定单';
end
else
begin
adotable1.Active:=false;
button1.Caption:='打开销售定单';
end;
end;
end;

procedure TForm5.Button2Click(Sender: TObject);
begin
if button1.caption='关闭销售定单'then
begin
showmessage('请关闭销售定单');
end
else
begin
if adotable1.Active=false then
begin
adotable1.TableName:='salehistory';
adotable1.Active:=true;
button2.Caption:='关闭销售历史列表';
end
else
begin
adotable1.Active:=false;
button2.Caption:='打开销售历史列表';
end;
end;



end;






procedure TForm5.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm5.N6Click(Sender: TObject);
begin
rvproject2.Execute;
end;

end.