?? mrlxrxxbb.pas
字號:
unit MRLXRXXBB;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Grids, DBGrids, inifiles, DB;
type
TFRM_LXRXXBB = class(TForm)
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
GroupBox2: TGroupBox;
DBGrid1: TDBGrid;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
DataSource1: TDataSource;
procedure FormShow(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure RadioButton4Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FRM_LXRXXBB: TFRM_LXRXXBB;
implementation
uses DATA, MRLXRXXBB_DY;
{$R *.dfm}
procedure TFRM_LXRXXBB.FormShow(Sender: TObject);
var
ini : Tinifile;
ssp : string;
begin
ssp := '聯系人信息報表';
ini:=Tinifile.Create('c:\cc.ini');
ini.WriteString('one',datetimetostr(now),ssp);
ini.Free;
with database.ADO_LXRXX do
begin
close;
sql.Clear;
sql.Add('select * from tb_Client_lxrxx');
open;
end;
combobox1.Clear;
combobox3.Clear;
combobox4.Clear;
combobox2.Text := '';
with database.ADO_bb do //客戶名稱
begin
close;
sql.Clear;
sql.Add('select distinct lxrxx_qymc from tb_Client_lxrxx');
open;
end;
if database.ADO_bb.RecordCount>0 then
begin
while not database.ADO_bb.Eof do
begin
combobox1.Items.Add(Trim(database.ADO_bb.fieldbyname('lxrxx_qymc').AsString));
database.ADO_bb.Next;
end;
end;
with database.ADO_bb do //聯系人姓名
begin
close;
sql.Clear;
sql.Add('select distinct lxrxx_xm from tb_Client_lxrxx');
open;
end;
if database.ADO_bb.RecordCount>0 then
begin
while not database.ADO_bb.Eof do
begin
combobox3.Items.Add(Trim(database.ADO_bb.fieldbyname('lxrxx_xm').AsString));
database.ADO_bb.Next;
end;
end;
with database.ADO_bb do //聯系人職位
begin
close;
sql.Clear;
sql.Add('select distinct lxrxx_zw from tb_Client_lxrxx');
open;
end;
if database.ADO_bb.RecordCount>0 then
begin
while not database.ADO_bb.Eof do
begin
combobox4.Items.Add(Trim(database.ADO_bb.fieldbyname('lxrxx_zw').AsString));
database.ADO_bb.Next;
end;
end;
end;
procedure TFRM_LXRXXBB.BitBtn1Click(Sender: TObject);
var
s,p : string;
begin
p := '';
s := 'aa';
if RadioButton1.Checked = true then
begin
p := 'lxrxx_qymc';
s := trim(combobox1.Text);
end;
if RadioButton2.Checked = true then
begin
p := 'lxrxx_xm';
s := trim(combobox3.Text);
end;
if RadioButton3.Checked = true then
begin
p := 'lxrxx_xb';
s := trim(combobox2.Text);
end;
if RadioButton4.Checked = true then
begin
p := 'lxrxx_zw';
s := trim(combobox4.Text);
end;
if (s <> 'aa')and(s <> '') then
begin
with database.ADO_LXRXX do
begin
close;
sql.Clear;
sql.Add('select * from tb_Client_lxrxx where '+p+'='+''''+s+'''');
open;
end;
end
else
begin
showmessage('查詢條件不能為空。');
end;
end;
procedure TFRM_LXRXXBB.BitBtn3Click(Sender: TObject);
begin
with database.ADO_LXRXX do
begin
close;
sql.Clear;
sql.Add('select * from tb_Client_lxrxx');
open;
end;
end;
procedure TFRM_LXRXXBB.BitBtn4Click(Sender: TObject);
begin
close;
end;
procedure TFRM_LXRXXBB.RadioButton1Click(Sender: TObject);
begin
combobox2.Text := '';
combobox3.Text := '';
combobox4.Text := '';
end;
procedure TFRM_LXRXXBB.RadioButton2Click(Sender: TObject);
begin
combobox2.Text := '';
combobox1.Text := '';
combobox4.Text := '';
end;
procedure TFRM_LXRXXBB.RadioButton3Click(Sender: TObject);
begin
combobox1.Text := '';
combobox3.Text := '';
combobox4.Text := '';
end;
procedure TFRM_LXRXXBB.RadioButton4Click(Sender: TObject);
begin
combobox2.Text := '';
combobox3.Text := '';
combobox1.Text := '';
end;
procedure TFRM_LXRXXBB.BitBtn2Click(Sender: TObject);
begin
application.CreateForm(TFRM_LXRBB_DY, FRM_LXRBB_DY);
FRM_LXRBB_DY.QuickRep1.PreviewModal;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -