?? hymonqueryunit.~pas
字號:
end;
if(CheckBox1.Checked)then
begin
if (ComboBox7.Text='') or (ComboBox8.Text='') or (Edit3.Text='') then
begin
MessageBox(self.Handle,'輸入條件語法錯誤！請重新選擇條件！','消息',MB_OK);
exit;
end;
if(not (HYMonthRepQueryFrm.ADOQuery1.FieldByName(trim(ComboBox7.Text)).DataType in [ftString,ftWideString,ftFixedChar]))then
HYMonthRepQueryFrm.ADOQuery1.SQL.Add(' and '+ComboBox7.Text+' '+ComboBox8.Text+' '+Edit3.Text) else
HYMonthRepQueryFrm.ADOQuery1.SQL.Add(' and '+ComboBox7.Text+' '+ComboBox8.Text+' '+''''+trim(Edit3.Text)+'''');
end;
if(CheckBox2.Checked)then
begin
if ((ComboBox11.Text='') or (ComboBox12.Text='') or (Edit4.Text='')) then
begin
MessageBox(self.Handle,'輸入條件語法錯誤！請重新選擇條件！','消息',MB_OK);
exit;
end;
if(not (HYMonthRepQueryFrm.ADOQuery1.FieldByName(ComboBox11.Text).DataType in [ftString,ftWideString,ftFixedChar]))then
HYMonthRepQueryFrm.ADOQuery1.SQL.Add(' '+ComboBox9.Text+' '+ComboBox11.Text+' '+ComboBox12.Text+' '+Edit4.Text) else
HYMonthRepQueryFrm.ADOQuery1.SQL.Add(' '+ComboBox9.Text+' '+ComboBox11.Text+' '+ComboBox12.Text+' '+''''+trim(Edit4.Text)+'''');
end;
if(CheckBox3.Checked)then
begin
if (ComboBox13.Text='') or (ComboBox14.Text='') or (Edit5.Text='') then
begin
MessageBox(self.Handle,'輸入條件語法錯誤！請重新選擇條件！ ','消息',MB_OK);
exit;
end;
if(not (HYMonthRepQueryFrm.ADOQuery1.FieldByName(ComboBox13.Text).DataType in [ftString,ftWideString,ftFixedChar]))then
HYMonthRepQueryFrm.ADOQuery1.SQL.Add(' '+ComboBox10.Text+' '+ComboBox13.Text+' '+ComboBox14.Text+' '+Edit5.Text) else
HYMonthRepQueryFrm.ADOQuery1.SQL.Add(' '+ComboBox10.Text+' '+ComboBox13.Text+' '+ComboBox14.Text+' '+''''+trim(Edit5.Text)+'''');
end;
if(ComboBox29.Text<>'')then
begin
HYMonthRepQueryFrm.ADOQuery1.Active:=False;
HYMonthRepQueryFrm.ADOQuery1.SQL.Add(' order by '+ComboBox29.Text);
if(ComboBox3.ItemIndex=0)then
HYMonthRepQueryFrm.ADOQuery1.SQL.Add(' asc ') else
HYMonthRepQueryFrm.ADOQuery1.SQL.Add(' desc ');
if(ComboBox30.Text<>'')then
begin
HYMonthRepQueryFrm.ADOQuery1.SQL.Add(','+ComboBox30.Text);
if(ComboBox4.ItemIndex=0)then
HYMonthRepQueryFrm.ADOQuery1.SQL.Add(' asc ') else
HYMonthRepQueryFrm.ADOQuery1.SQL.Add(' desc ');
if(ComboBox31.Text<>'')then
begin
HYMonthRepQueryFrm.ADOQuery1.SQL.Add(','+ComboBox31.Text);
if(ComboBox17.ItemIndex=0)then
HYMonthRepQueryFrm.ADOQuery1.SQL.Add(' asc ') else
HYMonthRepQueryFrm.ADOQuery1.SQL.Add(' desc ');
end;
end;
end;
///////////////////////////////////////
if (ComboBox29.Text='') and (ComboBox30.Text='') and (ComboBox31.Text='') then
begin
if MessageBox(self.handle,'是否選擇排序條件？','消息',MB_YESNO)=IDYES THEN
exit;
// exit;
end;
////////////////////////////////////////////////////
try
HYMonthRepQueryFrm.ADOQuery1.Open;
HYMonthRepQueryFrm.ShowModal;
except
MessageBox(self.Handle,'結果不正確。','消息',MB_OK);
end;
end;
procedure THYMonQueryFrm.FormShow(Sender: TObject);
begin
ComboBox5.Text:=IntToStr(CurrentYear);
ComboBox6.Text:=IntToStr(CurrentYear);
ADOTable1.Open;
end;
procedure THYMonQueryFrm.CheckBox1Click(Sender: TObject);
begin
Object1.ButtonCheck1(CheckBox1.Checked);
Label12.Visible:=Object1.T1;
Label16.Visible:=Object1.T2;
Label17.Visible:=Object1.T3;
ComboBox9.Visible:=Object1.C1;
ComboBox10.Visible:=Object1.C2;
if(CheckBox1.Checked)then
begin
ComboBox7.Enabled:=true;
ComboBox7.Color:=$00FF8080;
ComboBox8.Enabled:=true;
ComboBox8.Color:=$00FF8080;
Edit3.Enabled:=true;
Edit3.Color:=$00FF8080;
end else
begin
ComboBox7.Enabled:=false;
ComboBox7.Color:=clWhite;
ComboBox8.Enabled:=false;
ComboBox8.Color:=clWhite;
Edit3.Enabled:=false;
Edit3.Color:=clWhite;
end;
end;
procedure THYMonQueryFrm.CheckBox2Click(Sender: TObject);
begin
Object1.ButtonCheck2(CheckBox2.Checked);
Label12.Visible:=Object1.T1;
Label16.Visible:=Object1.T2;
Label17.Visible:=Object1.T3;
ComboBox9.Visible:=Object1.C1;
ComboBox10.Visible:=Object1.C2;
if(CheckBox2.Checked)then
begin
ComboBox11.Enabled:=true;
ComboBox11.Color:=$00FF8080;
ComboBox12.Enabled:=true;
ComboBox12.Color:=$00FF8080;
Edit4.Enabled:=true;
Edit4.Color:=$00FF8080;
end else
begin
ComboBox11.Enabled:=false;
ComboBox11.Color:=clWhite;
ComboBox12.Enabled:=false;
ComboBox12.Color:=clWhite;
Edit4.Enabled:=false;
Edit4.Color:=clWhite;
end;
end;
procedure THYMonQueryFrm.CheckBox3Click(Sender: TObject);
begin
Object1.ButtonCheck3(CheckBox3.Checked);
Label12.Visible:=Object1.T1;
Label16.Visible:=Object1.T2;
Label17.Visible:=Object1.T3;
ComboBox9.Visible:=Object1.C1;
ComboBox10.Visible:=Object1.C2;
if(CheckBox3.Checked)then
begin
ComboBox13.Enabled:=true;
ComboBox13.Color:=$00FF8080;
ComboBox14.Enabled:=true;
ComboBox14.Color:=$00FF8080;
Edit5.Enabled:=true;
Edit5.Color:=$00FF8080;
end else
begin
ComboBox13.Enabled:=false;
ComboBox13.Color:=clWhite;
ComboBox14.Enabled:=false;
ComboBox14.Color:=clWhite;
Edit5.Enabled:=false;
Edit5.Color:=clWhite;
end;
end;
procedure THYMonQueryFrm.FormCreate(Sender: TObject);
begin
Object1:=TRelation.Create;
end;
procedure THYMonQueryFrm.ComboBox7Change(Sender: TObject);
begin
ADOTable1.Locate('指標代碼',ComboBox7.Text,[]);
end;
procedure THYMonQueryFrm.ComboBox11Change(Sender: TObject);
begin
ADOTable1.Locate('指標代碼',ComboBox13.Text,[]);
end;
procedure THYMonQueryFrm.ComboBox13Change(Sender: TObject);
begin
ADOTable1.Locate('指標代碼',ComboBox13.Text,[]);
end;
procedure THYMonQueryFrm.BitBtn15Click(Sender: TObject);
begin
ADOTable1.Locate('指標代碼',ComboBox7.Text,[]);
end;
procedure THYMonQueryFrm.BitBtn16Click(Sender: TObject);
begin
ADOTable1.Locate('指標代碼',ComboBox11.Text,[]);
end;
procedure THYMonQueryFrm.BitBtn17Click(Sender: TObject);
begin
ADOTable1.Locate('指標代碼',ComboBox13.Text,[]);
end;
procedure THYMonQueryFrm.SpeedButton3Click(Sender: TObject);
var
EprCode,EprName:string;
begin
if CitySelectForm.ShowModal=mrok then
begin
EprName:=CitySelectForm.Edit1.Text;
EprCode:=CitySelectForm.ComboBox1.Text;
Edit8.Text:=EprCode;
Edit9.Text:=EprName;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -