unit13.pas

基于ACESS数据库的小型进销存管理软件。

unit Unit13;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Grids, DBGrids, DB, ADODB, FR_Class,
  FR_DSet, FR_DBSet, DBCtrls;

type
  TForm13 = class(TForm)
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    DBGrid1: TDBGrid;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    Button3: TButton;
    ADOQuery1: TADOQuery;
    CheckBox1: TCheckBox;
    DBLookupComboBox1: TDBLookupComboBox;
    Label6: TLabel;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker3: TDateTimePicker;
    Label7: TLabel;
    frDBDataSet1: TfrDBDataSet;
    frReport1: TfrReport;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form13: TForm13;
var z:string;
var time:string;
var str:string;
var cd:string;

implementation

uses Frm_Print;

{$R *.dfm}

procedure TForm13.Button1Click(Sender: TObject);
begin
with adotable1 do
begin
try
adotable1.Append;
adotable1.FieldByName('日期').asdatetime:=datetimepicker1.date;
adotable1.FieldByName('购货单位').AsString:=edit1.Text;
adotable1.FieldByName('付款单位').AsString:=edit2.text;
adotable1.fieldbyname('还款金额(元)').asfloat:=strtofloat(format('%8.6f',[strtofloat(edit3.text)]));
adotable1.fieldbyname('付款方式').AsString:=edit4.Text;
adotable1.Post;
showmessage('数据已经正确存盘！');
except
Cancel;
ShowMessage('数据存盘发生错误，请检查数据是否正确！');
end;
end;
end;
procedure TForm13.Button2Click(Sender: TObject);
begin
with adotable1 do
begin
adotable1.Delete;
end;
end;

procedure TForm13.Button3Click(Sender: TObject);
begin
if checkbox1.Checked=true then
begin
z:=' and '+'购货单位'+' like'+''''+dblookupcombobox1.Text+'%'+'''';
end
else
begin
z:='';
end;
with adoquery1 do
   begin
    adoquery1.Close;
    adoquery1.SQL.Clear;
    str:='select * from ac where '+'ID>=0'+z;
     time:=' and  日期 between'+'#'+datetostr(DateTimePicker2.date)+'#'+'and '+'#'+datetostr(DateTimePicker3.date)+'#';
     cd:=str+time;
    adoquery1.sql.add(cd);
    adoquery1.Open;
   end;
     frReport1.LoadFromFile('print\109.frf');
     frReport1.OnObjectClick:= nil;
     frReport1.OnMouseOverObject:= nil;
     frReport1.ModifyPrepared:=false;
     frReport1.Preview:=FormPrint.frPreview1;
     if frReport1.PrepareReport then
     frReport1.ShowPreparedReport;
     FormPrint.ShowModal;

end;

procedure TForm13.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked=true then
begin
dblookupcombobox1.Enabled:=true;
end
else
begin
dblookupcombobox1.Enabled:=false;
z:='';
end;
end;

procedure TForm13.Button4Click(Sender: TObject);
begin
checkbox1.Visible:=true;
dblookupcombobox1.Visible:=true;
label6.visible:=true;
datetimepicker2.Visible:=true;
datetimepicker3.Visible:=true;
label7.Visible:=true;
button3.Visible:=true;
end;

end.