zdgl.pas

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

unit zdgl;

interface

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

type
  Tzdgl_Form = class(TForm)
    GroupBox1: TGroupBox;
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    cmdok: TButton;
    cmdclose: TButton;
    Label1: TLabel;
    Label2: TLabel;
    begin_DTP: TDateTimePicker;
    end_DTP: TDateTimePicker;
    all_RB: TRadioButton;
    yes_RB: TRadioButton;
    no_RB: TRadioButton;
    cmdsh: TButton;
    cmddy: TButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure cmdokClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure cmdshClick(Sender: TObject);
    procedure cmdcloseClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    modi:boolean;
    xcaption:string;
  end;

var
  zdgl_Form: Tzdgl_Form;

implementation

uses main, modidgts;

{$R *.dfm}

procedure Tzdgl_Form.cmdokClick(Sender: TObject);
var
    sqlstr,ksrq,jsrq:string;
begin
    ksrq:=datetostr(begin_DTP.DateTime);
    jsrq:=datetostr(end_DTP.DateTime);
    if all_RB.Checked then
        sqlstr:='select * from t_dgb where(dgrq>='''+ksrq+''')and(dgrq<='''+jsrq+''')';
    if no_RB.Checked then
        sqlstr:='select * from t_dgb where(dgrq>='''+ksrq+''')and(dgrq<='''+jsrq+''')and(zt=0)';
    if yes_RB.Checked then
        sqlstr:='select * from t_dgb where(dgrq>='''+ksrq+''')and(dgrq<='''+jsrq+''')and(zt=1)';
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add(sqlstr);
    Query1.Open;
    if Query1.RecordCount > 0 then
    begin
        N1.Enabled:=true;
        N2.Enabled:=true;
        N3.Enabled:=true;
    end
    else
    begin
        N1.Enabled:=true;
        N2.Enabled:=false;
        N3.Enabled:=false;
    end;
end;

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

procedure Tzdgl_Form.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
    if gdSelected in State then Exit;
    if  Query1.FieldByName('zt').AsInteger= 0 then
        (Sender as TDBGrid).Canvas.Brush.Color:=clwindow
    else
        (Sender as TDBGrid).Canvas.Brush.Color :=clblue;
end;

procedure Tzdgl_Form.N1Click(Sender: TObject);
begin
    modi:=false;
    xcaption:='添加定购图书';
    Application.CreateForm(Tmodidgts_Form, modidgts_Form);
    modidgts_form.ShowModal;
end;

procedure Tzdgl_Form.N2Click(Sender: TObject);
begin
    modi:=true;
    xcaption:='修改定购图书';
    Application.CreateForm(Tmodidgts_Form, modidgts_Form);
    modidgts_form.ShowModal;
end;

procedure Tzdgl_Form.N3Click(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_dgb where id='''+id+'''');
            ExecSQL;
            finally
            Free;
            end;
        end;
    end;
end;

procedure Tzdgl_Form.cmdshClick(Sender: TObject);
var
    id,sm,zz,sqlstr:string;
begin
    with tquery.Create(nil) do
    begin
        try
        Query1.First;
        while not Query1.Eof do
        begin
            sm:=Query1.fieldbyname('sm').AsString;
            zz:=Query1.fieldbyname('zz').AsString;
            sqlstr:='select * from t_csb where(sm='''+sm+''')and(zz='''+zz+''')';
            Close;
            SQL.Clear;
            SQL.Add(sqlstr);
            Open;
            if recordcount > 0 then
            begin
                id:=Query1.fieldbyname('id').AsString;
                sqlstr:='update t_dgb set zt=1 where(id='''+id+''')';
                Close;
                SQL.Clear;
                SQL.Add(sqlstr);
                ExecSQL;
            end;
            Query1.Next;
        end;
        finally
        Free;
        end;
    end;
    cmdok.Click;
end;

procedure Tzdgl_Form.cmdcloseClick(Sender: TObject);
begin
    Close;
end;

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

end.