【delphi开源代码栏目提醒】:以下是网学会员为您推荐的delphi开源代码-MC_TSCX.pas,希望本篇文章对您学习有所帮助。
unit MC_TSCX;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, StdCtrls, Buttons, Grids, DBGrids;
type
TTSCX = class(TForm)
Query1: TQuery;
DataSource1: TDataSource;
GroupBox1: TGroupBox;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
Edit1: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
DBGrid1: TDBGrid;
Query1BDEDesigner: TStringField;
Query1BDEDesigner2: TStringField;
Query1BDEDesigner3: TStringField;
Query1BDEDesigner4: TStringField;
Query1BDEDesigner5: TDateTimeField;
Query1BDEDesigner7: TStringField;
Query1BDEDesigner8: TStringField;
Query1BDEDesigner9: TMemoField;
Query1BDEDesigner10: TStringField;
Query1BDEDesigner11: TStringField;
Query1BDEDesigner12: TStringField;
Query1BDEDesigner13: TStringField;
Query1BDEDesigner14: TStringField;
BitBtn4: TBitBtn;
Query1BDEDesigner16: TStringField;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
TSCX: TTSCX;
implementation
uses MC_XGTSXX, MC_MainForm, MC_TSDJ;
{$R *.DFM}
procedure TTSCX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
TSCX.Release;
TSCX:=Nil;
end;
procedure TTSCX.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 TTSCX.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
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select * From 投诉信息表');
Query1.SQL.Add('Where '+ComboBox1.Items[ComboBox1.ItemIndex]+
' Like '''+Edit1.Text+'%''');
query1.Open;
end;
end;
if ComboBox2.Text='=' then
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select * From 投诉信息表');
Query1.SQL.Add('Where '+ComboBox1.Items[comboBox1.ItemIndex]+
' = '''+Edit1.Text+'''');
Query1.Open;
end;
if ComboBox2.Text='>' then
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select * From 投诉信息表');
Query1.SQL.Add('Where '+ComboBox1.Items[comboBox1.ItemIndex]+' > '''+Edit1.Text+'''');
Query1.Open;
end;
if ComboBox2.Text='<' then
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select * From 投诉信息表');
Query1.SQL.Add('Where '+ComboBox1.Items[comboBox1.ItemIndex]+' < '''+Edit1.Text+'''');
Query1.Open;
end;
end;
procedure TTSCX.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 TTSCX.BitBtn2Click(Sender: TObject);
begin
if Query1.Active then
if Query1.recordCount<>0 then
if Not Assigned(TSDJ) then
begin
TSDJ:=TTSDJ.Create(self);
TSDJ.Table1.Locate('投诉编号',Query1.FieldByName('投诉编号').AsString,[loCaseInsensitive]);
TSDJ.Table1.Edit;
TSDJ.BitBtn2.Caption:='取消[&U]';
TSDJ.BitBtn1.Caption:='保存[&S]';
TSDJ.GroupBox1.Enabled:=True;
TSDJ.BitBtn3.Enabled:=False;
TSDJ.BitBtn4.Enabled:=False;
TSDJ.BitBtn5.Enabled:=False;
TSDJ.DBNavigator1.Enabled:=False;
TSDJ.ShowModal;
end;
{if Not Assigned(XGTSXX) then
begin
XGTSXX:=TXGTSXX.Create(Self);
Query1.Edit;
XGTSXX.ShowModal;
end;}
end;
procedure TTSCX.BitBtn4Click(Sender: TObject);
begin
Close;
end;
end.
上一篇:
MC_TLCYGLXT.pas
下一篇:
还记得,那年的风车吗?