【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供bjcltj.pas参考,解决您在bjcltj.pas学习中工作中的难题,参考学习。
unit bjcltj;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, Buttons, Grids, DBGrids, ExtCtrls;
type
TForm13 = class(TForm)
Panel2: TPanel;
Label3: TLabel;
Panel1: TPanel;
DBGrid1: TDBGrid;
Panel3: TPanel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
DataSource1: TDataSource;
OpenDialog1: TOpenDialog;
Panel4: TPanel;
DBGrid2: TDBGrid;
Panel5: TPanel;
Label2: TLabel;
Edit3: TEdit;
Edit2: TEdit;
Label4: TLabel;
SpeedButton1: TSpeedButton;
Edit1: TEdit;
Label1: TLabel;
DataSource2: TDataSource;
procedure BitBtn2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure SpeedButton1Click(Sender: TObject);
procedure DBGrid2DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form13: TForm13;
implementation
uses DataModal;
{$R *.dfm}
procedure TForm13.BitBtn2Click(Sender: TObject);
begin
Edit1.Clear;
Edit1.SetFocus;
Edit2.Clear;
Edit3.Clear;
with Data.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from 报警处理表');
Open;
end;
if Data.ADOQuery1.RecordCount>0 then
DataSource1.DataSet := Data.ADOQuery1
else
DataSource1.DataSet := Nil;
end;
procedure TForm13.FormShow(Sender: TObject);
begin
with Data.ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('select Distinct 项目名称 from 报警项目表 ');
Open;
end;
if Data.ADOQuery2.RecordCount>0 then
DataSource2.DataSet := Data.ADOQuery2;
BitBtn2.OnClick(Sender);
end;
procedure TForm13.BitBtn1Click(Sender: TObject);
begin
if (Trim(Edit3.Text)<>'')and(Trim(Edit1.Text)<>'') then
begin
Try
with Data.ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('Insert 报警处理表 values(:a,:b,:c)');
Parameters.ParamByName('a').Value:= Trim(Edit1.Text);
Parameters.ParamByName('b').Value := Trim(Edit3.Text);
Parameters.ParamByName('c').Value := Trim(Edit2.Text);
ExecSQL;
end;
Application.MessageBox('操作成功.','提示',64);
OnShow(Sender);
Except
Application.MessageBox('
系统出错.','提示',64);
End;
end;
end;
procedure TForm13.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = vk_Return then
Edit2.SetFocus;
end;
procedure TForm13.SpeedButton1Click(Sender: TObject);
begin
OpenDialog1.Execute;
Edit2.Text := OPenDialog1.FileName;
end;
procedure TForm13.DBGrid2DblClick(Sender: TObject);
var
Temp: String;
begin
if Data.ADOQuery2.Active = True then
if Data.ADOQuery2.RecordCount>0 then
begin
Temp := Data.ADOQuery2.Fields[0].Value;
if Pos(Trim(Temp),Trim(Edit3.Text))=0 then
Edit3.Text := Edit3.Text+Temp;
end;
end;
end.