booklist.~pas

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

unit booklist;

interface

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

type
  TForm3 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Image1: TImage;
    Panel1: TPanel;
    Panel2: TPanel;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    Label8: TLabel;
    Edit8: TEdit;
    Label9: TLabel;
    Edit9: TEdit;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    Label10: TLabel;
    N9: TMenuItem;
    Button1: TButton;
    RvDataSetConnection1: TRvDataSetConnection;
    RvProject1: TRvProject;
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses findbooklist;

{$R *.dfm}

procedure TForm3.N4Click(Sender: TObject);
begin
if adotable1.Active=false then
begin
showmessage('请打开数据库列表!!!');
end
else
begin
if Messagedlg('确定要删除此记录吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
adotable1.Delete;
end;
end;

procedure TForm3.N3Click(Sender: TObject);
begin
if (edit1.Text='') and (edit2.Text='')and (edit3.Text='')and (edit4.Text='')and (edit5.Text='')and (edit6.Text='')and (edit7.Text='')and (edit8.Text='')and (edit9.Text='')then
begin
showmessage('请完整输入信息!');
end
else
begin

adotable1.Append;
adotable1.FieldValues['Cname']:=edit1.Text;
adotable1.FieldValues['Qname']:=edit2.Text;
adotable1.FieldValues['Qspec']:=edit3.Text;
adotable1.FieldValues['Qljname']:=edit4.Text;
adotable1.FieldValues['Qnumber']:=strtoint(edit5.Text);
adotable1.FieldValues['address']:=edit6.Text;
adotable1.FieldValues['telephone']:=strtoint(edit7.Text);
adotable1.FieldValues['Cbank']:=edit8.Text;
adotable1.FieldValues['Bno']:=strtoint(edit9.Text);
adotable1.Post;
end;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin

if adotable1.Active=false then
begin
adotable1.Active:=true;
button1.Caption:='关闭定货单列表';
end
else
begin
adotable1.Active:=false;
button1.Caption:='显示定货单';
end;
end;

procedure TForm3.N9Click(Sender: TObject);
begin
rvproject1.execute;
end;

procedure TForm3.N7Click(Sender: TObject);
begin
form4.show;
end;

procedure TForm3.N8Click(Sender: TObject);
begin
form4.show;
end;

procedure TForm3.N2Click(Sender: TObject);
begin
close;
end;

end.