【delphi开源代码栏目提醒】:网学会员为需要delphi开源代码的朋友们搜集整理了CaseEditForm.pas相关资料,希望对各位网友有所帮助!
unit CaseEditForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;
type
TFrmCaseEdit = class(TForm)
Label1: TLabel;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
Edit1: TEdit;
Button1: TButton;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmCaseEdit: TFrmCaseEdit;
TName,FName:string;
implementation
uses DataModule;
{$R *.dfm}
procedure TFrmCaseEdit.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TFrmCaseEdit.FormCreate(Sender: TObject);
begin
Data.ADOQCaseBegin.Open;
TName:='CaseBegin';
FName:='CaseID';
end;
procedure TFrmCaseEdit.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text='案件编号' then
begin
TName:='CaseBegin';
FName:='CaseID';
end;
if ComboBox1.Text='办案律师编号' then
begin
TName:='CaseBegin';
FName:='LawyerID';
end;
if ComboBox1.Text='序号' then
begin
TName:='FileLend';
FName:='ID';
end;
if ComboBox1.Text='原告' then
begin
TName:='CaseBegin';
FName:='Indicter';
end;
if ComboBox1.Text='被告' then
begin
TName:='CaseBegin';
FName:='Indictee';
end;
if ComboBox1.Text='诉讼标的' then
begin
TName:='CaseBegin';
FName:='SuitValue';
end;
if ComboBox1.Text='开庭时间' then
begin
TName:='CaseProcessing';
FName:='SittingTime';
end;
if ComboBox1.Text='结案方式' then
begin
TName:='CaseEnds';
FName:='KindOfEndACase';
end;
if ComboBox1.Text='上诉与否' then
begin
TName:='CaseEnds';
FName:='Appeal';
end;
if ComboBox1.Text='借卷单位' then
begin
TName:='FileLend';
FName:='LendTo';
end;
if ComboBox1.Text='借卷时间' then
begin
TName:='FileLend';
FName:='CaLendFileTime';
end;
if ComboBox1.Text='还卷时间' then
begin
TName:='FileLend';
FName:='BackTime';
end;
end;
procedure TFrmCaseEdit.Button1Click(Sender: TObject);
begin
if Edit1.Text<>'' then
begin
Data.ADOQCaseBegin.Close;
Data.ADOQCaseBegin.SQL.Clear;
Data.ADOQCaseBegin.SQL.Add('select * from '+TName+' where '+FName+ComboBox2.Text+Edit1.Text);
Data.ADOQCaseBegin.Open;
end
else MessageDlg('查询条件不全',mtError,[mbOK],0);
end;
end.