【delphi开源代码栏目提醒】:以下是网学会员为您推荐的delphi开源代码-MC_WZXXCX.pas,希望本篇文章对您学习有所帮助。
unit MC_WZXXCX;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids, Db, DBTables, StdCtrls, Buttons;
type
TWZXXCX = class(TForm)
Query1: TQuery;
DataSource1: TDataSource;
Query1BDEDesigner: TStringField;
Query1BDEDesigner2: TStringField;
Query1BDEDesigner3: TStringField;
Query1BDEDesigner4: TStringField;
Query1BDEDesigner5: TDateTimeField;
Query1BDEDesigner6: TStringField;
Query1BDEDesigner7: TStringField;
Query1BDEDesigner8: TMemoField;
DBGrid1: TDBGrid;
Label1: TLabel;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
Edit1: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
procedure BitBtn4Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
WZXXCX: TWZXXCX;
implementation
uses MC_WZXXDJ, MC_MainForm;
{$R *.DFM}
procedure TWZXXCX.BitBtn4Click(Sender: TObject);
begin
Close;
end;
procedure TWZXXCX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
WZXXCX.Release;
WZXXCX:=Nil;
end;
procedure TWZXXCX.FormShow(Sender: TObject);
begin
ComboBox1.ItemIndex:=0;
ComboBox2.ItemIndex:=0;
if MainForm.Query1.Locate('使用选项','违章信息查询',[loCaseInsensitive]) then
begin
if MainForm.Query1.FieldbyName('读写').AsString='读' then
begin
Bitbtn2.ENabled:=False;
BitBtn3.Enabled:=False;
end;
end;
end;
procedure TWZXXCX.BitBtn2Click(Sender: TObject);
begin
if Query1.Active then
if Query1.RecordCount<>0 then
if Not Assigned(WZXXDJ) then
begin
WZXXDJ:=TWZXXDJ.Create(Self);
WZXXDJ.Table1.Locate('违章编号',Query1.FieldByname('违章编号').AsString,[loCaseInsensitive]);
WZXXDJ.ShowModal;
Query1.Close;
Query1.Open;
end;
end;
procedure TWZXXCX.BitBtn3Click(Sender: TObject);
begin
if Query1.Active then
if Query1.RecordCount<>0 then
if MessageDlg('是否删除当前维修信息?',mtCustom,[mbYes,mbNo],0)=mrYes then Query1.Delete;
end;
procedure TWZXXCX.BitBtn1Click(Sender: TObject);
begin
if ComboBox2.Text='Like' then
begin
if Edit1.Text='*' then
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select * From 违章信息');
Query1.Open;
end
else
Begin
With Query1 do
begin
Close;
SQL.Clear;
SQL.Add('Select * From 违章信息');
SQL.Add('where '+ComboBox1.Items[ComboBox1.ItemIndex]
+' Like '''+Edit1.Text+'%''');
Open;
end;
end;
end;
//--------------------------------------------------------------------
if ComboBox2.Text='=' then
begin
With Query1 do
begin
Close;
SQL.Clear;
SQL.Add('Select * From 违章信息');
SQL.Add('where '+ComboBox1.Items[ComboBox1.ItemIndex]
+' = '''+Edit1.Text+'''');
Open;
end;
end;
//--------------------------------------------------------------------
if ComboBox2.Text='>' then
begin
With Query1 do
begin
Close;
SQL.Clear;
SQL.Add('Select * From违章信息');
SQL.Add('where '+ComboBox1.Items[ComboBox1.ItemIndex]+' > '''+Edit1.Text+'''');
Open;
end;
end;
//--------------------------------------------------------------------
if ComboBox2.Text='<' then
begin
With Query1 do
begin
Close;
SQL.Clear;
SQL.Add('Select * From 违章信息');
SQL.Add('where '+ComboBox1.Items[ComboBox1.ItemIndex]
+' < '''+Edit1.Text+'''');
Open;
end;
end;
//--------------------------------------------------------------------
end;
end.
上一篇:
frm_CSH.frm
下一篇:
她要是喜欢我