📄 provider_t.~pas
字号:
unit Provider_T;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, ComCtrls, Buttons, PicButton, DB, ADODB,
Grids, DBGrids, DBTables;
type
TProvider_Two = class(TForm)
Image1: TImage;
Label1: TLabel;
Image2: TImage;
Bevel1: TBevel;
Bevel2: TBevel;
Bevel3: TBevel;
Label2: TLabel;
Edit1: TEdit;
Label3: TLabel;
ComboBox1: TComboBox;
Label4: TLabel;
Edit2: TEdit;
Label5: TLabel;
Edit3: TEdit;
Label6: TLabel;
Edit4: TEdit;
Label7: TLabel;
Edit5: TEdit;
Label8: TLabel;
Edit6: TEdit;
ListView1: TListView;
PicButton1: TPicButton;
PicButton2: TPicButton;
PicButton3: TPicButton;
PicButton7: TPicButton;
Query1: TADOQuery;
Label9: TLabel;
ComboBox2: TComboBox;
PicButton5: TPicButton;
ADOTable1: TADOTable;
procedure FormCreate(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure PicButton7Click(Sender: TObject);
procedure PicButton1Click(Sender: TObject);
procedure ListView1DblClick(Sender: TObject);
procedure PicButton2Click(Sender: TObject);
procedure PicButton3Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
procedure Edit4KeyPress(Sender: TObject; var Key: Char);
procedure Edit5KeyPress(Sender: TObject; var Key: Char);
procedure PicButton5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Provider_Two: TProvider_Two;
strID:string;
implementation
{$R *.dfm}
uses Common,PrinterRpt;
///////定义显示记录的函数结束////
procedure TProvider_Two.FormCreate(Sender: TObject);
begin
ShowPloyForm(image1.Picture.Bitmap,handle);
edit1.Text:=inttostr(getrscount(query1,'trader')+1);
///初始化listview1控件列的宽度///
ListView1.Columns[0].Width:=40;
ListView1.Columns[1].Width:=60;
ListView1.Columns[2].width:=60;
ListView1.Columns[3].Width:=80;
ListView1.Columns[4].Width:=100;
ListView1.Columns[5].width:=80;
ListView1.Columns[6].Width:=100;
ListView1.Columns[7].width:=80;
/////填充值到区域控件中//
FillValueToListView(query1,'select * from trader',0,listview1);
FillValueToControl(query1,'select * from sysTable','Param0',combobox1);
//FillValueToListView(query1,'select * from trader',0,stringgrid1);
combobox2.Items.Add('辽阳');
combobox2.Items.Add('沈阳');
combobox2.Items.Add('本溪');
combobox2.Items.Add('大连');
combobox2.Items.Add('鞍山');
combobox2.Items.Add('抚顺');
combobox2.Items.Add('丹东');
combobox2.Items.Add('北京');
combobox2.text:='辽阳';
end;
procedure TProvider_Two.Image2Click(Sender: TObject);
begin
close;
end;
procedure TProvider_Two.PicButton7Click(Sender: TObject);
begin
close;
end;
procedure TProvider_Two.PicButton1Click(Sender: TObject);
var
strSql:string;
strInsert:string;
begin
strSql:='SELECT * FROM TRADER WHERE CODE="'+TRIM(EDIT1.Text)+'"';
if edit1.text<>'' then
begin
if Messagedlg('确定是否存盘？',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
if isRunSql(query1,strSql) then
begin
showmessage('此编号记录已经存在...');
end
else
begin
strInsert:='Insert into trader(code,areaName,tradername,phone1,phone2,address,city,remark) values("'+trim(edit1.Text)+'","'+trim(combobox1.Text)+'","'+trim(edit2.text)+'","'+trim(edit3.Text)+'","'+trim(edit4.Text)+'","'+trim(edit5.Text)+'","'+trim(combobox2.text)+'","'+trim(edit6.text)+'")';
runNonSql(query1,strInsert);
FillValueToListView(query1,'select * from trader',0,listview1);
end;
end;
edit1.Text:=inttostr(getrscount(query1,'trader')+1);
end
else
begin
showmessage('请输入编号...');
end;
end;
procedure TProvider_Two.ListView1DblClick(Sender: TObject);
var
listitem:Tlistitem;
begin
listitem:=listview1.Items.Add;
edit1.Text:=listview1.Selected.Caption;
strID:=listview1.Selected.Caption;
combobox1.Text:=listview1.Selected.SubItems.Strings[0];
edit2.Text:=listview1.Selected.SubItems.Strings[1];
edit3.Text:=listview1.Selected.SubItems.Strings[2];
edit4.Text:=listview1.Selected.SubItems.Strings[3];
edit5.Text:=listview1.Selected.SubItems.Strings[4];
edit6.Text:=listview1.Selected.SubItems.Strings[5];
combobox2.Text:=listview1.Selected.SubItems.Strings[6];
end;
procedure TProvider_Two.PicButton2Click(Sender: TObject);
var
strUpdate:string;
begin
if messagedlg('确定是否更新?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
strUpdate:='Update trader set code="'+trim(edit1.Text)+'",areaName="'+trim(combobox1.Text)+'",tradername="'+trim(edit2.Text)+'",phone1="'+trim(edit3.Text)+'",phone2="'+trim(edit4.Text)+'",address="'+trim(edit5.Text)+'",city="'+trim(combobox2.Text)+'",remark="'+'" where code="'+strID+'"';
//showmessage(strUpdate);
RunNonSql(query1,strUpdate);
FillValueToListView(query1,'select * from trader',0,listview1);
end;
edit1.Text:=inttostr(getrscount(query1,'trader')+1);
end;
procedure TProvider_Two.PicButton3Click(Sender: TObject);
var
strDelete:string;
begin
if Messagedlg('确定是否删除?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
strDelete:='DELETE * FROM TRADER WHERE CODE="'+strID+'"';
RunNonSql(query1,strDelete);
FillValueToListView(query1,'select * from trader',0,listview1);
end;
edit1.Text:=inttostr(getrscount(query1,'trader')+1);
end;
procedure TProvider_Two.FormShow(Sender: TObject);
begin
FillValueToListView(query1,'select * from trader',0,listview1);
end;
procedure TProvider_Two.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
combobox1.SetFocus;
combobox1.SelectAll;
end;
end;
procedure TProvider_Two.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
edit2.SetFocus;
edit2.SelectAll;
end;
end;
procedure TProvider_Two.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
edit3.SetFocus;
edit3.SelectAll;
end;
end;
procedure TProvider_Two.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
edit4.SetFocus;
edit4.SelectAll;
end;
end;
procedure TProvider_Two.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
edit5.SetFocus;
edit5.SelectAll;
end;
end;
procedure TProvider_Two.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
edit6.SetFocus;
edit6.SelectAll;
end;
end;
procedure TProvider_Two.PicButton5Click(Sender: TObject);
var
TitleName:TStringList;
ColWidth,ColumnWidth:Array of Integer;
i:integer;
LineWidth:integer;
begin
TitleName:=TStringList.Create;
//ColWidth:=TStringList.Create;
TitleName.Add('编号');
TitleName.Add('所属区域');
TitleName.Add('二级商名称');
TitleName.Add('电话1');
TitleName.Add('电话2');
TitleName.Add('地址');
TitleName.Add('所属市');
TitleName.Add('备注');
//TitleName.Add('搭赠金额');
SetReportTitle('终端人员情况报表');
SetTableName('trader'); ////设置报表的表名
SetColumnTitle(TitleName);////设置报表列的标题
/////设置动态数组的长度////
setlength(colwidth,GetFieldCount(AdoTable1));
setlength(columnwidth,GetFieldCount(AdoTable1)+1);
for i:=0 to GetFieldCount(AdoTable1)-1 do
begin
Colwidth[i]:=10;
//ColumnWidth[i]:=60;
end;
////设置输出内容的列宽度
ColumnWidth[1]:=40;
ColumnWidth[2]:=90;
ColumnWidth[3]:=90;
ColumnWidth[4]:=100;
ColumnWidth[5]:=100;
ColumnWidth[6]:=100;
ColumnWidth[7]:=80;
ColumnWidth[8]:=80;
//ColumnWidth[14]:=80;
////计算表格水平线的宽度
lineWidth:=0;
for i:=1 to GetFieldCount(AdoTable1) do
begin
LineWidth:=LineWidth+ColumnWidth[i];
end;
SetHorizontalLineWidth(LineWidth); ///设置表格水平线的宽度
SetIntegerCol(false);
CreateList(sender,AdoTable1,picbutton5,colwidth,columnWidth);
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -