?? ser300_01.pas.svn-base

?? 開源的網站整站程序,功能強大帶采集系統.
?? SVN-BASE
?? 第 1 頁 / 共 3 頁
字號:
上一頁 1 23
  ActPrior.Enabled:=True;
end;

procedure TSer300_01Form.ActRefreshExecute(Sender: TObject);
begin
  inherited;
//刷新
  sbSearch.Click;
end;

procedure TSer300_01Form.ActLocateExecute(Sender: TObject);
begin
  inherited;
//查找
  if dbgSer500.Focused then
  begin
    if qrySer500.IsEmpty then
    begin
      ShowMsg('UMS10000002');  //表記錄為空，操作無效
      Abort;
    end;
    LocateDialog(dsSer500);
  end else
  if dbgSer530.Focused then
  begin
    if qrySer530.IsEmpty then
    begin
      ShowMsg('UMS10000002');  //表記錄為空，操作無效
      Abort;
    end;
    LocateDialog(dsSer530);
  end else
   begin
    if qryTas510.IsEmpty then
    begin
      ShowMsg('UMS10000002');  //表記錄為空，操作無效
      Abort;
    end;
    LocateDialog(dsTas510);
  end;
end;

procedure GetStatusList1(var AStringList:TStrings);
begin
  if AStringList=nil then Exit;
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('select * from TAS120 where T120_001 in (1,2,3)');
  SYSDM.qryQuery.Open;
  while not SYSDM.qryQuery.Eof do
  begin
    AStringList.Add(SYSDM.qryQuery.FieldByName('T120_003').Value);
    SYSDM.qryQuery.Next;
  end;
end;

procedure GetStatusList2(var AStringList:TStrings);
begin
  if AStringList=nil then Exit;
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('select * from TAS120');
  SYSDM.qryQuery.Open;
  while not SYSDM.qryQuery.Eof do
  begin
    AStringList.Add(SYSDM.qryQuery.FieldByName('T120_003').Value);
    SYSDM.qryQuery.Next;
  end;
end;

procedure TSer300_01Form.FilterDialogSelectField1(Sender: TObject;
  FieldName: String; var PictureMask: String; ComboList: TStrings);
begin
  if FieldName='T120_003' then GetStatusList1(ComboList);
end;

procedure TSer300_01Form.FilterDialogSelectField2(Sender: TObject;
  FieldName: String; var PictureMask: String; ComboList: TStrings);
begin
  if FieldName='T120_003' then GetStatusList2(ComboList);
end;

procedure TSer300_01Form.ActSearchExecute(Sender: TObject);
begin
  inherited;
//查詢
  if dbgSer500.Focused then
  begin
    try
      SYSDM.wwFilterDialog1.OnSelectField:=FilterDialogSelectField1;
      FilterDialog(dsSer500);
    finally
      SYSDM.wwFilterDialog1.OnSelectField:=nil;
    end;
  end else
  if dbgSer530.Focused then
  begin
    try
      SYSDM.wwFilterDialog1.OnSelectField:=FilterDialogSelectField2;
      FilterDialog(dsSer530);
    finally
      SYSDM.wwFilterDialog1.OnSelectField:=nil;
    end;
  end else
  begin
    try
      SYSDM.wwFilterDialog1.OnSelectField:=FilterDialogSelectField1;
      FilterDialog(dsTas510);
    finally
      SYSDM.wwFilterDialog1.OnSelectField:=nil;
    end;
  end;
end;

procedure TSer300_01Form.ActPrintExecute(Sender: TObject);
begin
//打印
  inherited;
  SelectReport(qrySer500,AProgramID,AReportName,ReportGetValue);
  ActRefresh.Execute;
end;

procedure TSer300_01Form.ActExitExecute(Sender: TObject);
begin
  inherited;         //退出
  Close;
end;

procedure TSer300_01Form.cT520_003GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  Text:=GetPersonName(TField(Sender).AsString);
end;

procedure TSer300_01Form.ActOpenExecute(Sender: TObject);
//var
//  ACode:string;
begin
{  inherited;
//查看(&N)
  if dbgTas500.Focused then
  begin
    if qryTas500.IsEmpty then Exit;
    Screen.Cursor:=crHourGlass;
    ACode:=qryTas500T500_001.Value;
    Ser500_02Form:=TSer500_02Form.Create(Application);
    Ser500_02Form.OpenData(ACode);
    Screen.Cursor:=crDefault;
    Ser500_02Form.ShowModal;
  end else
  if dbgTas510.Focused then
  begin
    if qryTas510.IsEmpty then Exit;
    Screen.Cursor:=crHourGlass;
    ACode:=qryTas510T510_001.Value;
    Ser510_02Form:=TSer510_02Form.Create(Application);
    Ser510_02Form.OpenData(ACode);
    Screen.Cursor:=crDefault;
    Ser510_02Form.ShowModal;
  end else
  if dbgTas520.Focused then
  begin
    if qryTas520.IsEmpty then Exit;
    Screen.Cursor:=crHourGlass;
    ACode:=qryTas520T520_001.Value;
    Ser520_02Form:=TSer520_02Form.Create(Application);
    Ser520_02Form.OpenData(ACode);
    Screen.Cursor:=crDefault;
    Ser520_02Form.ShowModal;
  end else
  if dbgTas530.Focused then
  begin
    if qryTas530.IsEmpty then Exit;
    Screen.Cursor:=crHourGlass;
    ACode:=qryTas530T530_001.Value;
    Ser530_02Form:=TSer530_02Form.Create(Application);
    Ser530_02Form.OpenData(ACode);
    Screen.Cursor:=crDefault;
    Ser530_02Form.ShowModal;
  end;
}
end;

procedure TSer300_01Form.dbgTas510DblClick(Sender: TObject);
begin
  inherited;
//查看
  ActOpen.Execute;
end;

procedure TSer300_01Form.ActFirst2Execute(Sender: TObject);
begin
  inherited;
//最前
  if qrySer530.IsEmpty then Exit;
  qrySer530.First;
  ActFirst2.Enabled:=False;
  ActPrior2.Enabled:=False;
  ActNext2.Enabled:=True;
  ActLast2.Enabled:=True;
end;

procedure TSer300_01Form.ActPrior2Execute(Sender: TObject);
begin
  inherited;
//上移
  if qrySer530.IsEmpty then Exit;
  qrySer530.Prior;
  ActNext2.Enabled:=not qrySer530.Eof;
  ActLast2.Enabled:=not qrySer530.Eof;
  ActFirst2.Enabled:=not qrySer530.Bof;
  ActPrior2.Enabled:=not qrySer530.Bof;
end;

procedure TSer300_01Form.ActNext2Execute(Sender: TObject);
begin
  inherited;
//下移
  if qrySer530.IsEmpty then Exit;
  qrySer530.Next;
  ActNext2.Enabled:=not qrySer530.Eof;
  ActLast2.Enabled:=not qrySer530.Eof;
  ActFirst2.Enabled:=not qrySer530.Bof;
  ActPrior2.Enabled:=not qrySer530.Bof;
end;

procedure TSer300_01Form.ActLast2Execute(Sender: TObject);
begin
  inherited;
//最后
  if qrySer530.IsEmpty then Exit;
  qrySer530.Last;
  ActNext2.Enabled:=False;
  ActLast2.Enabled:=False;
  ActFirst2.Enabled:=True;
  ActPrior2.Enabled:=True;
end;

procedure TSer300_01Form.ActLocate2Execute(Sender: TObject);
begin
  inherited;
//查找
  if qrySer530.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表記錄為空，操作無效
    Abort;
  end;
  LocateDialog(dsSer530);
end;

procedure TSer300_01Form.ActFirst3Execute(Sender: TObject);
begin
  inherited;
//最前
  if qryTas510.IsEmpty then Exit;
  qryTas510.First;
  ActFirst3.Enabled:=False;
  ActPrior3.Enabled:=False;
  ActNext3.Enabled:=True;
  ActLast3.Enabled:=True;
end;

procedure TSer300_01Form.ActPrior3Execute(Sender: TObject);
begin
  inherited;
//上移
  if qryTas510.IsEmpty then Exit;
  qryTas510.Prior;
  ActNext3.Enabled:=not qrySer530.Eof;
  ActLast3.Enabled:=not qrySer530.Eof;
  ActFirst3.Enabled:=not qrySer530.Bof;
  ActPrior3.Enabled:=not qrySer530.Bof;
end;

procedure TSer300_01Form.ActNext3Execute(Sender: TObject);
begin
  inherited;
//下移
  if qryTas510.IsEmpty then Exit;
  qryTas510.Next;
  ActNext3.Enabled:=not qryTas510.Eof;
  ActLast3.Enabled:=not qryTas510.Eof;
  ActFirst3.Enabled:=not qryTas510.Bof;
  ActPrior3.Enabled:=not qryTas510.Bof;
end;

procedure TSer300_01Form.ActLast3Execute(Sender: TObject);
begin
  inherited;
//最后
  if qryTas510.IsEmpty then Exit;
  qryTas510.Last;
  ActNext3.Enabled:=False;
  ActLast3.Enabled:=False;
  ActFirst3.Enabled:=True;
  ActPrior3.Enabled:=True;
end;

procedure TSer300_01Form.ActLocate3Execute(Sender: TObject);
begin
  inherited;
//查找
  if qryTas510.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表記錄為空，操作無效
    Abort;
  end;
  LocateDialog(dsTas510);
end;

procedure TSer300_01Form.dbgTas500CustomDrawCell(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
  AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
  var AText: String; var AColor: TColor; AFont: TFont;
  var AAlignment: TAlignment; var ADone: Boolean);
begin
  inherited;
  if ANode.HasChildren then Exit;               
  if not ASelected then
//    if ANode.Values[dbgTas500T120_005.Index]<>null then AFont.Color:=ANode.Values[dbgTas500T120_005.Index];
end;

procedure TSer300_01Form.qryTas500AfterScroll(DataSet: TDataSet);
begin
{  inherited;
  if not Active then Exit;
  ActNext.Enabled:=not qryTas500.Eof;
  ActLast.Enabled:=not qryTas500.Eof;
  ActFirst.Enabled:=not qryTas500.Bof;
  ActPrior.Enabled:=not qryTas500.Bof;
}end;

{procedure TSer300_01Form.qryTas500T500_007GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  if qryTas500.IsEmpty then Exit;
  case Sender.AsInteger of
    0:Text:=AType[0];  //銷售訂單
    1:Text:=AType[3];  //手工輸入
  end;
end;
}
{
procedure TSer300_01Form.qryTas500T500_010GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  if qryTas500.IsEmpty then Exit;
  case Sender.AsInteger of
    0:Text:=AUnit[0];  //時
    1:Text:=AUnit[1];  //天
    2:Text:=AUnit[2];  //周
    3:Text:=AUnit[3];  //月
  end;
end;
}
procedure TSer300_01Form.dbgTas500DblClick(Sender: TObject);
begin
  inherited;
//查看
  ActOpen.Execute;
end;

procedure TSer300_01Form.ReportGetValue(const ParName: String; var ParValue: Variant);
begin
  if ParName='USENM' then ParValue:=AUserName
  else if ParName='PRNDT' then ParValue:=GetDBString('COM00006006')  //列印日期
  else if ParName='PRNNM' then ParValue:=GetDBString('COM00006007')  //列印人員
  else if ParName='REPNM' then ParValue:=AReportTitle
end;

initialization
  RegisterClass(TSer300_01Form);

finalization
  UnRegisterClass(TSer300_01Form);

end.
上一頁 1 23
?? 文件大小 2475 K
?? 上傳用戶 a83133937
?? 所屬分類其他行業
??? 相關標簽

#開源 #網站 #程序 #采集系統
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? ser300_01.pas.svn-base

?? 快捷鍵說明
