lgysda.~pas

不完备信息的数据发现

unit lgysda;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Grids, DBGrids, Db, DBTables, Buttons, ComCtrls,
  DBClient, Menus, ADODB;

type
  Tlgysdaf = class(TForm)
    DS_gysda: TDataSource;
    StatusBar_foot: TStatusBar;
    Panel_top: TPanel;
    SB_insert: TSpeedButton;
    SB_delete: TSpeedButton;
    SB_exit: TSpeedButton;
    SB_edit: TSpeedButton;
    DBGrid_gysda: TDBGrid;
    Q_gysda: TADOQuery;
    procedure SB_insertClick(Sender: TObject);
    procedure SB_deleteClick(Sender: TObject);
    procedure SB_editClick(Sender: TObject);
    procedure SB_exitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  lgysdaf: Tlgysdaf;
implementation
uses  dm,main_page,ldgysda;
{$R *.DFM}


procedure Tlgysdaf.FormShow(Sender: TObject);
begin
  top:=0;
  left:=0;
  Q_gysda.Close;
  Q_gysda.SQL.Text:='select * FROM '+DatabaseName+'CG_gysda order by gysbh';
  Q_gysda.Open;

  //设置颜色
  Panel_top.Color:=color_top;
  StatusBar_foot.Color:=color_StatusBar;
  DBGrid_gysda.FixedColor:=color_dbgrid;
end;

procedure Tlgysdaf.SB_insertClick(Sender: TObject);
begin
  ISinsert:=true;
  ldgysdaf:=Tldgysdaf.Create(nil);
  with ldgysdaf do
   try
    ShowModal;
   finally
    free;
   end;
end;

procedure Tlgysdaf.SB_deleteClick(Sender: TObject);
  //删除操作
begin
  if MessageBox(Handle,'确实要删除吗？','提示信息', MB_ICONWARNING or MB_OKCANCEL )=IDOK then
   begin
    if not Q_gysda.IsEmpty then
     begin
      Q_gysda.Delete;
      Q_gysda.ExecSQL;
      MessageBox(Handle,'没有记录可删除！','提示信息', MB_ICONINFORMATION or MB_OK);
   end;
   end;
end;

procedure Tlgysdaf.SB_editClick(Sender: TObject);
begin
 if not Q_gysda.IsEmpty then
   begin
    ISinsert:=false;
    ldgysdaf:=Tldgysdaf.Create(nil);
    with ldgysdaf do
     try
      ShowModal;
     finally
      free;
     end;
   end else
    begin
      MessageBox(Handle,'没有记录可修改！','提示信息', MB_ICONINFORMATION or MB_OK);
      exit;
    end;
end;

procedure Tlgysdaf.SB_exitClick(Sender: TObject);
begin
  close;
end;

procedure Tlgysdaf.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Q_gysda.Close;
end;

end.