📄 busscalezbunit.pas
字号:
unit BusScaleZBUnit;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, StdCtrls, Buttons, Grids, DBGrids, Db, ADODB, ExtCtrls, DBCtrls,
QuickRpt, QRCtrls,comobj,Variants;
type
TBusScaleForm = class(TForm)
ADOQuery2: TADOQuery;
ADOCommand1: TADOCommand;
Panel6: TPanel;
Label13: TLabel;
ADOQPrintMon: TADOQuery;
QueryPageLeft1: TADOQuery;
QueryPageRight1: TADOQuery;
QueryPageLeft1Src: TDataSource;
QueryPageRight1Src: TDataSource;
ADOQuery4: TADOQuery;
QueryPageLeft1DSDesigner: TSmallintField;
QueryPageLeft1DSDesigner3: TWideStringField;
QueryPageLeft1DSDesigner6: TWideStringField;
QueryPageRight1DSDesigner: TSmallintField;
QueryPageRight1DSDesigner3: TWideStringField;
QueryPageRight1DSDesigner6: TWideStringField;
QueryPageLeft1StringField: TStringField;
QueryPageLeft1StringField2: TStringField;
QueryPageLeft1StringField3: TStringField;
QueryPageRight1StringField: TStringField;
QueryPageRight1StringField2: TStringField;
QueryPageRight1StringField3: TStringField;
QueryPageRight1DSDesigner2: TFloatField;
QueryPageLeft1DSDesigner2: TFloatField;
DataSource1: TDataSource;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
SpeedButton2: TSpeedButton;
Label12: TLabel;
SpeedButton1: TSpeedButton;
ComboBox1: TComboBox;
Edit9: TEdit;
Panel2: TPanel;
DBGrid1: TDBGrid;
Panel3: TPanel;
DBGrid2: TDBGrid;
Panel4: TPanel;
BitBtn2: TBitBtn;
BitBtn6: TBitBtn;
BitBtn4: TBitBtn;
BitBtn3: TBitBtn;
BitBtn5: TBitBtn;
BitBtn8: TBitBtn;
BitBtn7: TBitBtn;
Label5: TLabel;
DBMemo1: TDBMemo;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure QueryPageLeft1AfterScroll(DataSet: TDataSet);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ComboBox1Change(Sender: TObject);
procedure QueryPageLeft1AfterInsert(DataSet: TDataSet);
procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
procedure DBGrid2KeyPress(Sender: TObject; var Key: Char);
procedure SpeedButton1Click(Sender: TObject);
procedure QueryPageLeft1AfterEdit(DataSet: TDataSet);
procedure QueryPageLeft1AfterPost(DataSet: TDataSet);
private
IsDelete:boolean;
function CheckYearMon:boolean;
procedure ButtonEnable(curButton:TBitBtn);
public
IsModifyIndex:boolean;
PostIndex:string;
curYear,curMon:string;
function IsEmptyRep:boolean;
procedure CheckBalanceRel(curRecordStr:string);
procedure DealProc1(ResultValue:string;Oper1Value:string;Oper2Value:string;curSigh:string);
procedure DealProc2(ResultValue:string;Oper1Value:string;Oper2Value:single;curSigh:string);
function AddPrnQuery:boolean;
procedure ToZTable;
procedure LookUpZB(var OperValue:single;OperName:string;var curPos:integer);
procedure OpenAllPage;
function BalanceRelRight(curRecordStr:string):boolean;
procedure RefreshPage;
end;
var
BusScaleForm: TBusScaleForm;
implementation
uses BusTradeDataModuleUnit, PrintInfoUnit,PrintProc, CitySelectUnit;//, InputMonth;
{$R *.DFM}
function TBusScaleForm.CheckYearMon:boolean;
var
YearValue:integer;
MonValue:integer;
begin
try
YearValue:=StrToInt(ComboBox1.Text);
except
ShowMessage('年份不是数值.');
CheckYearMon:=false;
exit;
end;
if((YearValue<2000) or (YearValue>2050))then
begin
ShowMessage('输入年份不对.');
CheckYearMon:=false;
exit;
end;
CheckYearMon:=true;
end;
function TBusScaleForm.IsEmptyRep:boolean;
begin
if((ADOQPrintMon.RecordCount>0) )then
begin
IsEmptyRep:=false;
exit;
end;
IsEmptyRep:=true;
end;
procedure TBusScaleForm.BitBtn2Click(Sender: TObject);{添加}
begin
if(not CheckYearMon)then exit;
if(not IsEmptyRep)then
begin
showmessage('该月数据已存在,请先删除该月数据.');
exit;
end;
ButtonEnable(BitBtn2);
BusTradeDataModule.ADOConnection1.BeginTrans;
ADOCommand1.CommandText:='insert into 公交行业城市规模指标表_z(指标代码,统计年份,城市代码)'
+' select 指标代码,'+ComboBox1.text+','
+''''+Edit9.text+''''+' from 公交行业城市规模指标定义表 ';
ADOCommand1.Execute;
OpenAllPage;
end;
procedure TBusScaleForm.BitBtn4Click(Sender: TObject);{删除}
begin
if(MessageBox(self.Handle,'你是否删除？','提示',MB_OKCANCEL)=IDOK)then
begin
BusTradeDataModule.ADOConnection1.BeginTrans;
ADOCommand1.CommandText:='delete from 公交行业城市规模指标表_z '+
' where 统计年份='+ComboBox1.text+
' and 城市代码='+''''+Edit9.text+'''';
ADOCommand1.Execute;
ADOCommand1.CommandText:='delete from 公交行业城市规模指标表 '+
' where 统计年份='+ComboBox1.text+
' and 城市代码='+''''+Edit9.text+'''';
ADOCommand1.Execute;
BusTradeDataModule.ADOConnection1.CommitTrans;
OpenAllPage;
DBGrid1.ReadOnly:=true;
exit;
end;
end;
procedure TBusScaleForm.ButtonEnable(curButton:TBitBtn);
begin
if(curButton=nil)then
begin
BitBtn2.Enabled:=True;
BitBtn4.Enabled:=True;
BitBtn6.Enabled:=True;
BitBtn3.Enabled:=False;
BitBtn5.Enabled:=False;
BitBtn8.Enabled:=true;
DBGrid1.ReadOnly:=true;
DBGrid2.ReadOnly:=true;
exit;
end;
if((curButton.Name='BitBtn2') or (curButton.Name='BitBtn4') or (curButton.Name='BitBtn6'))then
begin
BitBtn2.Enabled:=False;
BitBtn4.Enabled:=False;
BitBtn6.Enabled:=False;
BitBtn7.Enabled:=false;
BitBtn8.Enabled:=False;
BitBtn3.Enabled:=True;
BitBtn5.Enabled:=True;
ComboBox1.Enabled:=false;
DBGrid1.ReadOnly:=false;
DBGrid2.ReadOnly:=false;
end;
if((curButton.Name='BitBtn3') or (curButton.Name='BitBtn5'))then
begin
BitBtn2.Enabled:=True;
BitBtn4.Enabled:=True;
BitBtn6.Enabled:=True;
BitBtn7.Enabled:=true;
BitBtn8.Enabled:=True;
BitBtn3.Enabled:=False;
BitBtn5.Enabled:=False;
ComboBox1.Enabled:=true;
DBGrid1.ReadOnly:=true;
DBGrid2.ReadOnly:=true;
end;
end;
procedure TBusScaleForm.BitBtn3Click(Sender: TObject);{确定}
var
i:integer;
WrongMessage:string;
begin
if(not CheckYearMon)then exit;
RefreshPage;
BusTradeDataModule.ADOConnection1.CommitTrans;
ButtonEnable(BitBtn3);
DBGrid1.ReadOnly:=True;
ToZTable;
showmessage('数据已经保存！');
end;
procedure TBusScaleForm.ToZTable;
var
i:integer;
begin
if(ADOQuery4.RecordCount<=0)then
ADOQuery4.Append else
ADOQuery4.Edit;
ADOQuery4.FieldByName('统计年份').AsInteger:=StrToInt(ComboBox1.Text);
ADOQuery4.FieldByName('城市代码').AsString:=trim(Edit9.text);
ADOQPrintMon.Close;
ADOQPrintMon.Open;
ADOQPrintMon.First;
while not ADOQPrintMon.Eof do
begin
for i:=0 to ADOQuery4.FieldCount-1 do
begin
if((ADOQuery4.Fields[i].FieldName<>'统计年份') and
(ADOQuery4.Fields[i].FieldName<>'统计月份') and
(ADOQuery4.Fields[i].FieldName<>'企业代码') and
(ADOQuery4.Fields[i].FieldName<>'数值类型') )then
begin
if(ADOQPrintMon.FieldByName('指标代码').AsString=ADOQuery4.Fields[i].FieldName)then
ADOQuery4.Fields[i].Value:=ADOQPrintMon.FieldByName('本年实际').Value;
end;
end;
ADOQPrintMon.Next;
end;
ADOQuery4.Post;
end;
procedure TBusScaleForm.BitBtn5Click(Sender: TObject);{取消}
begin
ButtonEnable(BitBtn5);
BusTradeDataModule.ADOConnection1.RollbackTrans;
DBGrid1.ReadOnly:=True;
OpenAllPage;
end;
procedure TBusScaleForm.FormCreate(Sender: TObject);
begin
IsDelete:=false;
IsModifyIndex:=false;
end;
procedure TBusScaleForm.BitBtn6Click(Sender: TObject);{修改}
begin
if(IsEmptyRep)then
begin
MessageBox(self.handle,'数据为空！','消息',MB_OK);
exit;
end;
ButtonEnable(BitBtn6);
BusTradeDataModule.ADOConnection1.BeginTrans;
end;
function TBusScaleForm.BalanceRelRight(curRecordStr:string):boolean;
var
Oper1,Oper2:single;
curPos:integer;
WrongMessage:string;
begin
WrongMessage:='';
{if((curRecordStr='G14') or (curRecordStr='G11'))then
begin
LookUpZB(Oper1,'G14',curPos);
LookUpZB(Oper2,'G11',curPos);
if(Oper1>Oper2)then
begin
WrongMessage:='G14<=G11的平衡关系不满足！';
end;
end;
if((curRecordStr='G18') or (curRecordStr='G15'))then
begin
LookUpZB(Oper1,'G18',curPos);
LookUpZB(Oper2,'G15',curPos);
if(Oper1>Oper2)then
begin
WrongMessage:='G18<=G15的平衡关系不满足！';
end;
end;
if(WrongMessage<>'')then
begin
BalanceRelRight:=false;
//MessageBox(self.Handle,PCHAR(WrongMessage),PCHAR('错误'),MB_OK);
exit;
end;
}
BalanceRelRight:=true;
end;
procedure TBusScaleForm.CheckBalanceRel(curRecordStr:string);
var
WrongMessage:string;
begin
if((curRecordStr='TO13') or (curRecordStr='TO15') or (curRecordStr='TO17')
or (curRecordStr='TO19') or (curRecordStr='TO21') or (curRecordStr='TO22')
or (curRecordStr='TO23') or (curRecordStr='TO26') or (curRecordStr='TO28')
or (curRecordStr='TO30') or (curRecordStr='TO32') or (curRecordStr='TO34'))then
begin
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -