📄 unit3.pas
字号:
end;
var
Form3: TForm3;
QuitId,ShowMe: Integer;//用于监控USB等外设的变量
wc : WNDCLASSEX; //主窗口类，用于生成新的桌面功能
HMainWnd : HWND; //主窗口句柄
AMsg : MSG; //主窗口消息
hDesktopCurrent:HDESK; //当前桌面
hmyDesktop:HDESK; //新桌面
sa:TSecurityAttributes; //用于生成新的桌面功能
implementation
uses
unit2,Unit4,Unit5,unit6,Unit7,Unit8,unit9,Unit10,Unit11,Unit12,Unit13,
Unit14,Unit15,unit16,unit17,unit18,unit19,unit20,unit21,unit22,unit23,
unit24,unit25,unitTimeToClose1,unitAutoRun;
{$R *.dfm}
procedure TForm3.ShowHint(Sender: Tobject);//处理状态栏
begin
Form3.StatusBar1.Panels[0].Text:=Application.Hint;
Form3.StatusBar1.Panels[1].Text:=TimeToStr(time);
Form3.StatusBar1.Panels[2].Text:=DateToStr(date);
end;
//----------------从菜单调用PageControl中的TabSheet开始-------------------//
procedure TForm3.N11Click(Sender: TObject);
begin
TabSheet111.Show;//评委基本信息录入
end;
procedure TForm3.N12Click(Sender: TObject);
begin
TabSheet112.Show;//选手基本信息录入
end;
procedure TForm3.N13Click(Sender: TObject);
begin
TabSheet113.Show;//评委组信息录入
end;
procedure TForm3.N14Click(Sender: TObject);
begin
TabSheet114.Show;//评分标准录入
end;
procedure TForm3.N15Click(Sender: TObject);
begin
TabSheet115.Show; //评委评分录入
end;
procedure TForm3.N16Click(Sender: TObject);
begin
TabSheet116.Show; //选手得分录入
end;
procedure TForm3.N17Click(Sender: TObject);
begin
TabSheet117.Show;
end;
procedure TForm3.N21Click(Sender: TObject);
begin
TabSheet221.Show;//评委基本信息查询
end;
procedure TForm3.N22Click(Sender: TObject);
begin
TabSheet222.Show;//选手基本信息查询
end;
procedure TForm3.N23Click(Sender: TObject);
begin
TabSheet223.Show;//评委组信息查询
end;
procedure TForm3.N24Click(Sender: TObject);
begin
TabSheet224.Show;//评分标准查询
end;
procedure TForm3.N25Click(Sender: TObject);
begin
TabSheet225.Show;
end;
procedure TForm3.N26Click(Sender: TObject);
begin
TabSheet226.Show;
end;
procedure TForm3.N31Click(Sender: TObject);
begin
TabSheet331.Show; //评委个人统计表
end;
procedure TForm3.N32Click(Sender: TObject);
begin
// TabSheet332.Show;
end;
procedure TForm3.N33Click(Sender: TObject);
begin
TabSheet333.Show; //评委组统计表
end;
procedure TForm3.N34Click(Sender: TObject);
begin
TabSheet334.Show;//分组决策表
end;
procedure TForm3.N35Click(Sender: TObject);
begin
TabSheet335.Show; //评分差异分析表
end;
procedure TForm3.N36Click(Sender: TObject);
begin
TabSheet336.Show;
end;
procedure TForm3.N41Click(Sender: TObject);
begin
TabSheet441.Show;//管理用户
end;
procedure TForm3.N42Click(Sender: TObject);
begin
TabSheet442.Show;//管理角色
end;
procedure TForm3.N51Click(Sender: TObject);
begin
Application.HelpFile :='help.HLP'; //帮助
Application.HelpCommand(HELP_CONTENTS,0);
end;
procedure TForm3.N52Click(Sender: TObject);
begin
Form14.ShowModal();
end;
procedure TForm3.N6Click(Sender: TObject);
begin
Unit4.Form4.ShowModal();
end;
//----------从菜单调用PageControl中的TabSheet结束--------//
procedure TForm3.BitBtn336PrintClick(Sender: TObject);
begin
if IfMemo=false then
Unit17.QuickReportPWSPTJ.Preview
else
begin
Unit18.QuickReportPWSPTJ2.Preview;
end;
end;
procedure TForm3.BitBtn331ChartClick(Sender: TObject);
var
str: string;
i: integer;
begin
i:=1;
if (((ComboBox331Condition.Text='评委姓名') and (ComboBox331Content.Text <> '')) or ((ComboBox331Condition.Text='评委编号') and (ComboBox331Content.Text <> ''))) then
begin
if ComboBox331Condition.Text='评委姓名' then
begin
str := 'select * from base_info_referee where Name ='+ quotedstr(ComboBox331Content.text);
ADOQueryPWPFChartSelect.SQL.Clear;
ADOQueryPWPFChartSelect.SQL.Add(str);
ADOQueryPWPFChartSelect.open;
Edit_Chart_refereeId.Text :=ADOQueryPWPFChartSelect.FieldByName('ID').asString;
Edit_Chart_refereeName.Text :=ComboBox331Content.text;
Edit_Chart_deviation.Text :=ADOQueryPWPFChartSelect.FieldByName('Mark_deviation_statistical').asString;
Edit_Chart_level.Text :=ADOQueryPWPFChartSelect.FieldByName('referee_level').asString;
unit20.QuickReportPWPFChart.QRMemo1.Lines.Clear;
unit20.QuickReportPWPFChart.QRMemo2.Lines.Clear;
unit20.QuickReportPWPFChart.QRMemo3.Lines.Clear;
unit20.QuickReportPWPFChart.QRMemo4.Lines.Clear;
unit20.QuickReportPWPFChart.QRMemo1.Lines.Add(ADOQueryPWPFChartSelect.FieldByName('ID').asString);
unit20.QuickReportPWPFChart.QRMemo2.Lines.Add(ComboBox331Content.text);
unit20.QuickReportPWPFChart.QRMemo3.Lines.Add(ADOQueryPWPFChartSelect.FieldByName('Mark_deviation_statistical').asString);
unit20.QuickReportPWPFChart.QRMemo4.Lines.Add(ADOQueryPWPFChartSelect.FieldByName('referee_level').asString);
DBChart1.Title.Text.Clear;
unit20.QuickReportPWPFChart.QRDBChart1.Title.Text.Clear;
str:= '评委'+ComboBox331Content.text+'的评分分析图';
DBChart1.Title.Text.Add (str);
unit20.QuickReportPWPFChart.QRDBChart1.Title.Text.Add (str);
str:= ' ';
DBChart1.Title.Text.Add (str);
str := 'select mark_deviation from mark_record_banquet where refereeName ='+ quotedstr(ComboBox331Content.text);
ADOQueryPWPFChartSelect.SQL.Clear;
ADOQueryPWPFChartSelect.SQL.Add(str);
ADOQueryPWPFChartSelect.open;
str := 'delete PWPFChart';//删除原PWPFChart表中所有数据
ADOQueryPWPFChartInsert.SQL.Clear;
ADOQueryPWPFChartInsert.SQL.Add(str);
ADOQueryPWPFChartInsert.ExecSQL;
str := 'select * from PWPFChart';
ADOQueryPWPFChartInsert.SQL.Clear;
ADOQueryPWPFChartInsert.SQL.Add(str);
ADOQueryPWPFChartInsert.Open;
while not ADOQueryPWPFChartSelect.Eof do
begin
ADOQueryPWPFChartInsert.Insert;
ADOQueryPWPFChartInsert.FieldByName('n1').AsInteger :=i;
ADOQueryPWPFChartInsert.FieldByName('n2').AsInteger :=2*i-1;
ADOQueryPWPFChartInsert.FieldByName('n3').Asfloat:=ADOQueryPWPFChartSelect.FieldByName('mark_deviation').Asfloat;
ADOQueryPWPFChartInsert.Post;
i:=i+1;
ADOQueryPWPFChartSelect.Next;
end;
end;
if ComboBox331Condition.Text='评委编号' then
begin
str := 'select * from base_info_referee where ID ='+ quotedstr(ComboBox331Content.text);
ADOQueryPWPFChartSelect.SQL.Clear;
ADOQueryPWPFChartSelect.SQL.Add(str);
ADOQueryPWPFChartSelect.open;
Edit_Chart_refereeName.Text :=ADOQueryPWPFChartSelect.FieldByName('Name').asString;
Edit_Chart_refereeId.Text :=ComboBox331Content.text;
Edit_Chart_deviation.Text :=ADOQueryPWPFChartSelect.FieldByName('Mark_deviation_statistical').asString;
Edit_Chart_level.Text :=ADOQueryPWPFChartSelect.FieldByName('referee_level').asString;
DBChart1.Title.Text.clear;
DBChart1.Title.Text.Add ('评委'+ADOQueryPWPFChartSelect.FieldByName('Name').asString+'的评分分析图');
str := 'select mark_deviation from mark_record_banquet where ID_referee ='+ quotedstr(ComboBox331Content.text);
ADOQueryPWPFChartSelect.SQL.Clear;
ADOQueryPWPFChartSelect.SQL.Add(str);
ADOQueryPWPFChartSelect.open;
str := 'delete PWPFChart';//删除原PWPFChart表中所有数据
ADOQueryPWPFChartInsert.SQL.Clear;
ADOQueryPWPFChartInsert.SQL.Add(str);
ADOQueryPWPFChartInsert.ExecSQL;
str := 'select * from PWPFChart';
ADOQueryPWPFChartInsert.SQL.Clear;
ADOQueryPWPFChartInsert.SQL.Add(str);
ADOQueryPWPFChartInsert.Open;
while not ADOQueryPWPFChartSelect.Eof do
begin
ADOQueryPWPFChartInsert.Insert;
ADOQueryPWPFChartInsert.FieldByName('n1').AsInteger :=i;
ADOQueryPWPFChartInsert.FieldByName('n2').AsInteger :=2*i-1;
ADOQueryPWPFChartInsert.FieldByName('n3').Asfloat:=ADOQueryPWPFChartSelect.FieldByName('mark_deviation').Asfloat;
ADOQueryPWPFChartInsert.Post;
i:=i+1;
ADOQueryPWPFChartSelect.Next;
end;
end;
TabSheet331A.Show;
end
else
MessageDlg('请选择一位评委',mtError,[mbOk],0);
end;
procedure TForm3.BitBtn336ChartClick(Sender: TObject);
var
str:string;
begin
if (ComboBox336Condition.Text='按评委职业分组排序') or (ComboBox336Condition.Text='按评委专业分组排序') or (ComboBox336Condition.Text='按评委年龄分组排序')then
begin
str := 'select * from PWSPChart';
ADOQueryPWSPChartSelect.SQL.Clear;
ADOQueryPWSPChartSelect.SQL.Add(str);
ADOQueryPWSPChartSelect.Open;
TabSheet336A.Show;
DBChartPWSP.Visible:=true;
DBChartPWSP.Title.Text.Clear;
DBChartPWSP.Title.Text.Add(ComboBox336Condition.text);
str:= ' ';
DBChartPWSP.Title.Text.Add (str);
DBChartPWSP2.Visible:=false;
bitbtn336APrint.Visible :=true;
bitbtn336APrint2.Visible :=false;
unit21.QuickReportPWSPPie.QRDBChart1.Title.Text.Clear;
unit21.QuickReportPWSPPie.QRDBChart1.Title.Text.Add(ComboBox336Condition.text);
end
else
begin
str := 'select * from PWSPChart';
ADOQueryPWSPChartSelect.SQL.Clear;
ADOQueryPWSPChartSelect.SQL.Add(str);
ADOQueryPWSPChartSelect.Open;
TabSheet336A.Show;
DBChartPWSP.Visible:=false;
DBChartPWSP2.Visible:=true;
DBChartPWSP2.Title.Text.Clear;
DBChartPWSP2.Title.Text.Add(ComboBox336Condition.text);
str:= ' ';
DBChartPWSP2.Title.Text.Add (str);
bitbtn336APrint.Visible :=false;
bitbtn336APrint2.Visible :=true;
unit22.QuickReportPWSPBar.QRDBChart1.Title.Text.Clear;
unit22.QuickReportPWSPBar.QRDBChart1.Title.Text.Add(ComboBox336Condition.text);
end;
end;
procedure TForm3.BitBtn221printClick(Sender: TObject);
begin
Unit6.QuickReport6.Preview;
end;
procedure TForm3.BitBtn222printClick(Sender: TObject);
begin
Unit7.QuickReport7.Preview;
end;
procedure TForm3.BitBtn33Click(Sender: TObject);
begin
Unit8.QuickReport8.Preview;
end;
procedure TForm3.BitBtn335PrintClick(Sender: TObject);
begin
Unit9.QuickReport9.Preview;
end;
procedure TForm3.BitBtn36Click(Sender: TObject);
begin
Unit10.QuickReport10.Preview;
end;
procedure TForm3.BitBtn333PrintClick(Sender: TObject);
begin
Unit19.QuickReportPWZTJ.Preview;
end;
procedure TForm3.BitBtn442UpdateClick(Sender: TObject);
begin
DBGridGLJS.ReadOnly:=false;
end;
procedure TForm3.BitBtn441InsertClick(Sender: TObject);
var
str: string;
begin
str := 'select * from userid';
ADOQueryGLYH.SQL.Clear;
ADOQueryGLYH.SQL.Add(str);
ADOQueryGLYH.Open;
ADOQueryGLYH.Insert;
ADOQueryGLYH.FieldByName('userID').AsString:= edit_userid.Text;
ADOQueryGLYH.FieldByName('password').AsString:= edit_password.Text;
ADOQueryGLYH.FieldByName('type').AsString:= Combobox_role.Text;
ADOQueryGLYH.FieldByName('ID').AsString:= edit_identify.Text;
ADOQueryGLYH.Post ;
end;
procedure TForm3.BitBtn441UpdateClick(Sender: TObject);
begin
DBGridPWSelect.ReadOnly:=true;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -