jygl.pas

我的本科毕业代码,基本功能都出来了.不是特别好,请指教

unit jygl;

interface

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

type
  Tjygl_Form = class(TForm)
    Query1: TQuery;
    DataSource1: TDataSource;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    GroupBox1: TGroupBox;
    zh_LEdit: TLabeledEdit;
    cmdok: TButton;
    cmdclose: TButton;
    GroupBox2: TGroupBox;
    xm_LEdit: TLabeledEdit;
    bm_LEdit: TLabeledEdit;
    lxmc_LEdit: TLabeledEdit;
    jsl_LEdit: TLabeledEdit;
    jsq_LEdit: TLabeledEdit;
    DBGrid1: TDBGrid;
    yjsl_LEdit: TLabeledEdit;
    procedure cmdokClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    zh1:string;
  end;

var
  jygl_Form: Tjygl_Form;

implementation

uses main, srtm;

{$R *.dfm}

procedure Tjygl_Form.cmdokClick(Sender: TObject);
var
    sqlstr,zh:STRING;
begin
    zh:=trim(zh_ledit.Text);
    sqlstr:='select a.zh,a.xm,a.bm,b.lxmc,b.jsl,b.jsq from t_dzb a,td_lxdm b where(a.zh='''+zh+''')and(a.lxdm=b.lxdm)';
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add(sqlstr);
    Query1.Open;
    if Query1.RecordCount>0 then
    begin
        zh1:=zh;
        xm_LEdit.Text:=Query1.FieldByName('xm').AsString;
        bm_LEdit.Text:=Query1.FieldByName('bm').AsString;
        lxmc_LEdit.Text:=Query1.FieldByName('lxmc').AsString;
        jsq_LEdit.Text:=Query1.FieldByName('jsq').AsString;
        jsl_LEdit.Text:=Query1.FieldByName('jsl').AsString;
    end
    else
    begin
        ShowMessage('输入的证号有误，请重新输入！');
        exit;
    end;
    sqlstr:='select * from t_jyb where(zh='''+zh+''')and(hf=0)';
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add(sqlstr);
    Query1.Open;
    yjsl_LEdit.Text:=inttostr(Query1.RecordCount);
    if Query1.RecordCount>0 then
    begin
        N1.Enabled:=true;
        N2.Enabled:=true;
        N3.Enabled:=true;
        N4.Enabled:=true;
    end
    else
    begin
        N1.Enabled:=false;
        N2.Enabled:=true;
        N3.Enabled:=false;
        N4.Enabled:=false;
    end;
end;

procedure Tjygl_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action:=cafree;
    mainform.N32.Enabled:=true;
end;

procedure Tjygl_Form.FormCreate(Sender: TObject);
begin
    Query1.SessionName:=mainform.Database1.SessionName;
    Query1.DatabaseName:=mainform.Database1.DatabaseName;
end;

procedure Tjygl_Form.N2Click(Sender: TObject);
begin
    Application.CreateForm(Tsrtm_Form, srtm_Form);
    srtm_form.ShowModal;
end;

procedure Tjygl_Form.N3Click(Sender: TObject);
var
    id,sqlstr,jsrq:string;
begin
    id:=Query1.fieldbyname('id').AsString;
    jsrq:=mainform.getnettime;
    sqlstr:='update t_jyb set jsrq='''+jsrq+''' where(id='''+id+''')';
    if MessageDlg('确认要该图书续借吗?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
        with tquery.Create(nil) do
        begin
            try
            Close;
            SQL.Clear;
            SQL.Add(sqlstr);
            ExecSQL;
            finally
            Free;
            end;
        end;
        cmdok.Click;
    end;
end;

procedure Tjygl_Form.N4Click(Sender: TObject);
var
    id:string;
begin
    id:=Query1.fieldbyname('id').AsString;
    if MessageDlg('确认要删除选中的记录吗?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
        with tquery.Create(nil) do
        begin
            try
            Close;
            SQL.Clear;
            SQL.Add('delete from t_csb where id='''+id+'''');
            ExecSQL;
            finally
            Free;
            end;
        end;
        cmdok.Click;
    end;
end;

procedure Tjygl_Form.N1Click(Sender: TObject);
var
    tm,id,sqlstr,hsrq:string;
begin
    if MessageDlg('确认要读者还图书吗?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
        with tquery.Create(nil) do
        begin
            try
            id:=Query1.fieldbyname('id').AsString;
            tm:=Query1.fieldbyname('tm').AsString;
            hsrq:=mainform.getnettime;
            sqlstr:='update t_jyb set hsrq='''+hsrq+''',hf=1 where(id='''+id+''')';
            Close;
            SQL.Clear;
            SQL.Add(sqlstr);
            ExecSQL;
            sqlstr:='update t_csb set kjs=kjs+1 where(tm='''+tm+''')';
            Close;
            SQL.Clear;
            SQL.Add(sqlstr);
            ExecSQL;
            finally
            Free;
            end;
        end;
        cmdok.Click;
    end;
end;

end.