unit1.pas

课程设计写的小系统 由于是应付老师用的 所以真的蛮小 不过初学的还是可以效仿效仿

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Grids, DBGrids, DB, StdCtrls, Menus, DBTables,
  ExtCtrls, ExtDlgs, jpeg;

type
  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Query1: TQuery;
    MainMenu1: TMainMenu;
    ColorDialog1: TColorDialog;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button13: TButton;
    Query2: TQuery;
    Query3: TQuery;
    Query4: TQuery;
    N9: TMenuItem;
    Button16: TButton;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    Button14: TButton;
    Button15: TButton;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    Button17: TButton;
    Edit11: TEdit;
    Edit12: TEdit;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    Edit13: TEdit;
    Edit14: TEdit;
    Button18: TButton;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    Edit15: TEdit;
    Edit16: TEdit;
    Button19: TButton;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    Query5: TQuery;
    Query6: TQuery;
    Button20: TButton;
    Button21: TButton;
    Button22: TButton;
    Button23: TButton;
    Button24: TButton;
    Button25: TButton;
    Button26: TButton;
    Button27: TButton;
    Button28: TButton;
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure Button26Click(Sender: TObject);
    procedure Button27Click(Sender: TObject);
    procedure Button28Click(Sender: TObject);
    
   



  private
    { Private declarations }
  public
    { Public declarations }
    Name,Pwd:string;
    t:integer;
    function CheckGUser(AUserName,AUserPwd:string):integer;
    function CheckUser(AUserName , AUserPwd : string):integer;
    procedure Init(P:integer);
  end;

var
  Form1: TForm1;

implementation
Uses
unit2,unit3;

{$R *.dfm}

procedure TForm1.Button13Click(Sender: TObject);
begin
query2.Active:=true;
datasource1.DataSet:=query2;
query2.Active:=not query2.Active;
query2.Active:=not query2.Active;
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
query3.Active:=true;
datasource2.DataSet:=query3;
query3.Active:=not query3.Active;
query3.Active:=not query3.Active;
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
query4.Active:=true;
datasource3.DataSet:=query4;
query4.Active:=not query4.Active;
query4.Active:=not query4.Active;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
a:real;
begin
if edit1.Text='' then
showmessage('书号不正确，请重新输入！')
else
begin
try
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('insert into BuyBooks values(:code,:name,:cost,:num)');
query1.ParamByName('code').AsString:=edit1.Text;
query1.ParamByName('name').AsString:=edit2.Text;
query1.ParamByName('cost').AsFloat:=strtofloat(edit3.Text);
query1.ParamByName('num').AsInteger:=strtoint(edit4.Text);
query1.ExecSQL;
a:=strtofloat(edit3.Text)*strtofloat(edit4.Text);
label6.Caption:=floattostr(a);
showmessage('添加成功！');
except
showmessage('书号已存在或信息不完整！');
end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if edit1.Text<>'' then
if edit2.Text='' then
if edit3.Text='' then
if edit4.Text='' then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('delete from BuyBooks where code=:code');
query1.ParamByName('code').AsString:=edit1.Text;
query1.ExecSQL;
showmessage('删除成功！');
end
else
showmessage('提交错误，请只输入书号！')
else
showmessage('提交错误，请只输入书号！')
else
showmessage('提交错误，请只输入书号！')
else
showmessage('提交错误，请输入书号！');
end;

procedure TForm1.Button3Click(Sender: TObject);
var
a:real;
begin
try
if edit1.Text='' then
showmessage('书号不正确，请重新输入！')
else
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('update BuyBooks set name=:name,cost=:cost,num=:num where code=:code');
query1.ParamByName('code').AsString:=edit1.Text;
query1.ParamByName('name').AsString:=edit2.Text;
query1.ParamByName('cost').AsFloat:=strtofloat(edit3.Text);
query1.ParamByName('num').AsInteger:=strtoint(edit4.Text);
query1.ExecSQL;
a:=strtofloat(edit3.Text)*strtofloat(edit4.Text);
label6.Caption:=floattostr(a);
showmessage('修改成功！');
end;
except
showmessage('请输入完整信息！');
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
label6.Caption:='';
edit1.SetFocus;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
if edit5.Text='' then
showmessage('书号不正确，请重新输入！')
else
begin
try
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('insert into Store values(:code,:name,:num)');
query1.ParamByName('code').AsString:=edit5.Text;
query1.ParamByName('name').AsString:=edit6.Text;
query1.ParamByName('num').AsInteger:=strtoint(edit7.Text);
query1.ExecSQL;
showmessage('添加成功！');
except
showmessage('书号已存在或信息不完整！');
end;
end;
end;

procedure TForm1.Button6Click(Sender: TObject);
var
a:integer;
begin
try
if edit5.Text='' then
showmessage('书号不正确，请重新输入！')
else
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from store where code=:code');
query1.ParamByName('code').AsString:=edit5.Text;
query1.Open;
a:=query1.FieldByName('num').AsInteger+strtoint(edit7.Text);

query1.Close;
query1.SQL.Clear;
query1.SQL.Add('update Store set name=:name,num=:num where code=:code');
query1.ParamByName('code').AsString:=edit5.Text;
query1.ParamByName('name').AsString:=edit6.Text;
query1.ParamByName('num').AsInteger:=a;
query1.ExecSQL;
showmessage('入库成功！');
end;
except
showmessage('请输入完整信息！');
end;
end;

procedure TForm1.Button7Click(Sender: TObject);
var
a:integer;
begin
try
if edit5.Text='' then
showmessage('书号不正确，请重新输入！')
else
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from store where code=:code');
query1.ParamByName('code').AsString:=edit5.Text;
query1.Open;
a:=query1.FieldByName('num').AsInteger-strtoint(edit7.Text);

query1.Close;
query1.SQL.Clear;
query1.SQL.Add('update Store set name=:name,num=:num where code=:code');
query1.ParamByName('code').AsString:=edit5.Text;
query1.ParamByName('name').AsString:=edit6.Text;
query1.ParamByName('num').AsInteger:=a;
query1.ExecSQL;
showmessage('出库成功！');
if a<0 then
showmessage('库存已不足！');
end;
except
showmessage('请输入完整信息！');
end;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit5.SetFocus;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
if edit8.Text='' then
showmessage('书号不正确，请重新输入！')
else
begin
try
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('insert into Less values(:code,:name,:num)');
query1.ParamByName('code').AsString:=edit8.Text;
query1.ParamByName('name').AsString:=edit9.Text;
query1.ParamByName('num').AsInteger:=strtoint(edit10.Text);
query1.ExecSQL;
showmessage('添加成功！');
except
showmessage('书号已存在或信息不完整！');
end;
end;
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
if edit8.Text<>'' then
if edit9.Text='' then
if edit10.Text='' then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('delete from Less where code=:code');
query1.ParamByName('code').AsString:=edit8.Text;
query1.ExecSQL;
showmessage('删除成功！');
end
else
showmessage('提交错误，请只输入书号！')
else
showmessage('提交错误，请只输入书号！')
else
showmessage('提交错误，请输入书号！');
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
try
if edit8.Text='' then
showmessage('书号不正确，请重新输入！')
else
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('update Less set name=:name,num=:num where code=:code');
query1.ParamByName('code').AsString:=edit8.Text;
query1.ParamByName('name').AsString:=edit9.Text;
query1.ParamByName('num').AsInteger:=strtoint(edit10.Text);
query1.ExecSQL;
showmessage('修改成功！');
end;
except
showmessage('请输入完整信息！');
end;
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
edit8.Text:='';
edit9.Text:='';
edit10.Text:='';
edit8.SetFocus;

end;

procedure TForm1.N3Click(Sender: TObject);
begin
colordialog1.Execute;
form1.Color:=colordialog1.Color;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
form1.Color:=clBtnFace;
end;

procedure TForm1.N8Click(Sender: TObject);
begin
if MessageBox(Handle,'是否要退出？','提示',MB_ICONQUESTION
                or MB_YESNO)=idYes then close;
end;