updownset.pas

本图书管理系统一sql server为数据库开发平台

unit UpDownSet;
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ToolWin,ExtCtrls,buttons, ADODB, ImgList;

type
  TUpDownsetForm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Label3: TLabel;
    Label4: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
   procedure CreateParams(var Params: TCreateParams); override;
   procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure showfield;
    procedure Customshowfield(const field,str:string);
    procedure ComboBox1Select(Sender: TObject);
    procedure ComboBox2Select(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
 private
   procedure WMPAINT1(var msg:TMESSAGE);message WM_PAINT;
   procedure WMNCPAINT1(var msg:TWMNCPAINT);message WM_NCPAINT;
   procedure Active(var msg:Tmessage);message WM_ACTIVATE;
   procedure WMNCLBUTTONDBLCLK1(var msg:Tmessage);message WM_NCLBUTTONDBLCLK;
       { Private declarations }
  public
    titleBmp:Tbitmap;
    { Public declarations }
  end;

var
   bookid,bookname:string;

implementation

uses MainForm,DataModule;
{$R *.dfm}
function MyShowmessage(text:Pchar):boolean; external 'resource.dll';

procedure TUpDownsetForm.WMNCLBUTTONDBLCLK1(var msg:Tmessage);
begin
  //
end;
procedure TUpDownsetForm.Active(var msg:Tmessage);
begin
  self.WMPAINT1(msg);
end;

procedure TUpDownsetForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  params.Style:=params.Style-WS_SYSMENU;
end;

procedure TUpDownsetForm.WMPAINT1(var msg:TMESSAGE);
begin
  sendmessage(self.Handle,WM_NCPAINT,0,0);
  inherited;
end;

procedure TUpDownsetForm.WMNCPAINT1(var msg:TWMNCPAINT);
var
  dc1:HDC;
  y,frame:integer;
  oldbrush:HBrush;
  oldpen,pen:HPEN;
  canvas:Tcanvas;
begin
  canvas:=Tcanvas.Create;
  dc1:=getwindowdc(Handle);
  y:=GetSystemMetrics(SM_CYSIZE);
  frame:=GetSystemMetrics(SM_CYSIZEFRAME);
  oldbrush:=selectobject(dc1,getstockobject(null_brush));
  pen:=createpen(PS_SOLID,1,rgb(155,155,155));
  oldpen:=selectobject(dc1,pen);
  RoundRect(dc1,0,0,Width,Height,12,12);
  pen:=createpen(PS_SOLID,frame*2-5,rgb(255,255,255));
  selectobject(dc1,pen);
  RoundRect(dc1,2,2,Width-2,Height-2,8,10);
  StretchBlt(dc1,frame,frame,Width-2*frame,y+frame div 2,titlebmp.Canvas.Handle,0,0,titlebmp.Width,titlebmp.Height,srccopy);
  canvas.Handle:=dc1;
  canvas.Brush.Style:=bsclear;
  canvas.TextOut(frame*3,(y-frame)div 2,self.Caption);
  selectobject(dc1,oldbrush);
  selectobject(dc1,oldpen);
  deleteObject(pen);
  canvas.Handle:=0;
  canvas.Free;
  releasedc(Handle,dc1);
end;

procedure TUpDownsetForm.FormCreate(Sender: TObject);
begin
  titlebmp:=Tbitmap.Create;
  titlebmp.LoadFromResourceName(main.resource,'TItle');
end;

procedure TUpDownsetForm.FormShow(Sender: TObject);
begin
  combobox1.Clear;
  combobox2.Clear;
  speedbutton1.Enabled:=true;
  with data.PublicQuery do
  begin
    close;
    sql.Clear;
    sql.Add('select * from booksave order by id');
    open;
    while not EoF do
    begin
      combobox1.items.add(fieldbyname('id').AsString);
      combobox2.Items.Add(fieldbyname('bookname').AsString);
      next;
    end;
    close;
    sql.Clear;
    sql.Add('select * from SaveLimit');
    open;
  end;
  showfield;
end;

procedure TUpDownsetForm.Customshowfield(const field,str:string);
begin
  with data.PublicQuery do
  begin
    close;
    sql.Clear;
    sql.Add('select * from SaveLimit where '+field+'=:value');
    parameters.ParamByName('value').Value:=str;
    open;
    if recordcount <1 then
    begin
      close;
      sql.Clear;
      sql.Add('select * from booksave where '+field+'=:value');
      parameters.ParamByName('value').Value:=str;
      open;
      if recordcount <1 then
      begin
        myshowmessage('对不起！没有找到您所输入的纪录！');
        bookid:='';
        bookid:='';
        exit;
      end;
      combobox1.Text:=fieldbyname('id').AsString;
      combobox2.Text:=fieldbyname('bookname').AsString;
      edit1.Text:='0';
      edit2.Text:='0';
      bookid:=combobox1.Text;
      bookname:=combobox2.Text;
      end
      else
        showfield;
  end;
end;


procedure TUpDownsetForm.showfield;
begin
if data.PublicQuery.Active then
  begin    //active
    with data.PublicQuery do
      begin
       combobox1.Text:=fieldbyname('ID').AsString;
       combobox2.Text:=Fieldbyname('Bookname').AsString;
       Edit2.Text:=inttostr(fieldbyname('UpLimit').AsInteger);
       Edit1.Text:=inttostr(fieldbyname('DownLimit').AsInteger);
       bookid:=combobox1.Text;
       bookname:=combobox2.Text;
      end;
  end;    //avtive
end;

procedure TUpDownsetForm.ComboBox1Select(Sender: TObject);
begin
 customshowfield('id',combobox1.Text);
end;

procedure TUpDownsetForm.ComboBox2Select(Sender: TObject);
begin
  customshowfield('bookname',combobox2.Text);
end;

procedure TUpDownsetForm.SpeedButton3Click(Sender: TObject);
begin
  data.PublicQuery.Close;
  close;
end;

procedure TUpDownsetForm.SpeedButton1Click(Sender: TObject);
begin
  if bookid <>'' then
  begin
    with data.PublicQuery do
    begin
      close;
      sql.Clear;
      sql.Add('select * from SaveLimit where id=:value');
      parameters.ParamByName('value').Value:=bookid;
      open;
      if recordcount <1 then
      begin
       close;
       sql.Clear;
       sql.Add('insert into savelimit values(:id,:bookname,:uplimit,:downlimit)');
       parameters.ParamByName('id').Value:=bookid;
       parameters.ParamByName('bookname').Value:=bookname;
       parameters.ParamByName('uplimit').Value:='0';
       parameters.ParamByName('downlimit').Value:='0';
       execsql;
      end;
      combobox1.Enabled:=false;
      combobox2.Enabled:=false;
      edit1.Enabled:=true;
      edit2.Enabled:=true;
      speedbutton1.Enabled:=false;
    end;
  end //if ''
  else
    myshowmessage('请选择一个书籍后在修改');
end;

procedure TUpDownsetForm.SpeedButton2Click(Sender: TObject);
begin
  if  not speedbutton1.Enabled then
  begin
    with data.PublicQuery do
    begin
      close;
      sql.Clear;
      sql.Add('update SaveLimit set UpLimit=:UpLimit,DownLimit=:DownLimit where id=:id');
      parameters.ParamByName('UpLimit').Value:=strtoint(edit2.Text);
      parameters.ParamByName('DownLimit').Value:=strtoint(edit1.Text);
      parameters.ParamByName('id').Value:=bookid;
      execsql;
    end;
    edit1.Enabled:=false;
    edit2.Enabled:=false;
    combobox1.Enabled:=true;
    combobox2.Enabled:=true;
  end;
  formshow(self);
end;

end.