?? bxgl.pas
字號(hào):
unit bxgl;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Grids, DBGrids, Menus, DB, DBTables,
ExtCtrls;
type
Tbxgl_Form = class(TForm)
Panel1: TPanel;
cmdok: TButton;
cmdclose: TButton;
Query1: TQuery;
DataSource1: TDataSource;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
DBGrid1: TDBGrid;
Label1: TLabel;
begin_DTP: TDateTimePicker;
Label2: TLabel;
end_DTP: TDateTimePicker;
procedure FormCreate(Sender: TObject);
procedure cmdokClick(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure N3Click(Sender: TObject);
procedure cmdcloseClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
modi:boolean;
xcaption:string;
end;
var
bxgl_Form: Tbxgl_Form;
implementation
uses modibx, main;
{$R *.dfm}
procedure Tbxgl_Form.cmdokClick(Sender: TObject);
var
ksrq,jsrq,sqlstr:string;
begin
ksrq:=datetostr(begin_DTP.Date);
jsrq:=datetostr(end_DTP.Date);
sqlstr:='select * from bxb where (rq>='''+ksrq+''')and(rq<='''+jsrq+''')';
ShowMessage(sqlstr);
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 Tbxgl_Form.N1Click(Sender: TObject);
begin
modi:=false;
xcaption:='添加報(bào)修信息';
Application.CreateForm(Tmodibx_Form, modibx_Form);
modibx_form.ShowModal;
end;
procedure Tbxgl_Form.N2Click(Sender: TObject);
begin
modi:=true;
xcaption:='修改報(bào)修信息';
Application.CreateForm(Tmodibx_Form, modibx_Form);
modibx_form.ShowModal;
end;
procedure Tbxgl_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
mainform.N61.Enabled:=true;
end;
procedure Tbxgl_Form.N3Click(Sender: TObject);
var
id:string;
begin
id:=Query1.fieldbyname('id').AsString;
if MessageDlg('確認(rèn)要?jiǎng)h除選中的記錄碼?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
with tquery.Create(nil) do
begin
try
Close;
SessionName:=MainForm.Database1.SessionName;
DatabaseName:=MainForm.Database1.DatabaseName;
SQL.Clear;
SQL.Add('delete from bxb where id='''+id+'''');
ExecSQL;
finally
Free;
end;
end;
end;
end;
procedure Tbxgl_Form.cmdcloseClick(Sender: TObject);
begin
Close;
end;
procedure Tbxgl_Form.FormCreate(Sender: TObject);
begin
Query1.SessionName:=MainForm.Database1.SessionName;
Query1.DatabaseName:=MainForm.Database1.DatabaseName;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -