?? unreportinfo.pas
字號:
unit UnReportInfo;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons,DB,DBTables;
type
TFrmReportInfo = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label6: TLabel;
Edit1: TEdit;
Edit2: TEdit;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
Label3: TLabel;
btnOk: TBitBtn;
btnCancek: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
WhichType,nWidth:Integer;
OldReportTitle,OldReportName,OldDiscription,OldFormName:String;
ReportID,PrintModal,FormCaption,ReportName,Discription:String;
bSure:boolean;
public
{ Public declarations }
procedure IniInfo(Width,WhichOper,PrintType:Integer;ReportTitle,ReportName,Discription:String);
property sReportID:String read ReportID;
property sPrintType:String read PrintModal;
property sFormCaption:String read FormCaption;
property sReportName:String read ReportName;
property sDiscription:String read Discription;
property bbSure:Boolean read bSure;
end;
var
FrmReportInfo: TFrmReportInfo;
implementation
uses unCDM;
{$R *.dfm}
procedure TFrmReportInfo.IniInfo(Width,WhichOper,PrintType:Integer;ReportTitle,ReportName,Discription:String);
var qQryDB:TQuery;
i:integer;
begin
bSure:=False;
nWidth:=Width;
WhichType:=WhichOper;
OldReportTitle:=ReportTitle;
OldReportName:=ReportName;
OldDiscription:=Discription;
qQryDB:=TQuery.Create(nil);
qQryDB.DatabaseName:=CDM.dbData.DatabaseName;
qQryDB.SessionName:=CDM.dbData.SessionName;
with qQryDB do
begin
Close;
SQL.Clear;
SQL.Add('SELECT FORMCAPTION FROM SFRJREPORTNAME GROUP BY FORMCAPTION');
Open;
First;
ComBoBox1.Items.Clear;
While not eof do
begin
ComBoBox1.Items.Add(FieldByName('FORMCAPTION').AsString);
next;
end;
qQryDB.Close;
qQryDB.Free;
qQryDB:=nil;
end;
if WhichOper=0 then //添加
begin
Caption:='請輸入需要定制報表的內(nèi)容';
ComBoBox2.ItemIndex:=0;
end;
if WhichOper=1 then //修改
begin
Caption:='請修改定制報表的內(nèi)容';
ComboBox1.Text:=ReportTitle;
ComboBox1.Enabled:=FALSE;
Edit1.Text:=ReportName;
Edit2.Text:=Discription;
ComboBox2.ItemIndex:=PrintType;
PrintModal:=ComboBox2.Text;
end;
if WhichOper=2 then //刪除
begin
Caption:='請確認刪除定制報表的內(nèi)容';
ComboBox1.Text:=ReportTitle;
Edit1.Text:=ReportName;
Edit2.Text:=Discription;
ComboBox1.Enabled:=FALSE;
Edit1.Enabled:=FALSE;
Edit2.Enabled:=FALSE;
ComboBox2.ItemIndex:=PrintType;
ComboBox2.Enabled:=FALSE;
end;
end;
procedure TFrmReportInfo.BitBtn1Click(Sender: TObject);
var qQryDB:TQuery;
i:integer;
Str:String;
begin
if((ComboBox1.Text='') or (ComboBox2.Text='') or (Edit1.Text=''))then
begin
Application.MessageBox(' 輸入信息不全，請確保窗體被選擇且名稱被輸入','系統(tǒng)信息管理窗',0);
exit;
end;
qQryDB:=TQuery.Create(nil);
qQryDB.DatabaseName:=CDM.dbData.DatabaseName;
qQryDB.SessionName:=CDM.dbData.SessionName;
if WhichType=0 then //添加
begin
qQryDB.close;
qQryDB.sql.Clear;
qQryDB.sql.Add('SELECT Count(*) WW FROM SFRJREPORTNAME WHERE FORMCAPTION='''+Edit2.Text+''' AND REPORTNAME='''+Edit1.Text+'''');
qQryDB.Open;
qQryDB.First;
If(qQryDB.FieldByName('WW').AsInteger=1)then
begin
Application.MessageBox(' 你要添加的報表名稱在數(shù)據(jù)庫中已經(jīng)存在，請檢查是否重復(fù)！','系統(tǒng)信息管理窗',0);
qQryDB.Close;
qQryDB.Free;
qQryDB:=nil;
exit;
end;
qQryDB.close;
qQryDB.sql.Clear;
qQryDB.sql.Add('SELECT FORMNAME FROM SFRJREPORTNAME WHERE FORMCAPTION='''+Combobox1.Text+'''');
qQryDB.Open;
qQryDB.First;
OldFormName:=qQryDB.FieldByName('FORMNAME').AsString;
qQryDB.Close;
qQryDB.SQL.Clear;
qQryDB.sql.Add('INSERT INTO SFRJREPORTNAME(FORMNAME,REPORTNAME,FORMCAPTION,DISCRIPTION,PRINTTYPE) VALUES('''+OldFormName+''','''+Edit1.Text+''','''+Combobox1.Text+''','''+Edit2.Text+''','+IntToStr(ComBoBox2.ItemIndex)+')');
qQryDB.ExecSql;
bSure:=True;
qQryDB.Close;
qQryDB.SQL.Clear;
qQryDB.sql.Add('SELECT SFRJREPORTNAME_SEQ.CURRVAL WW FROM DUAL');
qQryDB.Open;
qQryDB.First;
ReportID:=qQryDB.FieldByName('WW').AsString;
qQryDB.Close;
qQryDB.Sql.Clear;
qQryDB.sql.Add('COMMIT');
qQryDB.ExecSQL;
qQryDB.Close;
qQryDB.Free;
qQryDB:=nil;
PrintModal:=ComboBox2.Text;
FormCaption:=ComboBox1.Text;
ReportName:=Edit1.Text;
Discription:=Edit2.Text;
end;
if WhichType=1 then //修改
begin
if((ComboBox2.Text=PrintModal) and (ComboBox1.Text=OldReportTitle) and (Edit1.Text=OldReportName)and(Edit2.Text=OldDiscription))then
btnCancek.Click
else
begin
if ((nWidth>718) And (ComboBox2.ItemIndex=0))then
begin
MessageDlg(' 你所修改報表的總寬度已經(jīng)達到'+IntToStr(nWidth)+'個像素，而A4豎打只支持最大718個像素；因此你不能更改‘紙張打印方式的設(shè)置’！',mtWarning,[mbYes],0);
Exit;
end;
qQryDB.close;
qQryDB.sql.Clear;
qQryDB.sql.Add('SELECT Count(*) WW FROM SFRJREPORTNAME WHERE FORMCAPTION='''+Edit2.Text+''' AND REPORTNAME='''+Edit1.Text+'''');
qQryDB.Open;
qQryDB.First;
If(((qQryDB.FieldByName('WW').AsInteger)=1) and (Edit1.Text<>OldReportName))then
begin
Application.MessageBox(' 你修改的報表名稱在數(shù)據(jù)庫中已經(jīng)存在，請檢查是否重復(fù)！','系統(tǒng)信息管理窗',0);
qQryDB.Close;
qQryDB.Free;
qQryDB:=nil;
exit;
end;
qQryDB.Close;
qQryDB.sql.Clear;
qQryDB.sql.Add('UPDATE SFRJREPORTNAME SET REPORTNAME='''+Edit1.Text+''', DISCRIPTION='''+Edit2.Text+''',PRINTTYPE='+IntToStr(Combobox2.ItemIndex)+' WHERE FORMCAPTION='''+OldReportTitle+''' AND REPORTNAME='''+OldReportName+'''');
qQryDB.ExecSql;
bSure:=True;
qQryDB.Close;
qQryDB.Free;
qQryDB:=nil;
PrintModal:=ComboBox2.Text;
FormCaption:=ComboBox1.Text;
ReportName:=Edit1.Text;
Discription:=Edit2.Text;
end;
end;
if WhichType=2 then //刪除
begin
qQryDB.Close;
qQryDB.sql.Clear;
qQryDB.sql.Add('SELECT COUNT(*) XX FROM SFRJREPORTNAME WHERE FORMCAPTION='''+OldReportTitle+'''');
qQryDB.OPEN;
qQryDB.First;
If qQryDB.FieldByName('XX').AsInteger=1 then
begin
ShowMessage(' 系統(tǒng)已僅剩下最后一條打印方案，不允許再刪除！');
qQryDB.Close;
qQryDB.Free;
qQryDB:=nil;
Exit;
end;
qQryDB.Close;
qQryDB.sql.Clear;
qQryDB.sql.Add('SELECT REPORTID,FORMCAPTION FROM SFRJREPORTNAME WHERE FORMCAPTION='''+OldReportTitle+''' AND REPORTNAME='''+OldReportName+'''');
qQryDB.OPEN;
qQryDB.First;
Str:= qQryDB.FieldByName('REPORTID').AsString;
qQryDB.Close;
qQryDB.Sql.Clear;
qQryDB.sql.Add('DELETE SFRJPRINTDETAIL WHERE REPORTID='+Str);
qQryDB.ExecSql;
qQryDB.Close;
qQryDB.Sql.Clear;
qQryDB.sql.Add('DELETE SFRJREPORTNAME WHERE FORMCAPTION='''+OldReportTitle+''' AND REPORTNAME='''+OldReportName+'''');
qQryDB.ExecSql;
qQryDB.Close;
qQryDB.Free;
qQryDB:=nil;
bSure:=True;
End;
Close;
end;
procedure TFrmReportInfo.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key <> Char(VK_UP))and(Key <> Char(VK_DOWN))then
key := Char(0); //禁止用戶鍵盤輸入信息
end;
procedure TFrmReportInfo.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=CaFree;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -