📄 terminate.~pas
字号:
unit terminate;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, PicButton, ExtCtrls, DB, ADODB;
type
TTerminal_inf = class(TForm)
Image1: TImage;
Label1: TLabel;
Image2: TImage;
Bevel1: TBevel;
Bevel2: TBevel;
Bevel3: TBevel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
PicButton1: TPicButton;
PicButton2: TPicButton;
PicButton3: TPicButton;
PicButton7: TPicButton;
Edit1: TEdit;
ComboBox1: TComboBox;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
ListView1: TListView;
Query1: TADOQuery;
Label8: TLabel;
Edit6: TEdit;
Label9: TLabel;
Edit7: TEdit;
Label10: TLabel;
ComboBox2: TComboBox;
Label11: TLabel;
ComboBox3: TComboBox;
PicButton5: TPicButton;
ADOTable1: TADOTable;
procedure PicButton7Click(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure PicButton1Click(Sender: TObject);
procedure ListView1DblClick(Sender: TObject);
procedure PicButton2Click(Sender: TObject);
procedure PicButton3Click(Sender: TObject);
procedure PicButton5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Terminal_inf: TTerminal_inf;
strID:string;
implementation
{$R *.dfm}
uses Common,PrinterRpt;
procedure TTerminal_inf.PicButton7Click(Sender: TObject);
begin
close;
end;
procedure TTerminal_inf.Image2Click(Sender: TObject);
begin
close;
end;
procedure TTerminal_inf.FormCreate(Sender: TObject);
begin
ShowPloyForm(image1.picture.Bitmap,handle);
edit1.Text:=inttostr(getrscount(query1,'Terminal_Info')+1);
FillValueToControl(query1,'SELECT DISTINCT Name FROM clerkTable','Name',combobox2);
FillValueToControl(query1,'SELECT DISTINCT param0 FROM sysTable','Param0',combobox1);
///初始化listview1控件列的宽度///
combobox3.Items.Add('辽阳');
combobox3.Items.Add('沈阳');
combobox3.Items.Add('本溪');
combobox3.Items.Add('大连');
combobox3.Items.Add('鞍山');
combobox3.Items.Add('抚顺');
combobox3.Items.Add('丹东');
combobox3.Items.Add('北京');
combobox3.text:='辽阳';
/////显示记录///
FillValueToListView(query1,'select * from Terminal_info',0,listview1);
end;
procedure TTerminal_inf.PicButton1Click(Sender: TObject);
var
strSql:string;
strInsert:string;
begin
strSql:='SELECT * FROM Terminal_Info 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 Terminal_Info(code,areaName,tradername,phone1,phone2,address,carStyle,carNum,clerkName,City) values("'+trim(edit1.Text)+'","'+trim(combobox1.Text)+'","'+trim(edit2.text)+'","'+trim(edit3.Text)+'","'+trim(edit4.Text)+'","'+trim(edit5.Text)+'","'+trim(edit6.text)+'","'+trim(edit7.text)+'","'+trim(combobox2.text)+'","'+trim(combobox3.text)+'")';
runNonSql(query1,strInsert);
FillValueToListView(query1,'select * from Terminal_info',0,listview1);
end;
end;
edit1.Text:=inttostr(getrscount(query1,'Terminal_Info')+1);
end
else
begin
showmessage('请输入编号...');
end;
end;
procedure TTerminal_inf.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];
edit7.Text:=listview1.Selected.SubItems.Strings[6];
combobox2.Text:=listview1.Selected.SubItems.Strings[7];
combobox3.Text:=listview1.Selected.SubItems.Strings[8];
end;
procedure TTerminal_inf.PicButton2Click(Sender: TObject);
var
strUpdate:string;
listitem:Tlistitem;
begin
if messagedlg('确定是否更新?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
strUpdate:='Update Terminal_Info 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)+'",carStyle="'+trim(edit6.Text)+'",carNum="'+trim(edit7.text)+'",ClerkName="'+trim(combobox2.Text)+'",city="'+trim(combobox3.Text)+'" where code="'+strID+'"';
showmessage(strUpdate);
RunNonSql(query1,strUpdate);
FillValueToListView(query1,'select * from Terminal_info',0,listview1);
end;
end;
procedure TTerminal_inf.PicButton3Click(Sender: TObject);
var
strDelete:string;
begin
if Messagedlg('确定是否删除?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
strDelete:='DELETE * FROM Terminal_Info WHERE CODE="'+strID+'"';
RunNonSql(query1,strDelete);
FillValueToListView(query1,'select * from Terminal_info',0,listview1);
end;
end;
procedure TTerminal_inf.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('业务员');
TitleName.Add('所属市');
//TitleName.Add('搭赠金额');
SetReportTitle('二级商人员情况报表');
SetTableName('Terminal_info'); ////设置报表的表名
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]:=50;
ColumnWidth[2]:=60;
ColumnWidth[3]:=70;
ColumnWidth[4]:=90;
ColumnWidth[5]:=90;
ColumnWidth[6]:=90;
ColumnWidth[7]:=70;
ColumnWidth[8]:=70;
ColumnWidth[9]:=70;
ColumnWidth[10]:=70;
//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 + -