【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了,bjclxg.pas,希望对大家有所帮助!
unit bjclxg;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls, DB;
type
TForm14 = class(TForm)
Panel2: TPanel;
Label3: TLabel;
Panel1: TPanel;
Label1: TLabel;
SpeedButton1: TSpeedButton;
ComboBox1: TComboBox;
DBGrid1: TDBGrid;
Panel4: TPanel;
Label2: TLabel;
Label5: TLabel;
Edit2: TEdit;
Edit1: TEdit;
DataSource1: TDataSource;
Label4: TLabel;
Edit3: TEdit;
SpeedButton2: TSpeedButton;
BitBtn2: TBitBtn;
DBGrid2: TDBGrid;
OpenDialog1: TOpenDialog;
DataSource2: TDataSource;
BitBtn1: TBitBtn;
procedure FormShow(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure BitBtn2Click(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure SpeedButton2Click(Sender: TObject);
procedure DBGrid2DblClick(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form14: TForm14;
implementation
uses DataModal;
{$R *.dfm}
procedure TForm14.FormShow(Sender: TObject);
begin
ComboBox1.Clear;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
DataSource1.DataSet := Nil;
with Data.ADOQuery3 do
begin
Close;
SQL.Clear;
SQL.Add('select distinct 项目名称 from 报警项目表');
Open;
end;
if Data.ADOQuery3.RecordCount>0 then
DataSource2.DataSet := Data.ADOQuery3;
with Data.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select Distinct 报警处理 from 报警处理表');
Open;
end;
if Data.ADOQuery1.RecordCount>0 then
begin
while Not Data.ADOQuery1.Eof do
begin
ComboBox1.Items.Add(Data.ADOQuery1.Fields[0].Value);
Data.ADOQuery1.Next;
end;
end;
ComboBox1.ItemIndex := 0;
end;
procedure TForm14.SpeedButton1Click(Sender: TObject);
begin
if Trim(ComboBox1.Text)='' then
begin
Application.MessageBox('请设置
查询条件.','提示',64);
Exit;
end;
with Data.ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('select * from 报警处理表 where 报警处理 = :a');
Parameters.ParamByName('a').Value := Trim(ComboBox1.Text);
Open;
end;
if Data.ADOQuery2.RecordCount>0 then
begin
DataSource1.DataSet := Data.ADOQuery2;
Edit1.Text := Data.ADOQuery2.FieldByName('报警处理').Value;
//Edit2.Text := Data.ADOQuery2.FieldByName('项目范围').Value;
Edit3.Text := Data.ADOQuery2.FieldByName('音乐').Value;
BitBtn2.Enabled := True;
Edit1.SetFocus;
end
else
begin
DataSource1.DataSet := Nil;
Edit1.Clear;
Edit2.Clear;
BitBtn2.Enabled := False;
end;
end;
procedure TForm14.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = vk_Return then
SpeedButton1.OnClick(Sender);
end;
procedure TForm14.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = vk_Return then
Edit2.SetFocus;
end;
procedure TForm14.Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = vk_Return)and(BitBtn2.Enabled = True)then
BitBtn2.SetFocus;
end;
procedure TForm14.BitBtn2Click(Sender: TObject);
begin
if Application.MessageBox('确实要修改当前数据吗?','提示',mb_YesNO)=ID_Yes then
begin
if (Trim(Edit1.Text)='')or(Trim(Edit2.Text)='')then
begin
Application.MessageBox('数据项不能为空.','提示',64);
Exit;
end;
Try
Data.ADOQuery2.Edit;
Data.ADOQuery2.FieldByName('报警处理').Value := Trim(Edit1.Text);
Data.ADOQuery2.FieldByName('项目范围').Value := Trim(Edit2.Text);
Data.ADOQuery2.FieldByName('音乐').Value := Trim(Edit3.Text);
Data.ADOQuery2.Post;
Application.MessageBox('修改成功.','提示',64);
OnShow(Sender);
Except
Application.MessageBox('
系统出错.','提示',64);
end;
end;
end;
procedure TForm14.DBGrid1CellClick(Column: TColumn);
begin
if Data.ADOQuery2.Active then
if Data.ADOQuery2.RecordCount>0 then
begin
Edit1.Text:= Data.ADOQuery2.FieldByName('报警处理').Value;
if Data.ADOQuery2.FieldByName('音乐').Value<>Null then
Edit3.Text:= Data.ADOQuery2.FieldByName('音乐').Value;
end;
end;
procedure TForm14.SpeedButton2Click(Sender: TObject);
begin
Edit3.Text := OpenDialog1.FileName;
end;
procedure TForm14.DBGrid2DblClick(Sender: TObje