bookin.pas

一个简单的教材管理系统,可以提供给有这方面软件需求的人

unit bookin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Mask, DB, ADODB;

type
  TbookinForm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    MaskEdit1: TMaskEdit;
    Label6: TLabel;
    ComboBox1: TComboBox;
    Label7: TLabel;
    Edit5: TEdit;
    Label8: TLabel;
    Edit6: TEdit;
    Label9: TLabel;
    Edit7: TEdit;
    Label10: TLabel;
    Edit8: TEdit;
    Label11: TLabel;
    Edit9: TEdit;
    Label12: TLabel;
    Edit10: TEdit;
    Label13: TLabel;
    MaskEdit2: TMaskEdit;
    Label14: TLabel;
    Edit11: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOConnection1: TADOConnection;
    procedure FormActivate(Sender: TObject);
    procedure Edit4Exit(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit7Exit(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure initiate;
  end;

var
  bookinForm: TbookinForm;
  new:boolean;
implementation
  uses main,bookinrpt;
{$R *.dfm}

procedure TBookinForm.initiate;
begin
    Edit1.text:='';
    Edit2.Text:='';
    Edit3.text:='';
    Edit4.Text:='0';
    Edit5.text:='';
    Edit6.Text:='0';
    edit6.ReadOnly:=true;
    edit6.TabStop:=false;
    edit6.Enabled:=false;
    Edit7.text:='0';
    Edit8.Text:='0';
    edit8.ReadOnly:=true;
    edit8.TabStop:=false;
    edit8.Enabled:=false;
    Edit9.Text:='';
    Edit10.text:='';
    Edit11.Text:='';
    combobox1.text:='';
    maskedit1.text:='';
    maskedit2.text:=DateToStr(Date());
    maskedit2.ReadOnly:=true;
    maskedit2.TabStop:=false;
    maskedit2.Enabled:=false;
    edit1.SetFocus;
end;

procedure TbookinForm.FormActivate(Sender: TObject);
var
  AdoTable1:TAdoTable;
begin
    initiate;
    adotable1:=TAdoTable.Create(self);
    adotable1.Connection:=adoconnection1;
    adotable1.TableName:='单位信息表';
    adotable1.Open;
    combobox1.Items.Clear;
    while not adotable1.Eof do
    begin
      combobox1.Items.Add(adotable1.fieldbyname('单位名').asstring);
      adotable1.Next;
    end;
    new:=false;
end;

procedure TbookinForm.Edit4Exit(Sender: TObject);
var
    adodataset1:TAdodataset;
begin
    adodataset1:=TAdoDataset.Create(self);
    adodataset1.Connection:=adoconnection1;
    adodataset1.CommandType:=cmdtext;
    adodataset1.CommandText:='select * from 教材表 where 教材名=:s0 and 出版社=:s1 and 作者=:s2 and 教材单价=:s3';
    adodataset1.Parameters.clear;
    adodataset1.Parameters.AddParameter;
    adodataset1.Parameters[0].name:='s0';
    adodataset1.Parameters[0].DataType:=ftstring;
    adodataset1.Parameters[0].Direction:=pdinput;
    adodataset1.Parameters[0].Value:=edit1.text;
    adodataset1.Parameters.AddParameter;
    adodataset1.Parameters[1].name:='s1';
    adodataset1.Parameters[1].DataType:=ftstring;
    adodataset1.Parameters[1].Direction:=pdinput;
    adodataset1.Parameters[1].Value:=edit2.text;
    adodataset1.Parameters.AddParameter;
    adodataset1.Parameters[2].name:='s2';
    adodataset1.Parameters[2].DataType:=ftstring;
    adodataset1.Parameters[2].Direction:=pdinput;
    adodataset1.Parameters[2].Value:=edit3.text;
    adodataset1.Parameters.AddParameter;
    adodataset1.Parameters[3].name:='s3';
    adodataset1.Parameters[3].DataType:=ftcurrency;
    adodataset1.Parameters[3].Direction:=pdinput;
    adodataset1.Parameters[3].Value:=StrToFloat(edit4.text);
    adodataset1.Active:=true;
    if adodataset1.Recordset.RecordCount=0 then
          new:=true
    else
    begin
        maskedit1.text:=DateToStr(AdoDataset1.fieldbyname('出版年月').AsDateTime);
        combobox1.text:=AdoDataset1.fieldbyname('订书单位').AsString;
        edit5.text:=AdoDataset1.fieldbyname('经办人').AsString;        
        edit6.text:=IntToStr(AdoDataset1.fieldbyname('教材数量').AsInteger);
        edit9.text:=AdoDataset1.fieldbyname('获奖情况').AsString;
        edit10.text:=AdoDataset1.fieldbyname('使用说明').AsString;
        edit11.text:=AdoDataset1.fieldbyname('说明').AsString;
    end;
end;

procedure TbookinForm.BitBtn1Click(Sender: TObject);
var
    AdoQuery1:TAdoquery;
    adotable1:Tadotable;
begin
    adoquery1:=TAdoquery.Create(self);
    adoquery1.Connection:=adoconnection1;
    adotable1:=TAdotable.Create(self);
    adotable1.Connection:=adoconnection1;
    adotable1.close;
    adoquery1.close;
    adoquery1.SQL.clear;
    if new then
    begin
          adotable1.TableName:='教材表';
          adotable1.Open;
          adotable1.AppendRecord([edit1.text,edit2.text,edit3.text,edit9.text,StrToDate(maskedit1.text),combobox1.text,edit5.text,edit8.text,StrToFloat(edit4.text),edit10.text,Date(),edit11.text,username,date()]);
          new:=false;
          adotable1.Close;
    end
    else
    begin
         adoquery1.SQL.add('update 教材表 set  教材数量=:s0,最后修改时间=date(),说明=:s1 where 教材名=:s2 and 出版社=:s3 and 作者=:s4 and 教材单价=:s5');
         adoquery1.Parameters.Clear;
         adoquery1.Parameters.AddParameter;
         adoquery1.Parameters[0].name:='s0';
         adoquery1.Parameters[0].DataType:=ftInteger;
         adoquery1.Parameters[0].Direction:=pdinput;
         adoquery1.Parameters[0].Value:=StrToInt(edit8.text);
         adoquery1.Parameters.AddParameter;
         adoquery1.Parameters[1].name:='s1';
         adoquery1.Parameters[1].DataType:=ftstring;
         adoquery1.Parameters[1].Direction:=pdinput;
         adoquery1.Parameters[1].Value:=edit11.text;
         adoquery1.Parameters.AddParameter;
         adoquery1.Parameters[2].name:='s2';
         adoquery1.Parameters[2].DataType:=ftstring;
         adoquery1.Parameters[2].Direction:=pdinput;
         adoquery1.Parameters[2].Value:=edit1.text;
         adoquery1.Parameters.AddParameter;
         adoquery1.Parameters[3].name:='s3';
         adoquery1.Parameters[3].DataType:=ftstring;
         adoquery1.Parameters[3].Direction:=pdinput;
         adoquery1.Parameters[3].Value:=edit2.text;
         adoquery1.Parameters.AddParameter;
         adoquery1.Parameters[4].name:='s4';
         adoquery1.Parameters[4].DataType:=ftstring;
         adoquery1.Parameters[4].Direction:=pdinput;
         adoquery1.Parameters[4].Value:=edit3.Text;
         adoquery1.Parameters.AddParameter;
         adoquery1.Parameters[5].name:='s5';
         adoquery1.Parameters[5].DataType:=ftcurrency;
         adoquery1.Parameters[5].Direction:=pdinput;
         adoquery1.Parameters[5].Value:=StrToFloat(edit4.text);
         adoquery1.ExecSQL;
         adoquery1.Close;
    end;
    adotable1.Close;
    adotable1.TableName:='教材出入库历史表';
    adotable1.open;
    adotable1.AppendRecord([edit1.text,edit2.text,edit9.text,StrToDate(maskedit1.text),combobox1.text,edit5.text,StrToInt(edit6.text),StrToInt(edit7.text),StrToInt(Edit8.text),StrToFloat(edit4.text),edit10.text,Date(),edit11.text,username,date()]);
    adotable1.close;
    bookinrptform.QRLabel3.Caption:=edit1.text;
    bookinrptform.QRLabel5.Caption:=edit2.text;
    bookinrptform.QRLabel7.Caption:=combobox1.text;
    bookinrptform.QRLabel9.Caption:=edit10.text;
    bookinrptform.QRLabel11.Caption:=edit6.text;
    bookinrptform.QRLabel13.Caption:=edit7.text;
    bookinrptform.QRLabel15.Caption:=edit8.text;
    bookinrptform.QRLabel17.Caption:=edit4.text;
    bookinrptform.QRLabel19.Caption:=username;
    bookinrptform.QRLabel21.Caption:=Datetostr(date());
    bookinrptform.QuickRep1.Preview;                    
    initiate;
end;

procedure TbookinForm.Edit7Exit(Sender: TObject);
begin
    edit8.text:=IntTostr(StrToInt(edit6.text)+StrToInt(edit7.text));
end;

procedure TbookinForm.BitBtn2Click(Sender: TObject);
begin
    close;
end;

end.