unit1.pas

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

function TForm1.CheckUser(AUserName,AUserPwd:string):integer;
begin
try
query1.Close;
query1.SQL.Clear;
Query1.SQL.Add('select * from yonghu where 用户名=:User');
Query1.ParamByName('User').AsString:=AUserName;
Query1.Open;
if Query1.RecordCount=0 then
begin
MessageDlg('用户名错误！',mtError,[mbok],0);
Result:=-1;
Exit;
end
else
begin
if Query1.FieldByName('密码').AsString<>AUserPwd then
begin
MessageDlg('用户名或密码错误！',mtError,[mbok],0);
Result:=-1;
Exit;
end
else
Result:=0;
end;
query1.Close;
except
Result:=-1;
MessageDlg('数据库连接出错！',mtError,[mbok],0);
end;
end;



procedure TForm1.N5Click(Sender: TObject);
begin
if t=-1 then
begin
if form2.ShowModal=mrok then
begin
Name:=form2.Edit1.Text;
Pwd:=form2.Edit2.Text;
t:=CheckUser(name,pwd);
end
else t:=-1;
end
else t:=-1;
if t<>-1 then
Init(t);
end;

procedure TForm1.Init(p:integer);
begin
case P of
    -1: begin
          button1.Enabled:=false;
          button2.Enabled:=false;
          button3.Enabled:=false;
          button4.Enabled:=false;
          button5.Enabled:=false;
          button6.Enabled:=false;
          button7.Enabled:=false;
          button8.Enabled:=false;
          button9.Enabled:=false;
          button10.Enabled:=false;
          button11.Enabled:=false;
          button12.Enabled:=false;
          button13.Enabled:=false;
          button14.Enabled:=false;
          button15.Enabled:=false;
          button16.Enabled:=false;
          button17.Enabled:=false;
          button18.Enabled:=false;
          button19.Enabled:=false;
          button20.Enabled:=false;
          button21.Enabled:=false;
          button22.Enabled:=false;
          button23.Enabled:=false;
          button24.Enabled:=false;
          button25.Enabled:=false;
          button26.Enabled:=false;
          button27.Enabled:=false;
          button28.Enabled:=false;


          StatusBar1.Panels[0].Text:='没有用户登录';
          StatusBar1.Panels[1].Text:='';
          Name:='';
          Pwd:='';
        end;
    0: begin
         button1.Enabled:=true;
         button2.Enabled:=true;
         button3.Enabled:=true;
         button4.Enabled:=true;
         button13.Enabled:=true;
         button17.Enabled:=true;
         button22.Enabled:=true;
         button23.Enabled:=true;
         button28.Enabled:=true;
         pagecontrol1.Show;

         n5.Enabled:=false;
         n6.Enabled:=false;
         n9.Enabled:=false;
         StatusBar1.Panels[0].Text:='用户名：'+Name;
         StatusBar1.Panels[1].Text:='用户描述：用户';
        end;
    1: begin
         button1.Enabled:=true;
         button2.Enabled:=true;
         button3.Enabled:=true;
         button4.Enabled:=true;
         button5.Enabled:=true;
         button6.Enabled:=true;
         button7.Enabled:=true;
         button8.Enabled:=true;
         button9.Enabled:=true;
         button10.Enabled:=true;
         button11.Enabled:=true;
         button12.Enabled:=true;
         button13.Enabled:=true;
         button14.Enabled:=true;
         button15.Enabled:=true;
         button16.Enabled:=true;
         button17.Enabled:=true;
         button18.Enabled:=true;
         button19.Enabled:=true;
         button20.Enabled:=true;
         button21.Enabled:=true;
         button22.Enabled:=true;
         button23.Enabled:=true;
         pagecontrol1.Show;
         button24.Enabled:=true;
         button25.Enabled:=true;
         button26.Enabled:=true;
         button27.Enabled:=true;
         button28.Enabled:=true;

         n5.Enabled:=false;
         n6.Enabled:=false;
         n9.Enabled:=false;
         StatusBar1.Panels[0].Text:='用户名：'+Name;
         StatusBar1.Panels[1].Text:='用户描述：管理员';
       end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
t:=-1;
Init(t);
edit11.Enabled:=false;
edit12.Enabled:=false;
edit13.Enabled:=false;
edit14.Enabled:=false;
edit15.Enabled:=false;
edit16.Enabled:=false;
pagecontrol1.Hide;
end;



procedure TForm1.N6Click(Sender: TObject);
begin
if form3.ShowModal=mrok then
try
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('insert into yonghu values(:user,:pwd)');
query1.ParamByName('user').AsString:=form3.Edit1.Text;
query1.ParamByName('pwd').AsString:=form3.Edit2.Text;
query1.ExecSQL;
showmessage('申请成功！');
except
showmessage('用户名已存在或提交错误，申请失败！');
end;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
if t=-1 then
begin
if form2.ShowModal=mrok then
begin
Name:=form2.Edit1.Text;
Pwd:=form2.Edit2.Text;
t:=CheckGUser(name,pwd);
end
else t:=-1;
end
else t:=-1;
if t<>-1 then
Init(t);
end;

function TForm1.CheckGUser(AUserName,AUserPwd:string):integer;
begin
try
query1.Close;
query1.SQL.Clear;
Query1.SQL.Add('select * from gen where Gname=:User');
Query1.ParamByName('User').AsString:=AUserName;
Query1.Open;
if Query1.RecordCount=0 then
begin
MessageDlg('用户名错误！',mtError,[mbok],0);
Result:=-1;
Exit;
end
else
begin
if Query1.FieldByName('Gpwd').AsString<>AUserPwd then
begin
MessageDlg('用户名或密码错误！',mtError,[mbok],0);
Result:=-1;
Exit;
end
else
Result:=1;
end;
query1.Close;
except
Result:=-1;
MessageDlg('数据库连接出错！',mtError,[mbok],0);
end;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
pagecontrol1.Top:=(form1.ClientHeight-pagecontrol1.Height) div 2;
pagecontrol1.Left:=(form1.ClientWidth-pagecontrol1.Width) div 2;
end;

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

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
begin
edit11.Enabled:=true;
edit11.SetFocus;
end
else
begin
edit11.Enabled:=false;
edit11.Clear;
end;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if checkbox2.Checked then
begin
edit12.Enabled:=true;
edit12.SetFocus;
end
else
begin
edit12.Enabled:=false;
edit12.Clear;
end;
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
datasource1.DataSet:=query1;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from buybooks where code='''+edit11.Text+''' or name='''+edit12.text+'''');
query1.Open;
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
begin
if checkbox3.Checked then
begin
edit13.Enabled:=true;
edit13.SetFocus;
end
else
begin
edit13.Enabled:=false;
edit13.Clear;
end;
end;

procedure TForm1.CheckBox4Click(Sender: TObject);
begin
if checkbox4.Checked then
begin
edit14.Enabled:=true;
edit14.SetFocus;
end
else
begin
edit14.Enabled:=false;
edit14.Clear;
end;
end;

procedure TForm1.Button18Click(Sender: TObject);
begin
datasource2.DataSet:=query5;
query5.Close;
query5.SQL.Clear;
query5.SQL.Add('select * from store where code='''+edit13.Text+''' or name='''+edit14.text+'''');
query5.Open;
end;

procedure TForm1.CheckBox5Click(Sender: TObject);
begin
if checkbox5.Checked then
begin
edit15.Enabled:=true;
edit15.SetFocus;
end
else
begin
edit15.Enabled:=false;
edit15.Clear;
end;
end;

procedure TForm1.CheckBox6Click(Sender: TObject);
begin
if checkbox6.Checked then
begin
edit16.Enabled:=true;
edit16.SetFocus;
end
else
begin
edit16.Enabled:=false;
edit16.Clear;
end;
end;

procedure TForm1.Button19Click(Sender: TObject);
begin
datasource3.DataSet:=query6;
query6.Close;
query6.SQL.Clear;
query6.SQL.Add('select * from less where code='''+edit15.Text+''' or name='''+edit16.text+'''');
query6.Open;
end;

procedure TForm1.Button21Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('update less set num=0-(select num from store where store.code=less.code and store.num<0)');
query1.ExecSQL;
end;

procedure TForm1.Button20Click(Sender: TObject);
begin
if MessageBox(Handle,'是否已审核？','提示',MB_ICONQUESTION
                or MB_YESNO)=idYes then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('update store set num=num-(select num from buybooks where buybooks.code=store.code) where code in (select code from buybooks where buybooks.code<>'''')');
query1.ExecSQL;
showmessage('库存表修改成功！');
end;
end;

procedure TForm1.Button22Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from buybooks where code='''+edit1.Text+'''');
query1.Open;
edit2.Text:=Query1.FieldByName('name').AsString;
edit3.Text:=floattostr(Query1.FieldByName('cost').AsFloat);
edit4.Text:=inttostr(Query1.FieldByName('num').AsInteger);
end;

procedure TForm1.Button23Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from buybooks where name='''+edit2.Text+'''');
query1.Open;
edit1.Text:=Query1.FieldByName('code').AsString;
edit3.Text:=floattostr(Query1.FieldByName('cost').AsFloat);
edit4.Text:=inttostr(Query1.FieldByName('num').AsInteger);
end;

procedure TForm1.Button24Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from store where code='''+edit5.Text+'''');
query1.Open;
edit6.Text:=Query1.FieldByName('name').AsString;
edit7.Text:=inttostr(Query1.FieldByName('num').AsInteger);
end;

procedure TForm1.Button25Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from store where name='''+edit6.Text+'''');
query1.Open;
edit5.Text:=Query1.FieldByName('code').AsString;
edit7.Text:=inttostr(Query1.FieldByName('num').AsInteger);
end;

procedure TForm1.Button26Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from less where code='''+edit8.Text+'''');
query1.Open;
edit9.Text:=Query1.FieldByName('name').AsString;
edit10.Text:=inttostr(Query1.FieldByName('num').AsInteger);
end;

procedure TForm1.Button27Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from less where name='''+edit9.Text+'''');
query1.Open;
edit8.Text:=Query1.FieldByName('code').AsString;
edit10.Text:=inttostr(Query1.FieldByName('num').AsInteger);
end;

procedure TForm1.Button28Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('update buybooks set num=0 where code<>''''');
query1.ExecSQL;
end;

end.